يا اخوانى
عملت الكود مرة عند تحميل نموذج الدخول بس البرنامج مصمم بشريط قوائم منفعتش بيعطل نموذج الدخول ويفتح نموذج over_date الخاص بالاقساط التى قاربت على السداد
Dim intStore As Integer
intStore = DCount("[tblID]", "[over_date1]", "[DateQest] <=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 "over_date", acNormal
Else
Exit Sub
End If
End If
عاوز طريقة بحيث افتح البرنامج عادى ثم تظهر الرسالة بدون ربطها على اى نموذج وبعد كده ان كان فيه اقساط منتهية افتح النموذج
over_date
دى صورة البرنامج لما يفتح