عاوز كود يمنع ترك اى حقل فى النموذج ان يكون فارغ

[ahmed-saad]

السلام عليكم ورحمة الله وبركاتة

عاوز كود يمنع ترك اى حقل فى النموذج ان يكون فارغ

مع الشكر

تحياتى للجميع

[أبوبسمله]

مرفق ملف لاختنا زهره

اطلع عليه

 

بالتوفيق

za-NoEmpty.rar

[أبوبسمله]

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

ومرفق الملف الخاص به

 

بارك الله بكم جميعا اخواني الكرام

يمكن استخدام هذه الوظيفة الخاصه في النموذج في اي مكان من احداث النموذج سواء عند فقد التركيز او عند سجل جديد او قبل التحديث او عند الخروج او اي حدث تريده
 

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

تم تعديل يناير 3, 2015 بواسطه طالب علم مبتدىء

[ahmed-saad]

اولا شكرا على تفاعلك معى اخى الكريم انا جربة الملف الاول وكان هو المطلوب بضبط

 

اشكرك مرة ثانية وفقك الله لكل خير وغفر لك ولوالديك والمسلمين والمسلمات