السلام عليكم
Private Sub BeforeUpdate_Click()
On Error GoTo Error_ErrorZ
If IsNull(Me.Text12.Value) Or IsNull(Me.Text12.Value) Or IsNull(Me.Text13.Value) Or IsNull(Me.Text14.Value) Or IsNull(Me.Text15.Value) Or IsNull(Me.Text16.Value) _
Or IsNull(Me.Text17.Value) Or IsNull(Me.Text18.Value) Or IsNull(Me.Text19.Value) Then
MsgBox "هذه الحقول مطلوبة"
Me.Undo
End If
End Sub
MsgBox "تم حفظ بيانات"
End Sub
الموظفين.rar