ник: corvin-nik
У меня на каждой форме в Акцессе 2007 автоматом есть поле "поиск", где по первым введенным буквам отображается на форме нужная запись. А в Акцессе 2003, который на работе - такого поля нет. Хотелось бы такое же реализовать с обычным полем. Чтобы не нажимать постоянно для поиска Ctrl+F.
Нашел такой вот пример:
Private Sub MyTextBox_Change()
Dim rst As DAO.Recordset, intI As Integer
Set rst = Form.Recordset
rst.FindFirst "[MyField] like '" & MyTextBox.Text & "*'"
Debug.Print rst.NoMatch
MyTextBox.SelStart = Len(MyTextBox.Text)
End Sub
|
Но у меня выпадает ошибка 3077 (пропущен оператор в выражении).
Подскажите что можно сделать.