Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: maidinhdan 27-03-21, 01:08 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (2) |
Cú pháp:
- Chỉ gọi thôi: GoiThongbao SoTTCuaThongbao
- Gọi để lấy câu trả lời Yes/No; Ok/Cancel: GoiThongbao( SoTTCuaThongbao); Trả về 1 nếu Đồng y
* Khuya quá lười viết post video giới thiệu chi tiết
Code:
Mã PHP:
' --------------------------------------------------------------------------------------------------------
' Ten Modules/Class: modThongbao
' Ten ham/thu tuc : GoiThongbao
' Tao tren may PC : HENDAN
' Author/ Tac gia : maidinhdan@gmail.com , Ngay, gio tao: 26/03/2021 4:01:39 PM
' Parameters/Tham so :
' Cu phap/ Purpose :
' Pham vi ap dung : Goi thong bao bang Form
' --------------------------------------------------------------------------------------------------------
'Gia tri tra ve cua ham Goithongbao la:
'True => Tuong ung ban da nhan nut Ok/Yes
'False => Tuong ung ban da nhan nut No/Cancel
Public Function GoiThongbao(SoCanGoi As Long) As Boolean
On Error GoTo Loi
Dim cls As clsThongbao
Set cls = New clsThongbao
With cls
.SoTT = SoCanGoi
.MoFormThongbao
Do While KiemTraFormDangMo(acForm, "frmThongbao")
DoEvents
Sleep 100
Loop
End With
Set cls = Nothing
GoiThongbao = TraLoi
Exit_Loi:
Exit Function
Loi: ' Khi cac Thu tuc loi se nhay den dong duoi day
GoiThongbao 6
GoiThongbao = False
Resume Exit_Loi ' Chay nguoc len dong Exit_Loi: va thoat
End Function
'Kiem tra doi tuong dang dong hay mo
Function KiemTraFormDangMo(KieuDoiTuong As Integer, TenFormCanKiemTra As String) As Boolean
Dim i As Integer
i = SysCmd(acSysCmdGetObjectState, KieuDoiTuong, TenFormCanKiemTra)
KiemTraFormDangMo = i And acObjStateOpen
End Function
Để lại Email trong 10 ngày sẽ gửi Demo nhé!
|
Viết bởi: ongke0711 26-03-21, 01:23 AM Chuyên mục: Forms - Bài trả lời (3) |
---------------------------------------------------------------------------------------------------------
(Tên khác là Shortcut menu, Context menu)
Xin lỗi các bạn vì chậm trễ cập nhật.
Do bận việc nhà nhiều quá nên chưa rảnh để viết nội dung diễn giải, các bạn download file về ngâm cứu trước đi nhé.
Link demo: https://drive.google.com/file/d/14WBfoOy...sp=sharing
(CÒN TIẾP ...)
|
Viết bởi: mrsiro 24-03-21, 05:53 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (22) |
Mình đang áp dụng việc này vào nghiệp vụ scan mã vạch. Khi mình scan 1 mặt hàng ví dụ CAFE, thì scan nó ra CÀE (telex), hoặc mặt hàng là A1BC thì nó lại thành ÁBC (vni), người dùng phải tắt unikey đi rất là bất tiện và không chuyên nghiệp.
Ai có giải pháp thì giúp mình nhé.
|
|
Viết bởi: maidinhdan 23-03-21, 05:43 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (14) |
Demo này Code gọi phải nhớ tên table hơi phiền phức; nhất là ứng dụng có nhiều table như của anh TranThanhAn1962
Ưu điểm: Code gọi ngắn gọn
Mã PHP:
Ham_TaoLinkAllTable(DuongDanFile,[Mat khau co the bo trong neu file khong co mat khau])
=>
Ham_TaoLinkAllTable Me.txtlinkfile1, Me.txtpass 'File co Pass
Ham_TaoLinkAllTable Me.txtlinkfile2 ' File khong Pass, chi can dien Link File la dc
Khả năng ứng dụng:
- Áp cho tất cả phiên bản Access *.mdb hoặc *.accdb, có Pass hay không có pass cũng vậy
- Thích hợp Link table số lượng lớn và với nhiều File Access khác nhau cùng 1 lúc
- Trong ứng dụng có đính kèm hàm xóa tất cả table; hàm chọn File; hàm Kiểm tra sự tồn tại table để các bạn test
* Hình minh họa:
![[Hình: demoHinh_LinkNhieuTable_Phan2.png]](https://sites.google.com/site/postdumdemo/home/hinh/demoHinh_LinkNhieuTable_Phan2.png)
Code:
Mã PHP:
' --------------------------------------------------------------------------------------------------------
' Ten Modules/Class: modLinkTable
' Ten ham/thu tuc : Ham_TaoLinkAllTable
' Tao tren may PC : HENDAN
' Author/ Tac gia : maidinhdan@gmail.com , Ngay, gio tao: 23/03/2021 4:19:39 PM
' Parameters/Tham so :
' Cu phap/ Purpose : Ham_TaoLinkAllTable(DuongDanFile,[Mat khau co the bo trong neu file khong co mat khau])
' Pham vi ap dung : Tao LinkTable nhanh voi nhieu File Access khac nhau va co so luong table lon
' --------------------------------------------------------------------------------------------------------
Public Function Ham_TaoLinkAllTable(DuongDanFile As String, Optional MatkhauFile As String) As Boolean
On Error GoTo Loi
'Chen cac Thu tuc cua ban o day
Dim dbHienHanh As DAO.Database, i As Integer
Set dbHienHanh = CurrentDb
Dim TableHienHanh As String
'Duyet lay tat ca table Access hien hanh, bao gom ca cac table dang link, ngoai tru table he thong
For i = 0 To dbHienHanh.TableDefs.Count - 1
If Left(dbHienHanh.TableDefs(i).Name, 4) <> "MSys" Then
TableHienHanh = dbHienHanh.TableDefs(i).Name
Debug.Print "HienHanh: ___________", TableHienHanh
End If
Next i
' Khoi tao mot ket noi den Link file chi dinh; cac dong mau xanh la cay de Admin Test thoi, khi dung hay bo di
Dim dbKhac As DAO.Database ', i As Integer
' Dim DuongDanFile As String, MatkhauFile As String
Dim tdf As TableDef
' DuongDanFile = CurrentProject.Path & "\DataTest.mdb"
' MatkhauFile = "111444"
' DuongDanFile = CurrentProject.path & "\TaoFileMDB.mdb"
' MatkhauFile = ""
i = 0 'Set bien i lai tu dau
Set dbKhac = DBEngine.Workspaces(0).OpenDatabase(DuongDanFile, False, False, "MS Access;PWD=" & MatkhauFile)
Dim TableKhac As String
''Duyet lay tat ca table Access theo Link file chi dinh, ngoai tru table he thong
For i = 0 To dbKhac.TableDefs.Count - 1
If Left(dbKhac.TableDefs(i).Name, 4) <> "MSys" Then
TableKhac = dbKhac.TableDefs(i).Name
'So sanh Table trong File chi dinh co khac voi table hien hanh khong? Khac thi xoa; Khong thi bo qua
If KiemtraTableTontai(TableKhac) Then 'Hàm kiem tra table hien hanh co ton tai khong?
CurrentDb.TableDefs.Delete TableKhac
Debug.Print TableKhac & "________Da Xoa va Se tao lai" 'Thong bao Table dang ton tai, se xoa va se tien hanh lien ket lai
Else
Debug.Print TableKhac & "________SeTaoMoi" 'Thong bao Table chua co, va se tien hanh lien ket lai
End If
'Tien hanh link lai lien ket voi table trong file chi dinh
Set dbHienHanh = CurrentDb
Set tdf = dbHienHanh.CreateTableDef(TableKhac)
'Danh dau ket noi den file Access chi dinh de tien hanh link table
With tdf
.Connect = "Ms Access;UID=Admin;PWD=" & MatkhauFile & ";DATABASE=" & DuongDanFile
.SourceTableName = TableKhac
End With
' ra lenh ket noi
dbHienHanh.TableDefs.Append tdf
End If
Next i
'Xoa bien khoi bo nho
Set dbHienHanh = Nothing
Set dbKhac = Nothing
Ham_TaoLinkAllTable = True
' Doan xu ly cac loi
LoiExit:
Exit Function
Loi:
Ham_TaoLinkAllTable = False
If Err = 3110 Then
Resume LoiExit
Else
If Err = 3011 Then
Resume Next
End If
End If
End Function
Ai cần xin để lại email
|
|
Viết bởi: thanhtruong 22-03-21, 12:09 PM Chuyên mục: Report - Bài trả lời (1) |
| Chủ đề Mới nhất |
| tripscan — Как планироват... -Chuyên mục: MS Word-Đăng bởi lần cuối: Leonfurry-1 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| SkterjeadS -Chuyên mục: MS Word-Đăng bởi lần cuối: CarrollHut-1 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
| 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: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,345 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 147 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 160 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,102 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 182 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 661 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 186 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 632 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |