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

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

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

[النجاشي]

  في 10‏/5‏/2017 at 21:26, حمادة عثمان said:

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

Expand  

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

 

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]

  في 10‏/5‏/2017 at 22:46, حمادة عثمان said:

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

Expand  

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

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

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

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

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

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

تحياتي

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

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

[Shivan Rekany]

  في 11‏/5‏/2017 at 11:19, حمادة عثمان said:

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

Expand  

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

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

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

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

[Amr Ashraf]

  في 11‏/5‏/2017 at 11:25, Shivan Rekany said:

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

Expand  

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

  في 11‏/5‏/2017 at 11:54, حمادة عثمان said:

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

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

Expand  

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

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

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

[Shivan Rekany]

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

 

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

  في 11‏/5‏/2017 at 12:16, Amr Ashraf said:

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

Expand  

للاسف لم يفلح

[Amr Ashraf]

  في 12‏/5‏/2017 at 11:16, حمادة عثمان said:

للاسف لم يفلح

Expand  

ارفق القاعدة

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

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

[Amr Ashraf]

  في 12‏/5‏/2017 at 11:19, حمادة عثمان said:

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

Expand  

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

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

3.rar

[Amr Ashraf]

  في 12‏/5‏/2017 at 11:20, حمادة عثمان said:

3.rarFetching info...

Expand  

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

4.rarFetching info...

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

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

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

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

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

[Amr Ashraf]

  في 12‏/5‏/2017 at 11:32, حمادة عثمان said:

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

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

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

Expand  

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

 

 

4.rar