اقفال نموذج بناءاً علي شرط

[يوسف السيد]

السلام عليكم

في حدث اغلاق النموذج هل يمكن وضع شرط بحيث اذا تحقق يتم اغلاق النموذج

وفي حالة عدم التحقق لا يتم اغلاق النموذج

علي سبيل المثال كالتالي

Private Sub Form_Close()
If (smdebit - smcredit) = 0 Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Else
MsgBox "not ok", , "wrong"
Exit Sub
End If
End Sub

 

[sandanet]

تفضل 

example.mdb

[ابو جودي]

4 ساعات مضت, sandanet said:

تفضل 

example.mdb

وايه رايك يكون الكود كده يا استاذ @sandanet 

If (Me.smdebit - Me.smcredit) <> 0 Then
MsgBox "not ok", , "wrong"
Cancel = True
Exit Sub
Else
End If

 

example.mdb

[sandanet]

نعم استاذي الفاضل ابا جودي ماتفضلت به افضل بكثير من ناحية تقليل كمية الاكواد المستخدمة .. لكني احببت ان ابين للأستاذ يوسف حالة التراجع عن الاضافة الى الجدول ايضاً في حال عدم تحقق الشرط

تم تعديل مارس 4, 2018 بواسطه sandanet

[يوسف السيد]

الاستاذ الفاضل sandanet شكرا علي كل حلولك الرائعة واكوداك الجميلة وقبل هذا اخلاقك الرفيعة

الاستاذ ابا جودي شكرا علي هذا الكود الجميل والحل الرائع

 

 

[ابو جودي]

[sandanet]