وده كود ممكن تضعه فى وحده نمطيه وتستدعيه لاى حقب فى النموذج شرح اختنا زهره
ومرفق الملف الخاص به
بارك الله بكم جميعا اخواني الكرام
يمكن استخدام هذه الوظيفة الخاصه في النموذج في اي مكان من احداث النموذج سواء عند فقد التركيز او عند سجل جديد او قبل التحديث او عند الخروج او اي حدث تريده
Private Function zaNoEmptyTextbox()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
If IsNull(ctl) Or ctl = "" Then
MsgBox "فارغا " & ctl.name & " اخي الكريم .. لقد تركت حقل "
DoCmd.CancelEvent
ctl.SetFocus
Exit For
End If
End If
Next ctl
End Function
سيقوم الكود بأخذ دوره كامله على جميع حقول النص في النموذج ويبلغك برساله ما هو الحقل الفارغ الذي يجب عليك تعبئة البيانات به وعدم تركه فارغ ثم يضع التركيز عليه
وسيكون استدعاء الوظيفة في اي حدث كالتالي
Call zaNoEmptyTextbox
zaعدم ترك احد الحقول فارغ.rar