Chức năng: Truy xuất một giá trị từ bảng hoặc truy vấn
Cú pháp DLookup:
DLookup(expr, domain, [criteria])
expr: Tên trường bạn muốn lấy giá trị.
domain: Tên bảng hoặc truy vấn.
criteria: (tùy chọn) điều kiện lọc (giống mệnh đề WHERE trong SQL).
Ví dụ:
' Lấy tên khách hàng có ID = 1
Dim tenKH As String
tenKH = DLookup("TenKH", "KhachHang", "MaKH = 1")
Chức năng: Đếm số bản ghi thỏa điều kiện
Cú pháp DCount:
DCount(expr, domain, [criteria])
Ví dụ:
' Đếm số hóa đơn của khách hàng có ID = 1
Dim soHoaDon As Integer
soHoaDon = DCount("*", "HoaDon", "MaKH = 1")
Chức năng: Tính tổng
Cú pháp DSum:
DSum(expr, domain, [criteria])
Ví dụ:
' Tổng tiền của các hóa đơn trong tháng 1
Dim tongTien As Currency
tongTien = DSum("TongTien", "HoaDon", "Month(NgayLap) = 1")
Chức năng: Tính trung bình
Cú pháp DAvg:
DAvg(expr, domain, [criteria])
Ví dụ:
' Trung bình điểm môn Toán của học sinh lớp 10A
Dim tbToan As Double
tbToan = DAvg("DiemToan", "BangDiem", "Lop = '10A'")
Chức năng: Giá trị lớn nhất / nhỏ nhất
Ví dụ:
' Tuổi lớn nhất trong bảng NhânVien
Dim tuoiMax As Integer
tuoiMax = DMax("Tuoi", "NhanVien")
Để tính toán, hay xử lý liên quan đến table / query ta vận dụng các hàm trong VBA cung cấp sẵn khi lập trình phần mềm.