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

[safaa salem5]

9 minutes ago, safaa salem5 said:

شكرا لحضرتك يابشمهندس محمد

اشتغلت تمام معايا

بارك الله فيك وجزاكم جميعا كل خير

 

Private Sub pname_BeforeUpdate(Cancel As Integer)

If DLookup("[full_name]", "[settings_general_tbl]", "-1") Then

    Dim fullName As String
    fullName = Nz(Me![pname].Value, "")

    ' فحص إذا كانت الكلمات أقل من ثلاثة
    If WordCount(fullName) < 3 Then
        MsgBox "برجاء كتابة الاسم كاملاً.", vbExclamation, "تحذير"
        Cancel = True
    End If

Else

End If

End Sub

Just now, safaa salem5 said:

Private Sub pname_BeforeUpdate(Cancel As Integer)

If DLookup("[full_name]", "[settings_general_tbl]", "-1") Then

    Dim fullName As String
    fullName = Nz(Me![pname].Value, "")

    ' فحص إذا كانت الكلمات أقل من ثلاثة
    If WordCount(fullName) < 3 Then
        MsgBox "برجاء كتابة الاسم كاملاً.", vbExclamation, "تحذير"
        Cancel = True
    End If

Else

End If

End Sub

عايزه بس امنع انه يترك حقل الاسم فارغ فى حالة لو سمحنا بكتابة جزأ من الاسم 

[safaa salem5]

 لمنعه ترك الحقل فارغ تبقى كدا صح 
    
    If WordCount(fullName) < 1 Then
        MsgBox "برجاء كتابة الاسم.", vbExclamation, "تحذير"
        Cancel = True
    End

[محمد احمد لطفى]

لمنع ترك الحقل فارغ  بالتوفيق

 

    If IsNull(Me.اسم_الحقل) Then
        MsgBox "يجب ملء حقل الاسم قبل الحفظ.", vbExclamation, "تحذير"
        Cancel = True ' إلغاء عملية التحديث
    End If

او

    If Me.اسم_الحقل= "" Then
        MsgBox "يجب ملء حقل الاسم قبل الحفظ.", vbExclamation, "تحذير"
        Cancel = True ' إلغاء عملية التحديث
    End If