Добрый день!
Помогите пожалуйста, у меня проблема написания кода для формы базы данных Access.
Есть основная форма, в которой есть поле со списком "ПолеСоСписком0" (список значений:"действующий";"недействующий"). В этой форме есть подчиненная форма "podp", созданная на основе главной таблицы и которая имеет все записи.
Необходимо отфильтровать по значению из поля со списком (например, значение "действующий") данные и вывести их на экран в подчиненной форме.
Что только не читала но до конца не получалось довести.
Private Sub ПолеСоСписком0_afterUpdate(Cancel As Integer)
Dim MyFilter As String
Dim MyVar As String
MyVar = ПолеСоСписком0.Value
Me![podp]![Active].Form.FilterOn = False 'Отмена предыдущего фильтра ежели применялся
MyFilter = "[Active] Like '" & MyVar & "'"
'ищем в поле "MyFieldName" - запись сходную с тем что находится в переменной MyVar
Me![podp]![Active].Form.Filter = MyFilter
Me![podp]![Active].Form.FilterOn = True
End Sub
Ответить
|