![]() |
Viết bởi: Noname 13-08-10, 10:10 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (22) |
![]() |
Viết bởi: Noname 13-08-10, 10:07 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (5) |
Sub LinkTable(T As String)
' xoa table link cu~
DoCmd.DeleteObject acTable, T
'link lai tablelink moi
DoCmd.TransferDatabase acLink, "Microsoft Access", CurrentProject.Path & "\" & "QLVB_en.mdb", acTable, T, T
End Sub
![]() |
Viết bởi: Noname 13-08-10, 09:49 PM Chuyên mục: Thư viện thủ thuật - Không có hồi đáp |
' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
DeleteSetting "MyApp", "Startup"
![]() |
Viết bởi: Noname 13-08-10, 09:39 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (4) |
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
MsgBox "Can't use Wheel Button"
If Count = -3 Then
DoCmd.GoToRecord , , acNext
Else
DoCmd.GoToRecord , , acPrevious
End If
End Sub
![]() |
Viết bởi: Noname 13-08-10, 09:37 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (1) |
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Sleep (5000)
Chủ đề Mới nhất |
[Demo P3] Login+ Phân quy... -Chuyên mục: Share Code-Đăng bởi lần cuối: anhquan-4 Giờ trước- » Bài trả lời: 86- » Lượt xem: 22,622 |
Demo Login + Phân quyền (... -Chuyên mục: Share Code-Đăng bởi lần cuối: anhquan-9 Giờ trước- » Bài trả lời: 82- » Lượt xem: 30,375 |
Đăng ký miễn phí tài khoả... -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: tranthanhan1962-Hôm qua, 09:06 PM- » Bài trả lời: 3- » Lượt xem: 52 |
Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: cpucloi-Hôm qua, 07:53 AM- » Bài trả lời: 30- » Lượt xem: 4,875 |
Thơ Những Mối Tình Buồn -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-31-03-23, 10:17 PM- » Bài trả lời: 11- » Lượt xem: 95 |
Cách chẻ từng câu trong đ... -Chuyên mục: Class Moudules-Đăng bởi lần cuối: btamsgn-31-03-23, 11:31 AM- » Bài trả lời: 6- » Lượt xem: 155 |
Tính tổng trong Report -Chuyên mục: Report-Đăng bởi lần cuối: ledangvan-30-03-23, 09:04 AM- » Bài trả lời: 4- » Lượt xem: 99 |
Hàm DateAdd -Chuyên mục: Query-Đăng bởi lần cuối: tranthanhan1962-30-03-23, 12:08 AM- » Bài trả lời: 9- » Lượt xem: 90 |
Quản lý lịch làm việc hiệ... -Chuyên mục: Liên Kết Website-Đăng bởi lần cuối: Ngocmai858-29-03-23, 06:25 PM- » Bài trả lời: 0- » Lượt xem: 17 |
[Phần 1]Demo Link Table n... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: huantrau-27-03-23, 10:56 AM- » Bài trả lời: 24- » Lượt xem: 3,332 |
Diễn đàn Thống kê |
» Thành viên: 3,828 » Thành viên mới nhất: anhquan » Các chủ đề diễn đàn: 9,739 » Các bài viết diễn: 47,679 Thống kê đầy đủ |