|
|
Viết bởi: huynhbahoc 21-07-12, 12:08 PM Chuyên mục: Forms - Bài trả lời (5) |
|
|
Viết bởi: ngaykhongem2 20-07-12, 10:10 PM Chuyên mục: Forms - Không có hồi đáp |
|
|
Viết bởi: lehongduc 20-07-12, 04:14 PM Chuyên mục: Thư Viện Hàm - Bài trả lời (2) |
Function fLookup(WhatField As String, WhatTb As String, sCri As String, Optional SubValue, Optional SubValueVar, Optional ExDb, Optional sUser, Optional Psw)
'Thay cho Function Dlookup
'WhatField: cột cần tìm trong bảng WhatTb
'sCri: biểu thức điều kiện để tìm
'SubValue: tên của 1 cột khác (ngoài cột cần tìm là WhatField)
'SubValueVar: tên biến giữ giá trị của SubValue
'ExDb: tên và đường dẫn (Path) đầy đủ của Database nếu không phải tìm bảng nằm trong Database đang mở
'sUser: User-Name để mở ExDb
'Psw: PassWord của sUser
Dim sqlSt As String
Dim sqlRec As DAO.Recordset
Dim MyDb As DAO.Database
Dim MyWrk As DAO.Workspace
If Not IsMissing(sUser) Then
Set MyWrk = DBEngine.CreateWorkspace("MyWrk", sUser, Psw)
Else
Set MyWrk = DBEngine.Workspaces(0)
End If
If IsMissing(SubValue) Then
sqlSt = "SELECT TOP 1 " & WhatValue
Else
sqlSt = "SELECT TOP 1 " & WhatValue & "," & SubValue
End If
sqlSt = sqlSt & " FROM " & WhatTb
If Not IsMissing(ExDb) Then sqlSt = sqlSt & " IN '" & ExDb & "'"
sqlSt = sqlSt & " WHERE("
sqlSt = sqlSt & sCri
sqlSt = sqlSt & ")"
If IsMissing(ExDb) Then
Set MyDb = CurrentDb()
Else
Set MyDb = MyWrk.OpenDatabase(ExDb, , True)
End If
Set sqlRec = MyDb.OpenRecordset(sqlSt)
If sqlRec.RecordCount > 0 Then
fLookup = sqlRec(WhatValue)
If Not IsMissing(SubValue) Then SubValueVar = sqlRec(SubValue)
Else
fLookup = Null
End If
Set sqlRec = Nothing
Set MyDb = Nothing
Set MyWrk = Nothing
'
End Functionflookup( "mskh", "tblctunx", "soctu = 'X12/0412'", "ngay", NgayCtu)flookup( "mskh", "tblctunx", "soctu = 'X12/0412'", "ngay", NgayCtu, "D:\MYAPP\MYDATA.MDB")flookup( "mskh", "tblctunx", "soctu = 'X12/0412'", "ngay", NgayCtu, "D:\MYAPP\MYDATA.MDB"), "lehongduc", "thuThuatAcc"
|
|
Viết bởi: thienthuvol 20-07-12, 03:35 PM Chuyên mục: Forms - Bài trả lời (3) |
|
|
Viết bởi: taiphung92 20-07-12, 11:12 AM Chuyên mục: Quán cóc - Bài trả lời (1) |
![[Hình: 1342667683-Thoi-trang-sao---1-.jpg]](http://img-hn.24hstatic.com:8008/upload/3-2012/images/2012-07-19/1342667683-Thoi-trang-sao---1-.jpg)
| Chủ đề Mới nhất |
| 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,317 |
| 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: 133 |
| 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: 150 |
| 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: 7,914 |
| 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: 171 |
| Đồ 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: 620 |
| 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: 178 |
| 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: 572 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,599 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 275 |
| 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 đủ |