Cú pháp của hàm DLookup trong VBA Access

 

Hàm DLookup trong VBA Access là một hàm rất hữu ích, được dùng để tìm kiếm và trả về giá trị của một trường trong một bảng hoặc truy vấn trong cơ sở dữ liệu Access. Hàm này giúp bạn dễ dàng lấy dữ liệu mà không cần phải viết các truy vấn SQL phức tạp.

Cú pháp của hàm DLookup:

DLookup(Expression, Domain, [Criteria])

  • Expression: Là biểu thức, thường là tên của trường mà bạn muốn lấy giá trị. Ví dụ: "FieldName".
  • Domain: Là bảng hoặc truy vấn mà bạn muốn tìm kiếm. Ví dụ: "TableName" hoặc "QueryName".
  • Criteria (tùy chọn): Là điều kiện để lọc dữ liệu. Đây là một chuỗi điều kiện SQL. Ví dụ: "FieldName = 'Value'". Nếu không có điều kiện, tất cả các bản ghi sẽ được xem xét.

Ví dụ sử dụng DLookup:

1. Lấy giá trị từ một trường trong bảng

Giả sử bạn có bảng Customers và muốn lấy giá trị của trường CustomerName cho CustomerID = 1, bạn có thể sử dụng DLookup như sau:

Dim customerName As String customerName = DLookup("CustomerName", "Customers", "CustomerID = 1") MsgBox customerName

Trong ví dụ trên:

  • "CustomerName" là trường mà bạn muốn lấy giá trị.
  • "Customers" là bảng mà bạn tìm kiếm.
  • "CustomerID = 1" là điều kiện để lọc bản ghi có CustomerID = 1.

2. Lấy giá trị từ một trường trong truy vấn

Giả sử bạn có một truy vấn tên là qryOrders và muốn lấy giá trị của trường OrderAmount cho OrderID = 100, bạn có thể viết như sau:

Dim orderAmount As Double orderAmount = DLookup("OrderAmount", "qryOrders", "OrderID = 100") MsgBox orderAmount

3. Không có kết quả trả về

Nếu DLookup không tìm thấy giá trị nào thỏa mãn điều kiện, nó sẽ trả về giá trị Null. Do đó, bạn cần kiểm tra nếu giá trị trả về là Null trước khi sử dụng:

Dim customerName As Variant
customerName = DLookup("CustomerName", "Customers", "CustomerID = 999")

If IsNull(customerName) Then
    MsgBox "Không tìm thấy khách hàng."
Else
    MsgBox "Tên khách hàng: " & customerName
End If

4. Sử dụng DLookup trong các điều kiện phức tạp

Bạn có thể sử dụng các điều kiện phức tạp trong phần Criteria của DLookup để lọc dữ liệu. Ví dụ:

 

 Dim totalAmount As Double
totalAmount = DLookup("SUM(OrderAmount)", "Orders", "CustomerID = 1 AND OrderDate >= #2024-01-01#")
MsgBox totalAmount

 

 

Nhận xét

Đăng nhận xét

Bài đăng phổ biến từ blog này

Biến Static trong VBA Access | NT Software

Hình ảnh
  #vbaaccess #phanmem #ntsoftware 00:02 Giới thiệu về Biến Static trong VBA Access 00:35 Ví dụ 1 Giới thiệu về Biến Static trong VBA Access 03:11 Ví dụ 2 Giới thiệu về Biến Static trong VBA Access 6:03 Ví dụ 3 Giới thiệu về Biến Static trong VBA Access Biến Static trong VBA là biến được lưu bộ nhớ toàn cục, sẽ không bị khởi tạo lại giá trị khi tạo biến Nếu hãy hãy chia sẽ facebook Để hiển bản chất của biến Static trong VBA chúng ta xem qua ví dụ Ví dụ 1: biến VBA Access ' Nút lệnh khi click vào Command1 Private Sub Command1_Click() Dim b1 As Integer Dim b2 As Integer b1 = b1 + 1 b2 = b2 + 1 MsgBox "Bien B1: " & b1 & ", B2: " & b2 End Sub ' Nút lệnh khi click vào Command2 Private Sub Command2_Click() MsgBox "Bien B1: " & b1 & ", B2: " & b2 End Sub Kết luận: Chúng ta click vào nút lệnh Command1 thì biến b1 và b2 được khởi tạo giá trị là 1 và + thêm 1, Nhưng khi click qua...
Đọc thêm

Cấp độ biến khi khai báo trong VBA Access | NT Software

Hình ảnh
  #vba #laptrinhvien #ntsoftware Cấp độ biến khi khai báo trong VBA Access a. Cấp độ phạm vi của biến * Có nhiều cấp độ khai báo biến trong VBA theo danh sách dưới: Dim keyword Static keyword Global keyword Public keyword Private keyword * Nhưng trong VBA chỉ cần nắm rõ 2 cấp độ biến nthì bạn đã xử lý hiệu quả phần mềm Access. - Cấp độ biến cá nhân (private) - Cấp độ biến Công cộng (public) Ngôn ngữ VBA là ngôn ngữ lập trình thu nhỏ của ngôn ngữ Visua Basic, nên cáhc viết đơn giản hơn nhiều so với Visua Basic, bởi vậy bạn cần phân biệt 2 cấp độ biến VBA sau sẽ giải quyết được mọi vấn đề trong VBA Access. Mình lấy ví dụ Trong đầu của tôi có 3 biến : - Họ tên của tôi: thì biến này là biến công cộng, tôi có thể chia sẽ cho bất kỳ ai. - Năm sinh của tôi: thì biến này là biến công cộng, tôi có thể chia sẽ cho bất kỳ ai. - Mật khẩu tài khoản ngân hàng, thì biến này là biến cá nhân, tôi sẽ không chia sẽ hay cho bất kỳ ai biết Ví dụ thực tế trong VBA Access: tạo Modu...
Đọc thêm

Ngôn ngữ VBA do ai sáng lập

  VBA là viết tắt của cụm từ Visual Basic for Application . Nó là một ngôn ngữ lập trình được phát triển bởi Microsoft . Excel là một phần của bộ Office, nó bao gồm luôn cả ngôn ngữ VBA mà không hề "tính thêm tiền". Có thể nói VBA là một công cụ mà những người như tôi và bạn dùng để phát triển chương trình ứng dụng trong Excel nói riêng và bộ Microsoft Office nói chung. Bạn đừng hiểu lầm VBA và VB (VB là viết tắt của cụm từ Visual Basic). VB là một ngôn ngữ lập trình giúp bạn tạo ra các chương trình ứng dụng có thể thực hiện độc lập. Mặc dù VBA và VB có nhiều cái chung, chúng hoàn toàn là hai ngôn ngữ khác nhau. Phải nói nó là ngôn ngữ 'già' nhất, chỉ những lập trình viên 4X trở lên mới còn yêu thích nó. LẬP TRÌNH VBA
Đọc thêm