Почему я получаю ошибку несоответствия данных в моем коде VBA - PullRequest
0 голосов
/ 31 января 2019

Недавно я добавил код, чтобы выделить красным текстовое поле, которое пользователь не заполнил.Я также добавил код, который предупредит их с помощью окна сообщения.У меня есть этот код dcount, но когда я нажимаю кнопку запуска, чтобы выполнить запрос, я получаю «Несоответствие типов данных в выражении критериев» всякий раз, когда пользователь оставляет текстовое поле пустым.Можете ли вы помочь мне с моим кодом?Я получаю сообщение об ошибке:

Если DCount ("*", "Final - Union Query 07 & 08")> 0 Тогда

Private Sub Command2_Click()
 If DCount("*", "Final - Union Query 07 & 08") > 0 Then
    Me!results.Requery
 ElseIf IsNull(Me.master_bill_a.Value) Or (Me.master_bill_a.Value = "") 
 Then
     MsgBox ("All criteria must be filled in the form")
    Me.master_bill_a.BorderColor = vbRed
    DoCmd.GoToControl "master_bill_a"
  ElseIf IsNull(Me.cash_date_a.Value) Or (Me.cash_date_a.Value = "") Then
    MsgBox ("All criteria must be filled in the form")
    Me.cash_date_a.BorderColor = vbRed
    DoCmd.GoToControl "cash_date_a"
  ElseIf IsNull(Me.billing_date_s) Then
    MsgBox ("All criteria must be filled in the form")
    Me.billing_date_s.BorderColor = vbRed
    DoCmd.GoToControl "billing_date_s"
 Else
    MsgBox ("There are no results to display. This may be an overpayment or 
 the wrong information was entered in the form.")

 End If
 End Sub

1 Ответ

0 голосов
/ 31 января 2019

Вам нужны скобки для этого странного имени таблицы:

If DCount("*", "[Final - Union Query 07 & 08]") > 0 Then
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...