Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Lukas
Dim rst As DAO.Recordset With Me.cmb1 Set rst = .Recordset If rst Is Nothing Then .SetFocus .Dropdown Set rst = .Recordset End If End With With rst .FindFirst .Fields(1).Name & "='" & Me.txt1 & "'" 'ищем во втором столбце источника комбобокса значение-строку If Not .NoMatch Then MsgBox "Есть :)" Else MsgBox "Нету :(" End If End With Set rst = Nothing
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.