اخي وضع هذا كود لملء جميع الحقول
Option Compare Database
Dim ii As Byte
Private Sub NoEmptyTexts()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If IsNull(ctl) Or ctl = "" Then
ii = 1
MsgBox "تنبيه الرجاء ملء جميع الخانات اجباري"
DoCmd.CancelEvent
ctl.SetFocus
Exit For
Else
ii = 2
End If
End If
Next ctl
End Sub
Private Sub Commande60_Click()
Call NoEmptyTexts
If ii = 1 Then
Exit Sub
DoCmd.CancelEvent
Else
Me.Refresh
MsgBox " تمت عملية تعديل معلومات الموظف الرمز الوظيفي" & "" & Me.sname & "" & " " & "" & usr_, _
vbInformation, _
"تنبيه"
End If
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub Form_Open(Cancel As Integer)