![]() |
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
![]() |
Viết bởi: Noname 09-08-10, 01:39 AM Chuyên mục: Forms - Bài trả lời (2) |
Function fIsLoaded(ByVal strFormName As String) As Boolean
'Giá trị trả về là 0 nếu chưa mở, -1 là đã mở rồi
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
If Forms(strFormName).CurrentView <> 0 Then
fIsLoaded = True
End If
End If
End Function
'****** Code End ********
If CurrentProject.AllForms("YourFormName").IsLoaded = True Then
do something
Else:
do something else
End If
Chủ đề Mới nhất |
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-4 Giờ trước- » Bài trả lời: 20- » Lượt xem: 187 |
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,099 |
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: 1,922 |
Tình yêu: Khi yêu chàng t... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: loppo-08-07-24, 11:56 AM- » Bài trả lời: 0- » Lượt xem: 18 |
Cho chỉ định xét nghiệm v... -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-06-07-24, 02:38 AM- » Bài trả lời: 5- » Lượt xem: 137 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: voquangx-02-07-24, 08:55 PM- » Bài trả lời: 45- » Lượt xem: 2,056 |
Chương trình quản lý bán ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: tt1212-01-07-24, 11:46 AM- » Bài trả lời: 49- » Lượt xem: 16,527 |
QLCTY DUOC -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: chuvanthom-01-07-24, 12:44 AM- » Bài trả lời: 5- » Lượt xem: 574 |
Phần mềm quản lý quầy thu... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: chuvanthom-01-07-24, 12:41 AM- » Bài trả lời: 6- » Lượt xem: 3,941 |
Bộ icon các kích cỡ cho F... -Chuyên mục: Forms-Đăng bởi lần cuối: mrgior-28-06-24, 05:19 AM- » Bài trả lời: 3- » Lượt xem: 1,667 |
Diễn đàn Thống kê |
» Thành viên: 4,651 » Thành viên mới nhất: huynn » Các chủ đề diễn đàn: 9,862 » Các bài viết diễn: 48,501 Thống kê đầy đủ |