访问验证如果值不存在，则不能在另一个表中输入一个表

Question

我有两个可访问的表，一个是包含发票的主表，称为tblinvoices。发票编号在inv字段中。另一个是我们路由发票的地方，称为tblroute。发票字段名称相同。如果用户在tblroute inv字段中不存在的thetblinvoices inv字段中输入发票编号。

我希望它提示发票号不存在。

我尝试了所有类型的代码来呈现所需的结果 代码：

Private Sub INV__BeforeUpdate(Cancel As Integer)

 Dim Answer As Variant
 Answer = DLookup("[inv]", "tblinvoices", "[inv] = '" & Me.inv & "'")
 If IsNull(Answer) Then
 MsgBox "Invoice number does not exist!!" & vbCrLf & "PLease ipdate invoice tables.", vbCritical + vbOKOnly + vbDefaultButton1, "Invalid Invoice#"

 Cancel = True
 Me.inv.Undo


 Else:
 End If
End Sub

Answer 1

您的发票编号很可能是数字 ，因此没有引号：

Answer = DLookup("[inv]", "tblinvoices", "[inv] = " & Me.inv & "")