Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Stanislav Еще вариант. Без использования наборов записей. Используя источник данных комбобокса, заполняем данными временную таблицу. И функцией dcount проверяем, есть ли там искомое значение.
Private Sub CheckButton_Click() DoCmd.RunSQL "DELETE Table1Draft.* FROM Table1Draft" DoCmd.RunSQL "INSERT INTO Table1Draft " & Me.ValueList.RowSource If DCount("TextField", "Table1Draft", "TextField='" & Nz(Me.SearchText, "") & "'") > 0 Then MsgBox "Значение найдено!", vbInformation Else MsgBox "Совпадений нет!", vbInformation End If End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.