سلام دوستان
من داخل برنامه ام فرمی دارم که عملیات ثبت و ویرایش و جستجوی را از روی آن انجام میدهم ( شکل 1 ) عملیات جستجوی شماره پروژه رو با دستورهای زیر انجام میدهم
()Private Sub FindPro_Click
If IsNull(Find) Or Find = "" Then
MsgBox "کاربر گرامي : لطفا شماره پروژه را وارد کنيد " & vbCrLf, vbOKOnly + vbMsgBoxRight + vbInformation, " نرم افزار کنترل پروژه"
Find.SetFocus
Else
Then "لغو جستجو" = If FindPro.Caption
Me.FilterOn = False
" جستجو"=FindPro.Caption
" "=Find.Value
NumPro.BackColor = vbWhite
Else
DoCmd.OpenForm "FrmSabt", acNormal, , "[NumPro]=" & Find.Value
"لغو جستجو"= FindPro.Caption
NumPro.BackColor = vbYellow
End If
End If
مشکلی که دارم اینکه اگر شماره پروژه ای که ثبت نشده است رو جستجو کنم به جای اینکه فیلد شماره پروژه رو خالی نشون بده ، فرمم به صورت ( شکل 2 ) در میاد و کلیه فیلدها و ابجکتها به حالت مخفی در میاد .
ممنون میشم راهنمائی کنید که بدونم مشکل کجاست