السلام عليكم اريد تعديل زر الحاقي يسمح بالتكرار
Private Sub Command5_Click()
On Error GoTo Error_ErrorZ
If Len(Me.B1 & vbNullString) = 0 Or Len(Me.B2 & vbNullString) = 0 Or Len(Me.B3 & vbNullString) = 0 Or Len(Me.B4 & vbNullString) = 0 Or Len(Me.B5 & vbNullString) = 0 Then
Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "Query1"
DoCmd.SetWarnings True
' MsgBox "Done", vbInformation
End If
Error_ErrorZ:
MsgBox "Not Done", vbInformation
End Sub
زرالحاقي (4).rar