DCount /检查Access DB字段中是否存在值

Question

我有一张表格，用户可以填写我们公司的新客户。该ID是手动分配的，因为它是E18年（例如今年）和5位数字的组合。因此E1800001可能是一个客户。我正在将其自动化。我拥有使号码分配自动化的代码，但是由于可以同时使用多个人，因此我们遇到了两个人获得相同号码的情况，并且遇到了重复错误。现在，我包含了另一个代码，该代码将在有人使用DCount将其击败的情况下检查分配的号码，但是该代码无法正常工作并给我：

  

RT错误2471。“您作为查询参数输入的表达式会产生此错误：”

这是我的代码：

Dim countNumber as Integer
Dim lookupNumber as Variant

lookupnumber = Me!Master_ClientNumber
countNumber = DCount("[Client Name]", "Master Client List", "[Client Number]= " & lookupNumber)

If countNumber > 0 Then
   MsgBox "That number is taken."
Else
   MsgBox "This number is free."
End If