vba - 如何使用多个组合框对 DLookup 进行编码？

Question

我一直在努力解决如何在表单上编写 DLookup 代码。我有两个组合框（一个员工，一个培训班名称），如果员工已经上课，则需要弹出一个消息框。我从 Employee 表中获取记录，从 Training Class 表中获取一条记录，如果这两者的组合存在，我需要对他们已经上课的消息框进行编码。注意我不是 VBA 程序员；我接手了一个现有的 Access 数据库项目，所以我在学习 YouTube 和像这样的精彩社区委员会的过程中不断学习。

这是我尝试过的不起作用的方法：

Private Sub Date_Taken_BeforeUpdate(Cancel As Integer)

If Not IsNull(DLookup("[Training Classes Taken tbl].[Officer]", "[Training Classes Taken tbl]", "[Training Classes Taken tbl].[Officer] = '" & Me.Officer & "'") & "'AND Me.[Training Class Name]= '" & Me.[Training Class]) Then

MsgBox "Class already taken."

Cancel = True

End If
   Exit Sub  

Answer 1

DLookup 查找（“您想要的字段”、“它来自的表”和“查找字段和它应该是的值”）。所以，我可能会在按钮的点击事件中使用并尝试（假设办公室：

Dim varx as variant

varx = Dlookup("Officer", "[Training Classes Taken]", "[Training Class Name]='" & me.[Training Class] & "'")

if not IsNull(varx) then
    msgbox("you have already taken this course")
end if