بهتره کوئری را با make tableبه جدولی مثلا q تبدیل کنی و فرم رو به اون بوند کنی و کدهای زیر رو به یه منو یا ماکرو یا ..... انتساب کنی
DoCmd.SetWarnings False
DoCmd.OpenQuery "Query1", acViewNormal, acEdit
DoCmd.OpenForm "Query1", acNormal, "", "", , acNormal
اگه می خوای در صورت خالی بودن فرم ظاهر نشه
if dcount("*","q")>0 then
[LTR]DoCmd.SetWarnings False
DoCmd.OpenQuery "Query1", acViewNormal, acEdit
if dcount("*","q")>0 then
DoCmd.OpenForm "Query1", acNormal, "", "", , acNorma
else msgbox"null record"
end if
l[/LTR