Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Một hàm tự viết thay thế cho DLOOKUP của Access
#1
Chào các Bạn,
Do nhu cầu công việc, tôi phải viết 1 hàm tìm kiếm để thay thế DLOOKUP, vốn dĩ ít linh hoạt và có phần nặng nề. Tôi đã sử dụng hàm mình tự viết và thấy nó "đa năng" hơn, đồng thời cũng hiệu quả hơn rất nhiều so với DLOOKUP.
Các Bạn thử sử dụng xem có đúng như thế không nhé.
Nội dung hàm như sau:

Mã:
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 Function

Thí dụ:
1. Để tìm mã số khách hàng (mskh) xác định được ghi trong bảng đăng ký chứng từ (tblctunx) thỏa điều kiện "soctu = 'X12/0412'", đồng thời lấy luôn giá trị ngày (ngay) của chứng từ này gán cho biến NgayCtu, ta viết dòng lệnh như sau:
Mã:
flookup( "mskh", "tblctunx", "soctu = 'X12/0412'", "ngay", NgayCtu)

2. Nếu bảng cần tìm nằm ở database khác được lưu tại: "D:\MYAPP\MYDATA.MDB"
dòng lệnh sẽ như sau:
Mã:
flookup( "mskh", "tblctunx", "soctu = 'X12/0412'", "ngay", NgayCtu, "D:\MYAPP\MYDATA.MDB")

3. Nếu database nêu trên đã được bảo mật theo cấp độ người sử dụng, ta phải khai báo 2 thông số sUser và Psw như sau: giả định User-Name là "lehongduc" và Password là "thuThuatAcc"
Mã:
flookup( "mskh", "tblctunx", "soctu = 'X12/0412'", "ngay", NgayCtu, "D:\MYAPP\MYDATA.MDB"), "lehongduc", "thuThuatAcc"
Chữ ký của lehongduc Lê Hồng Đức
Số ĐT: 0913.941.144
Email: lhongduc@gmail.com, lehongduc@ymail.com
Website: http://quantribanhang.vn
Reply
Những người đã cảm ơn Xuân Thanh , Noname , Hạ Vàng , HungSon , Cafe Via He , nhannt4 , bangnguyencong , maidinhdan
#2
Rất hay, tùy vào nhu cầu của từng người, các bạn có thể ứng dụng, phát triển hàm này để dùng vào nhiều mục đích khác nhau.
Ví dụ lưu tên đăng nhập/ mậtkhẩu ở một file database khác...
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Hạ Vàng , HungSon
#3
Các anh em giúp mình với!
Mình muốn tạo bảng lương (RLuong), dữ liệu lấy từ bảng DSLUong(mns,cong,mucluong,...) và bảng DMPhucap(mns,pctn, pcvk..). Vấn đề ở đây là mình muốn lấy dữ liệu từ bảng phụ cấp đưa vào bảng lương (Rluong). Mỗi nhân viên khác nhau có mức phụ cấp tương ứng khác nhau.
Chữ ký của nguyenduykhanhpt Xin chào, mình là nguyenduykhanhpt, Tham gia http://thuthuataccess.com/forum từ ngày 10-05 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng Dẫn Demo Tổng hợp hàm Dsum, Dcount, DAvg, Dlookup, DMax, DMin... maidinhdan 5 1,319 23-09-16, 12:57 PM
Bài mới nhất: maidinhdan
  [Hàm] Demo Hàm mở mọi loại file ( Access) maidinhdan 7 1,738 26-05-16, 10:53 AM
Bài mới nhất: lmthu
  Hướng Dẫn Một số hàm D trong Access Xuân Thanh 12 6,622 22-01-16, 01:55 PM
Bài mới nhất: khanghychu
  Hướng Dẫn Một số hàm C... trong Access Xuân Thanh 2 1,324 21-01-16, 11:06 AM
Bài mới nhất: khanghychu
  Sử dụng thư viện hàm của Excel trong Access Noname 4 5,748 14-02-15, 01:45 PM
Bài mới nhất: thucgia

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ