[ تمت الإجابة ]المطالبة بملء كل مربعات النص فى النموذج قبل الإغلاق

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

أخي العزيز لنفترض بأن لديك بالنموذج الحقول التالية ( A , B ,C ) ...

في حدث عند الإغلاق للنموذج ضع الكود التالي :

If  IsNull(A) Then
MsgBox"لم تدخل الحقل A "
DoCmd.GoToControl "A"
Exit Sub
ElseIf  IsNull(B) Then
MsgBox"لم تدخل الحقل B "
DoCmd.GoToControl "B"
Exit Sub
ElseIf  IsNull(C) Then
MsgBox"لم تدخل الحقل C"
DoCmd.GoToControl "C"
Exit Sub
Else
DoCmd.Close
End If

آمل أن أكون أفدتك ... وكل عام وانت بالف خير

بارك الله بك اخي الفاضل ابو رهف على المساعده

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

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

Dim ctl As Control
         For Each ctl In Form.Controls
         If ctl.ControlType = acTextBox And ctl.Tag <> "zahrah"  Then
                If IsNull(ctl) Then
                MsgBox "لقد تركت حقل  " & ctl.Tag & "  فارغا"
                ctl.SetFocus
                End If
         End If
         Next ctl

اخوانى الأعزاء ....

جزاكم الله كل خير ،،،،،

كل عام و انتم بألف خير ، مشكوريين على ما قدمتوه لى

فى الحقيقة أنا أحس أنى فى و سط أهلى الحقيقين

أشكركم جزيلاً

و جعله الله فى ميزان حسناتكم

كود جميل واجتهاد طيب من أخونا أبو رهف.

وكود رائع وجامع من أختنا المبدعة دائماً زهرة.

جزاكما الله خيراً.

محمد ندا

ما اروع هذا الكود يا اخت زهرة

بوركت يداك و سلمك الله

سوف احتفظ بالكود لا ستخدمة في مشاريعي

تحياتي

بارك الله بكم جميعا

يمكن اضافة مربعات التحرير والسرد ComboBox ايضا للكود بحيث يقوم الكود بالبحث عن جميع مربعات النص وايضا مربعات التحرير والسرد الفارغة وابلاغ المستخدم عن الحقل الفارغ والقيام بالتركيز عليه .

Dim ctl As Control
 	For Each ctl In Me.Controls
 	If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox And ctl.Tag <> "zahrah" Then
 	If IsNull(ctl) Then
 	MsgBox "لقد تركت حقل " & ctl.Tag & " فارغا"
 	ctl.SetFocus
 	End If
 	End If
 	Next ctl

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

كل عام والجميع بألف خير

نعم يا "أستاذة الجميع، زهرة الخير" منك الخير كله

بارك الله فيك وسلمك من كل مكروه وشر

أبومحمد

بسم الله الرحمن الرحيم

بارك الله فيك اختنا زهرة

كود اكثر من رائع

sx1 كتب:

بسم الله الرحمن الرحيم

بارك الله فيك اختنا زهرة

كود اكثر من رائع

بقى شئ بسيط .. كيف نمنع الكود من المرور على المربعات غير المتاحة Enabled=False ؟؟ لأنه يعطى رسالة خطأ عندما يصادف أحدها .. ولم يستجب لمحاولة تعديلى.

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

ماشاء الله لاقوة الا بالله اخت زهرة

الصراحة كل ماتقدميه رائع

جزاك الله خيرا