التحقق من ادخالات المستخدم

أخي snmdody

استخدم خاصية نص التحقق من الصحة

وضع فيه مثلاً :

> ""

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

الف شكر اخوي مهند وارجو ان لا اكون قد اكثرت في الاسئلة

اقتباس

واريد كذلك كود يقوم بالتحقق من جميع الحقول سواء كان حقل نصي أو كومبوبكس .. الخ وذلك قبل قيامه بعملية الحفظ .

اقتباس

واريد كذلك كود يقوم بالتحقق من جميع الحقول سواء كان حقل نصي أو كومبوبكس .. الخ وذلك قبل قيامه بعملية الحفظ .

ماذا تقصد بالتحقق ؟؟؟

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

اكتب الكود التالي عند الحفظ cmdSave_Click

 dim CtlTextBox as Control 
 For each CtlTextBox In Me.Controls 

if CtlTextBox.ControlType=acTextBox Then 
           If ISNULL(CtlTextBox) Then 
                msgbox(" Missing Field " ) 
CtlTextBox.Setfocus

Exit Sub 
End if 
End if 

Next CtlTextBox 

MsgBox " ALL FIELDS ARE ASSIGNED, THANKS !"

dim CtlTextBox as Control

For each CtlTextBox In Me.Controls

if CtlTextBox.ControlType=acTextBox Then

If ISNULL(CtlTextBox) Then

msgbox(" Missing Field " )

CtlTextBox.Setfocus

Exit Sub

End if

End if

Next CtlTextBox

MsgBox " ALL FIELDS ARE ASSIGNED, THANKS !"

كود جميل بس لا تخليه يسوي اكزت بعد اول نص فارغ

اا كان عندك اكثر من نص فارغ يعمل الكود لاول واحد فقط

تحياتي

هذا الكود للخبير أبو هادي .

Private Sub Form_BeforeUpdate(Cancel As Integer)
 Dim Ctrl As Control
    
 For Each Ctrl In Me.Controls
   With Ctrl
     If .ControlType = acTextBox Or _
        .ControlType = acComboBox Or _
        .ControlType = acListBox Or _
        .ControlType = acOptionGroup Then
       
       If .Visible And _
          .Enabled And _
          .Locked = False And _
          (Not .ControlSource Like "=*" And .ControlSource <> "") Then
         
         If IsNull(Ctrl) Then
          'If .Tag = "Check Null" Then
             MsgBox "لقد تركت أحد الحقول فارغا"
             Cancel = True
             .SetFocus
             Exit For
          'End If
         End If
       End If
     End If
   End With
 Next Ctrl
End Sub

بدأ الكود الأخ العزيز محمد طاهر وتم التعديل عليه بمعرفة أبو هادي .

أشرف خليل

بارك الله فيكم جميعاً وما قصرتم

لقد ارفقت برنامج صغير وذلك ليتمكن احدكم مشكوراً من إجراء المطلوب حيث تظهر لي رسالة خطأ عن عمل أي من الاكواد المشار إليها أعلاه والمطلوب هو حسب الاتي :

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

أرجو تجربة النموذج وملاحظة رسالة الخطأ التي تظهر بمجرد الضغط على زر (اضافة) مثلا

شاكراً ومقدراً حسن تجاوبكم معي في هذا الموضوع

Sample.rar

شكرا للأخ أشرف خليل على رده, وشكرا للأخ أبو هادى على الكود الرائع