Администратор Буржуин проклятый
|
Diam0nD - аксесса у меня под рукой нет, к сожалению, так что помочь могу только теоретически.
Есть несколько способов сделать то, что тебе нужно.
Если поиск предполагается делать по какому то одному полю, то можно указать значение текстового поля формы, где вводятся данные, в качестве критерия для запроса, лежащего в основе таблицы подчиненной формы, и по нажатию кнопки "Поиск" просто обновлять подчиненную форму.
Если поле, по которому производится поиск, может быть произвольным, то тебе нужно создать процедуру, которая будет накладывать соответствующий (в зависимости от указанных на основной форме данных) фильтр на таблицу подчиненной формы - что то типа следующего:
Private Sub buttonFind_Click ()
Dim stringFieldName
Dim stringFieldValue
stringFieldName = Me.comboboxFieldsList.Value
stringFieldValue = Me.textboxSearchCriteria.Value
Forms![subformWithData].Filter = stringFieldName & " = """ & stringFieldValue & """"
Forms![subformWithData].FilterOn = True
End Sub
Здесь comboboxFieldsList - комбобокс со списком возможных полей, по которым ведется поиск, textboxSearchCriteria - текстовое поле для ввода критерия поиска, subformWithData - подчиненная форма, содержащая таблицу с данными.
За верность синтаксиса не ручаюсь, с аксессом в последний раз работал лет пять назад
|