VBA, если заявление до выполнения SQL?

Question

Как правильно написать оператор if в MS Access VBA, который проверяет, равно ли значение в текстовом поле, расположенном в форме, записи в столбце таблицы?

Форма называется FormExampleимеет текстовое поле с именем TextBoxExample.Таблица называется Table1, а обновляемая запись - TestTrial, где столбец NumberValue соответствует содержимому TextBoxExample.

Если он равен, чем выполнить следующий запрос SQL:

UPDATE Table1 SET Table1.TestTrial = "Test11"
WHERE (((Table1.NumberValue)=[Forms]![FormExample]![TextBoxExample]));

Если не отображается следующее сообщение:

MsgBox "Sorry" & _
            vbCrLf

Answer 1

Чтобы проверить, является ли значение в текстовом поле таким же, как в таблице, используйте DCount() (DLookup() также возможно).Я предполагаю, что ваше текстовое поле имеет значение Double, потому что ваше значение называется NumberValue.

Dim textboxValue As Double
Dim lookupValue As Double

textboxValue = Me!TextBoxExample.Value
lookupValue = DCount("TestTrial", "Table1", "NumberValue = " & textboxValue)

If Not lookupValue = 0 Then
  Msgbox "One or more records where found."
Else
  Msgbox "No record was found."
End If