Select Case DLookup("full_name", "settings_general_tbl")
Case Is = True
' فحص إذا كانت الكلمات أقل من ثلاثة
If WordCount(fullName) < 3 Then
MsgBox "برجاء كتابة الاسم كاملاً.", vbExclamation, "تحذير"
Cancel = True
End If
Exit Sub
Case Is = False
End Select
End Sub
ده الحل ان شاء الله