Люди!!!! Помогите ламмеру!!! Как сделать переход на определённую запись в форме при помощи поля со списком. Ответы из серии откройте форму "Сотрудники" из учебной базы "Борей" не канают (то есть всё работает но только в Борее а не в моей базе) Пробывал всё : и модули импортировал и создавал при помощи мастера поле со списком (но там в первом окне всего 2!!!!! опции 1. источник запрос или таблица и 2.Фиксированный набор записей!!!! Надо что-то писать в AfterUpdate, но что???? Или может макрос какой???? PLEASE!!!!! HELP!!!!
P.S. среда MS ACCESS 2003
Источник: http://www.leadersoft.ru/rusboard/data/4178.htm
В архиве: http://help.leadersoft.ru/Загрузка/tabid/75/Default.aspx (раздел поиск) можно загрузить пример.
Идея следующая:
'============================================================== ' Поиск по дате Private Sub Дата_AfterUpdate() Dim rst As Recordset, frm As Form On Error GoTo 999 Set frm = Me.формаПоиск.Form 'Выбираем форму Set rst = frm.RecordsetClone 'Выбираем таблицу rst.FindFirst "([Дата]=#" & Format(Me.Дата, "mm\/dd\/yyyy") & "#)" If rst.NoMatch = False Then frm.Bookmark = rst.Bookmark Me.Книга = rst!Книга Else MsgBox "Нет данных!" End If Exit Sub 999: MsgBox Err.Description & vbNewLine & "Введите правильно данные?" End Sub
