كيف اجعل الحقول اجباري تعبيتها

[abuhamad500]

السلام  عليكم ورحمه الله

مرفق نموذج فيه حقول رقم الهوية واسم المستخدم  والسيارة

المطلوب

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

كيف اعمل دالة function  كيف اعملها الدالة هذي يعني كيف اجعل الدالة هذي تظهر في منشي التعليمات البرمجيه

تفويض.accdb

تم تعديل أكتوبر 18, 2020 بواسطه abuhamad500
نسيت بعض الاضافات

[محمد أبوعبدالله]

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

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

     If IsNull([textbox1]) Then
         DoCmd.CancelEvent
        MsgBox "ادخل بيانات في حقل ....", vbInformation, "officena"
        DoCmd.GoToControl "textbox1"
    End If

 

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

Private Sub Form_Error(DataErr As Integer, Response As Integer)
  If DataErr = 3022 Then
        MsgBox "بيانات خطأ", vbInformation, "officena"
        DoCmd.CancelEvent
        Me.Undo
        Response = acDataErrContinue
  End If
  If DataErr = 3314 Then
        MsgBox "بيانات خطأ", vbInformation, "officena"
        DoCmd.CancelEvent
        Me.Undo
        Response = acDataErrContinue
  End If
  If DataErr = 3317 Then
        MsgBox "بيانات خطأ", vbInformation, "officena"
        DoCmd.CancelEvent
        Me.Undo
        Response = acDataErrContinue
  End If
End Sub

تحياتي

[د.كاف يار]

تفضل هذا التعديل اخي الكريم

تفويض.accdb

[abuhamad500]

 

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

تم تعديل أكتوبر 19, 2020 بواسطه abuhamad500
تعديل

[عبدالقدوس48]

تفضل هذا الكود

Dim msg1, msg2 As String
msg2 = "عزيزي المستخدم " & vbNewLine & "يرجى تعبئة الحقل / الحقول الفارغة"
Dim ctl As Control
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
If IsNull(ctl) Or ctl = "" Then
           
           If msg1 = "" Then
           msg1 = " - " & ctl.Name
           Else
            msg1 = msg1 & vbNewLine & " - " & ctl.Name
          
           End If
            
            
    End If
    End If
Next ctl
If msg1 = "" Then

DoCmd.RunCommand acCmdSaveRecord
MsgBox "تم الحفظ بنجاح", vbInformation, "تأكيد"

Else

MsgBox msg2 & vbNewLine & msg1, vbCritical, "تنبيه بوجود حقول فراغة"
End If