بعيداً عن الكمبيوتر ، هذه مشاركة خارجية :-
Private Sub cmdSubmit_Click()
' التحقق من نوع الإدخال المختار
If Me.optName.Value = True Then
' إذا كان اختيار الاسم محددًا
If IsNull(Me.txtFullName.Value) Or Me.txtFullName.Value = "" Then
MsgBox "الرجاء إدخال الاسم الثلاثي."
Exit Sub
End If
ElseIf Me.optPhone.Value = True Then
' إذا كان اختيار الهاتف محددًا
If IsNull(Me.txtPhoneNumber.Value) Or Me.txtPhoneNumber.Value = "" Then
MsgBox "الرجاء إدخال رقم الهاتف."
Exit Sub
End If
End If
End Sub
طبعاً لإجراءاتك تغيير المسميات حسب حاجتك.
هل الموضوع دا له علاقة بالصلاحيات ؟؟