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
Viết bởi: Noname 09-08-10, 01:43 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (5) |
Trích dẫn:Bạn chỉ cần vào Tools/options
Bỏ dấu check ở mục Windows on Taskbar. khi đó trên Task bar chỉ còn duy nhất 1 màn hình Access thôi, bạn thư nhé.
----------------------
sanyovietnam in MaNguon
Trích dẫn:Trích:
Nguyên văn bởi hungtano
Bổ sung :
Vì Access luôn chọn Check box Windows on Taskbar = True (default) nên nếu đem file mdb của bạn sang máy khác thì sẽ gặp lại trường hợp nhiều cửa sổ trên taskbar.
Cách tổng quát hơn :
Khi mở form Startup bạn thêm dòng lệnh :
Private Sub Form_Open(Cancel As Integer)
Application.SetOption "ShowWindowsInTaskbar", False
End Sub
Chủ đề Mới nhất |
Найдите рабочее зеркало с... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: Liesehep-Hôm qua, 07:29 PM- » Bài trả lời: 0- » Lượt xem: 10 |
Trang thủ thuật Access ít... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: tranthanhan1962-06-09-24, 11:23 PM- » Bài trả lời: 6- » Lượt xem: 85 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: nguyenngoctram14@gmail.com-05-09-24, 09:25 AM- » Bài trả lời: 46- » Lượt xem: 2,283 |
Xin videocapx.ocx Win 8.1 -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: nam0812-31-08-24, 11:37 AM- » Bài trả lời: 5- » Lượt xem: 2,507 |
Một Thoáng Ở Con Tim -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-26-08-24, 01:11 PM- » Bài trả lời: 0- » Lượt xem: 18 |
[Demo 1] Kết nối máy siêu... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: tt1212-20-08-24, 10:29 AM- » Bài trả lời: 25- » Lượt xem: 4,446 |
TẠO 1 MACRO VỚI 2 SUB MAC... -Chuyên mục: Query-Đăng bởi lần cuối: tien0201-16-08-24, 02:23 PM- » Bài trả lời: 10- » Lượt xem: 6,102 |
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-08-08-24, 01:09 PM- » Bài trả lời: 25- » Lượt xem: 270 |
Tạo số phiếu tăng theo... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-23-07-24, 11:49 PM- » Bài trả lời: 15- » Lượt xem: 10,186 |
CHƯƠNG TRÌNH KẾ TOÁN BẰNG... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Nguyễn Hoàng Anh-17-07-24, 05:45 PM- » Bài trả lời: 21- » Lượt xem: 2,016 |
Diễn đàn Thống kê |
» Thành viên: 4,798 » Thành viên mới nhất: MyronFus » Các chủ đề diễn đàn: 9,865 » Các bài viết diễn: 48,519 Thống kê đầy đủ |