نفع في انه يرفض الا باختيار من القائمة الاولى ولكن يعرض التقرير بدون ان نختار من القائمة الثانية
حيث القائمة الاولى نص والثانية رقم
If Len(Me.dd & "") = 0 Then
MsgBox "اختر اسم او صف من القائمة"
Exit Sub
Else
DoCmd.OpenReport "tgweemmstmr", acViewPreview, , "[alsaf]='" & Me.dd & "'"
End If
If Len(Me.sf & "") = 0 Then
MsgBox "اختر اسم او صف من القائمة"
Exit Sub
Else
DoCmd.OpenReport "tgweemmstmr", acViewPreview, , "[fsl]=" & Me.sf تم التعديل على الحقل رقمي
ولكن يواصل بعرض التقرير بدون التوقف لاختيار الحقل الثاني والمسمى sf من الاستعلام
End If
End Sub