تعبئة حقل ... اجباري فيه قيمة

[salah.sarea]

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

مساكم الله بالخير

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

[ابو جودي]

هو ممكن بس اذا فيها قيمه شو الحكمة ؟

[salah.sarea]

حياك الله اخي ابو جودي 

وضعت قيمة ( فارغ ) برقم صفر لانه رفض يعمل لي استعلام تجميع حسب فاضطررت عمل الصفر 

[TQTHAMI]

CurrentDb.Execute "Update Tbl_re1 set w = 0"
Msgbox "تم الاستبدال"

هذا كود استبدال القيمة بصفر او ضع القيمة المناسبة 

الكود للأخ  Moosak

[salah.sarea]

اريد حل لتعبئة اجباري لحقل فيه قيمة 

[ابوخليل]

اذا القيمة ثابته يمكن بناء الشرط عليها

والافضل ترفق مثال حسب حاجتك  وتطلب التعديل عليه

[salah.sarea]

وهذا المثال 

‏‏bb-1.accdb

[ابوخليل]

اليك الحل بطريقتين

الطريقة الاولى من خلال حقول النموذج

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then
If IsNull(ctl.Value) Or ctl.Value = 0 Then
Undo
MsgBox "لا يمكنك ترك احد الحقول فارغا"
Exit Sub
End If
End If
Next ctl

والثانية من خلال حقول الجدول

Select Case DataErr
Case 2113
End Select
Response = acDataErrContinue
MsgBox "لطفا لا يمكنك ترك احد الحقول خاليا", vbOKOnly, "تنبيه!!"
Exit Sub

 

Downloads.rar

[salah.sarea]

جزاك الله خير استاذي الكريم ابوخليل . عندي ملاحظة بسيطة هل ممكن ان اخصص ذلك الكود على حقل معين وليس كل الحقول ... وسامحني اتعبتك معي

[ابوخليل]

اي المثالين تريد ؟

من خلال الجدول او من خلال الفورم ؟

وما الحقل الذي تريد التطبيق عليه ؟

[salah.sarea]

المثال الاول

المثال الاول - الادارة

[ابوخليل]

If IsNull([الادارة]) Or [الادارة] = 0 Then
Undo
MsgBox "لا يمكنك ترك الحقل فارغا"
Exit Sub
End If

حاول ان تغلق النموذج بعد ان تترك حقل الإدارة فارغا

ثم اذهب الى الجدول وانظر .. لن يتم حفظ السجل

__bb-4 - Copy.accdb

[salah.sarea]

جزاك الله خير اخي الكريم ابوخليل ما قصرت