ник: kot_k_k
на событие открыть формы все_авто - повесь проверку открыта ли форма ТО, если да то включить фильтр в форме авто.
If FormIsOpen_My("ТО") = True Then
str_Filte = "kod_avto = " & forms!ТО!kod_avto
Me!авто.Form.FilterOn = False
авто.Form.Filter = str_Filte
авто.Form.FilterOn = True
end if
Function FormIsOpen_My(ParamArray Ar())
FormIsOpen_My = (SysCmd(acSysCmdGetObjectState, acForm, Ar(0)) And acObjStateOpen) <> False
End Function
|