استاذ محمد طلب اخير ... ارجوا ان تلقي نظره على الكود في زر التسديد في نموذج التسديد ... لا اعرف اين الخلل.. الشكر موصول للاستاذ قاسم ...
If IsNull([نوع العمله]) Then
MsgBox ("خانة نوع العمله فارغة يرجى املائها")
DoCmd.CancelEvent
Else
If IsNull([تاريخ التسديد]) Then
MsgBox ("خانة تاريخ التسديد فارغة يرجى املائها")
DoCmd.CancelEvent
Else
If IsNull([التسديد]) Then
MsgBox ("خانةالتسديد فارغة يرجى املائها")
DoCmd.CancelEvent
Else
If [التسديد] > [نص28] And [نوع العمله] = "دولار" Then
MsgBox ("مبلغ التسديد بالدولار اكبر من مبلغ الدين بالدولار")
DoCmd.CancelEvent
Else
If [التسديد] > [نص30] And [نوع العمله] = "دينار" Then
MsgBox ("مبلغ التسديد بالعراقي اكبر من مبلغ الدين بالعراقي")
DoCmd.CancelEvent
Else
Dim r
r = MsgBox("انت على وشك تسديد الدين", vbYesNo, "تحذير")
If r = vbYes Then
DoCmd.Close acForm, "التسديد"
DoCmd.Close acForm, "نموذج1"
DoCmd.OpenForm "نموذج1"
MsgBox ("تم ادخال المبلغ بنجاح")
Else
If r = vbNo Then
MsgBox ("تم التراجع عن ادخال المبلغ")
DoCmd.CancelEvent
End If
End If
End If
End If
End Sub
alruan.rar