اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by ابوخليل,

الردود الموصى بها

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

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

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

  • Confused 1
رابط هذا التعليق
شارك

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

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

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

  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

__bb-4 - Copy.accdb

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information