الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه خالد العنود في 29 نوفمبر 2009 · 10 رد · 858 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أعزائى مشرفى قسم الأكسس

تحية طيبة لكم

حياكم الله و بارك جهودكم فى خدمة أمتكم الاسلامية ، و جعله الله فى ميزان حسناتكم يوم تعز الحسنات

أرجوكم إخوانى أنا عملت نموذج و أرغب عند نقر زر اغلاق النموذج أن يظهر لى رسالة يخبرنى بأن أحد مربعات النص فارغاً و يخيرنى أن استكمل هذة المربعات الفارغة أو أحذف هذا السجل

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

#2

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

أخي العزيز لنفترض بأن لديك بالنموذج الحقول التالية ( 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

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

تم تعديل هذه المشاركة بواسطة أبو رهف في 29 نوفمبر 2009 في 15:34

(`'•.¸(` '•. ¸ * ¸.•'´)¸.•'´)

«´¨`.¸ أبو رهـــــــف ¸.´¨`»

(¸. •'´(¸.•'´ * `'•.¸)`'•.¸ )

¸.•’’ ’’

( `•.¸

`•.¸

#3

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

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

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

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
1
#4

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

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

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

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

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

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

#5

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

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

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

محمد ندا

... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...

#6

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

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

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

تحياتي

post-157080-12622582839684.jpg

#7

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

يمكن اضافة مربعات التحرير والسرد 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

تم تعديل هذه المشاركة بواسطة zahrah في 2 ديسمبر 2009 في 11:08

1
#8

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

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

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

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

أبومحمد

#9

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

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

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

#10
sx1 كتب:

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

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

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

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

... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...

#11

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

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

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

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

استغفر الله العظيم واتوب اليه

مواضيع مشابهة