ms-access vba-access Dlookup 错误 3464 无法获取代码运行

Question

我试图确保一个记录表中的值不会在另一个表中删除。

我有一个表，其中包含一条名为"设置"的记录。 我有第二张桌子，上面有唯一ID(工作编号(，称为Courier。

在继续使用代码之前，我正在尝试确保表设置中的值报价号不会在表Courier中的作业编号中消失。 为了测试这一点，我创建了以下内容。

Private Sub Knop0_Click()
Dim db As Database
Dim Mytable As Recordset
Set db = CurrentDb()
Set Mytable = db.OpenRecordset("settings")
Set Quote = Mytable!Quotenumber
If DLookup("[jobnumber]", "[courier]", "[jobnumber]= " & Quote) > 0 Then MsgBox "its in there" Else MsgBox "its not in there"

End Sub

运行代码时出现错误 3464。 我发现问题出在"报价"上，并尝试使用几个 Dim 来解决这个问题，但我就是无法让它工作。

请注意，我对 VBA 的经验很低，对于我编写的每一行代码，我都必须进行广泛的研究。我对 DIM 的确切工作原理知之甚少。

Answer 1

尝试：

If IsNull(DLookup("[jobnumber]", "[courier]", "[jobnumber]= " & Quote & "") Then 
MsgBox "its not in there" 
Else 
MsgBox "its in there"
End If

如果作业编号是文本，则：

If IsNull(DLookup("[jobnumber]", "[courier]", "[jobnumber]= '" & Quote & "'") Then