oops! попытайтесь это:
Затемните strWhere2 как шнур
'Построьте вверх по шнуру SQL дальше - - муху
strWhere2 = «1=1»
Если не IsNull (Me.ID) после этого
strWhere2 = strWhere2 & «И удостоверение личности =» & Me.ID
Закончитесь если
docmd.openform «comform», strWhere2