كود لعدم ترك الحقول فارغة

[حمادة عثمان]

اريد كود لعدم ترك بعض الحقوق الضرورية فارغة بخلاف الموجودة بخصائص الجدول

[النجاشي]

40 دقائق مضت, حمادة عثمان said:

اريد كود لعدم ترك بعض الحقوق الضرورية فارغة بخلاف الموجودة بخصائص الجدول

اطلع على هذا  الكود لعلا يفيدك

 

Dim ctlNull As Control
Dim i
For Each ctlNull In Me.Controls
If ctlNull.ControlType = acTextBox Then
If IsNull(ctlNull) Then
i = ctlNull.Name & vbCrLf & i
End If
End If
Next ctlNull
MsgBox i, , " الحقـــول الفارغـــــه 

تم تعديل مايو 10, 2017 بواسطه ابو زاهر

[حمادة عثمان]

اين يتم وضع هذا الكود

[Shivan Rekany]

6 ساعات مضت, حمادة عثمان said:

اين يتم وضع هذا الكود

استأذن من الاستاذ @ابو زاهر

اخي حمادة اكتب الكود في اي مكان تريد

اذا تريد وضع في زر حقل جديد

او عند خروج من احد الحقول

لكن من الافضل ان تضع في فورم قبل تحديث

هناك ملاحظة : الكود فقط لا يخليك ان يخلي المربع النصي فارغا اما كومبو بوكس و ليست بوكس ما بها علاقة

تحياتي

[حمادة عثمان]

اذا كنت اريد ان اطبق ذلك على حقول معينة فقط فى النموذج فكيف

[Shivan Rekany]

4 دقائق مضت, حمادة عثمان said:

اذا كنت اريد ان اطبق ذلك على حقول معينة فقط فى النموذج فكيف

اكتب لي اسماء الحقول 

[حمادة عثمان]

student name  & gender & faculty & class منهم حقول كومبوبوكس

ولا اريد تطبيقه على حقل phone number

[Amr Ashraf]

47 دقائق مضت, Shivan Rekany said:

اكتب لي اسماء الحقول 

استأذنك أخى شيفان فى افادة الاخ صاحب الموضوع

18 دقائق مضت, حمادة عثمان said:

student name  & gender & faculty & class منهم حقول كومبوبوكس

ولا اريد تطبيقه على حقل phone number

فيه طريقة اسهل شوف الحقل اللى انتا عاوز تطبق عليه الكود سواء تكست بوكس أو كومبوبوكس  فى حدث BeforeUpdate اكتب الكود التالى مع تغيير المسميات

If IsNull(Me.Gender) then Cancel = Msgbox ("لا يمكن ترك هذا الحقل فارغ")

جرب ووافنا بالنتيجة

[Shivan Rekany]

اذنك معك سيد @Amr Ashraf 

 

[حمادة عثمان]

22 hours ago, Amr Ashraf said:

جرب ووافنا بالنتيجة

للاسف لم يفلح

[Amr Ashraf]

الان, حمادة عثمان said:

للاسف لم يفلح

ارفق القاعدة

[حمادة عثمان]

سوف ارفق النموذج فقط لان القاعدة حجمها كبير

[Amr Ashraf]

الان, حمادة عثمان said:

سوف ارفق النموذج فقط لان القاعدة حجمها كبير

ايوه ارفق النموذج بس

[حمادة عثمان]

3.rar

[Amr Ashraf]

10 دقائق مضت, حمادة عثمان said:

3.rar

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

4.rar

تم تعديل مايو 12, 2017 بواسطه Amr Ashraf

[حمادة عثمان]

انا طبقت على القاعدة الاساسية والمثال اللى انا بعته كنت ضاغطه من فترة

لما بضغط على حفظ بيحفظ عادى بس لما بقفل النموذج بيظهرلى رسايل الاكسس لانى عامل فى خصائص الجدول ان الحقول دى ضرورية

انا كنت عايزك تطبقلى انت الكود فى المثال دة

[Amr Ashraf]

1 دقيقه مضت, حمادة عثمان said:

انا طبقت على القاعدة الاساسية والمثال اللى انا بعته كنت ضاغطه من فترة

لما بضغط على حفظ بيحفظ عادى بس لما بقفل النموذج بيظهرلى رسايل الاكسس لانى عامل فى خصائص الجدول ان الحقول دى ضرورية

انا كنت عايزك تطبقلى انت الكود فى المثال دة

شوف الكود متطبق فى المثال !!!!  متنساش تضغط كلمة Enable Content فى الشريط الأصفر لو ظهرت !!!

 

 

4.rar