Viết bởi: Noname 09-08-10, 02:11 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (2) |
Viết bởi: Noname 09-08-10, 02:09 AM Chuyên mục: Report - Bài trả lời (2) |
Viết bởi: Noname 09-08-10, 01:53 AM Chuyên mục: Thư viện thủ thuật - Không có hồi đáp |
Private sub phuchoi_click ()
Call UnDeleteTable ()
End sub
Option Compare Database
Function UnDeleteTable(Optional sName As String)
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim sTable As String
Dim sSQL As String
Dim sMsg As String
If IsMissing(sName) Then sName = "Tablephuchoi"
If Len(sName) = 0 Then sName = "Tablephuhoi"
Set db = CurrentDb()
For Each tdf In db.TableDefs
If left(tdf.Name, 4) = "~tmp" Then
sTable = tdf.Name
sSQL = "SELECT [" & sTable & "].* INTO " & sName
sSQL = sSQL & " FROM [" & sTable & "];"
db.Execute sSQL
sMsg = "Da phuc hoi xong mot Tablle bi xoa voi ten " & sName
MsgBox sMsg, vbOKOnly, "Da phuc hoi xong"
GoTo Exit_Undelete
End If
Next
' Neu khong tim thay thi thong bao
MsgBox "Khong tim thay Table nao co the phuc hoi", vbOKOnly, "Xin loi!"
Exit_Undelete:
Set db = Nothing
Exit Function
Err_Undelete:
MsgBox err.Description
Resume Exit_Undelete
End Function
' Notes: Ham nay chi su dung cho Access 95 tro len va con tuy thuoc vao mot so dieu kien sau:
' - Da xoa nham Table nhung chua dong CSDL (đóng rồi thì tui chưa thử)
' - CSDL chua su dung che do compact and comact repair (dọn rác rồi lấy đâu ra mà phục hồi?)
' - CSDL bi xoa boi phan quyen User trong ung dung access cua ban (tui thu roi khoi test nua)
' - Ham nay chi phuc hoi cho mot Table bi xoa gan nhat (những cái trước đó tui bó tay chưa nghĩ ra)
Viết bởi: Noname 09-08-10, 01:50 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (5) |
Trích dẫn: Private Sub EnableSHIFTButton_Click()
On Error GoTo ErrHandler
Dim db As Database
Dim ThuocTinh As Property
Set db = OpenDatabase("C:\QLNS.mdb")
db.Properties("AllowBypassKey") = True
Set db = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number
If Err.Number = 3270 Then ' Property not found.
Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, True)
db.Properties.Append ThuocTinh
Resume Next
Else
MsgBox Err.Description
End If
End Sub
Viết bởi: Noname 09-08-10, 01:44 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (17) |
Public Sub CompactDB()
CommandBars("Menu Bar"). _
Controls("Tools"). _
Controls("Database utilities"). _
Controls("Compact and repair database..."). _
accDoDefaultAction
End Sub
Chủ đề Mới nhất |
E xin chia sẽ phần mềm Qu... -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-13-05-24, 10:37 PM- » Bài trả lời: 1- » Lượt xem: 41 |
Demo tạo Barcode (1D) bằn... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-13-05-24, 10:33 PM- » Bài trả lời: 2- » Lượt xem: 53 |
[Demo 1] Tạo Textbox tìm ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: nguyencaothong-10-05-24, 11:07 PM- » Bài trả lời: 13- » Lượt xem: 1,507 |
[Demo-Phần 4] Tạo khóa bả... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: huyhoang22-06-05-24, 03:29 PM- » Bài trả lời: 40- » Lượt xem: 5,544 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-06-05-24, 03:21 PM- » Bài trả lời: 40- » Lượt xem: 1,603 |
Dòng Thơ Nhạc Trích Đoạn -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-30-04-24, 04:51 PM- » Bài trả lời: 4- » Lượt xem: 57 |
Trợ giúp về Textbox với c... -Chuyên mục: Forms-Đăng bởi lần cuối: Nguyên Thông-18-04-24, 10:15 PM- » Bài trả lời: 16- » Lượt xem: 5,971 |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: huyhoang22-15-04-24, 11:25 AM- » Bài trả lời: 38- » Lượt xem: 20,835 |
Kết nối bảng từ access A ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: hieunx-11-04-24, 01:23 PM- » Bài trả lời: 5- » Lượt xem: 107 |
Lấy dữ liệu từ 1 cột của ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-09-04-24, 11:34 AM- » Bài trả lời: 11- » Lượt xem: 1,113 |
Diễn đàn Thống kê |
» Thành viên: 4,566 » Thành viên mới nhất: WilliamWek » Các chủ đề diễn đàn: 9,856 » Các bài viết diễn: 48,441 Thống kê đầy đủ |