У меня есть форма, которую пользователи заполняют для новых клиентов нашей компании.Идентификатор назначается вручную, потому что это составная часть года E18, например, этого года, и пятизначное число.Так что 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