اخي الفاضل هذا الكود كامل سوف اشرحه لك
intStore = DCount("[num_Contract]", "[Qry]", "[Date_End] <=Date()+3 AND [check1] =0 ")
If intStore = 0 Then Exit Sub Else If MsgBox("يوجد شخص أو أكثر قاربت عقودهم على الانتهاء" & vbCrLf & _ "هل تريد رؤيتهم", _
vbExclamation + vbYesNo, _ "العقود المنتهية") = vbYes Then DoCmd.Close acForm, "Indx", acSaveYes DoCmd.OpenForm "FrmView", acNormal
Else Exit Sub End If