تعديل كود زر الحاقي يسمح لي بتكرر

[بلال اليامين]

السلام عليكم اريد تعديل زر الحاقي يسمح بالتكرار

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

[essam rabea]

أ.بلال اليامين

جرب هذا الكود ووافنى بالنتيجة 

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
    MsgBox "All Fields is Null"
    
    Else
    
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Query1", acViewNormal
    DoCmd.SetWarnings True
'    MsgBox "Done", vbInformation

Exit_Command5_Click:
    Exit Sub
    

  End If
Error_ErrorZ:
    MsgBox "Not Done", vbInformation
    Resume Exit_Command5_Click
End Sub

 

[بلال اليامين]

بارك الله فيك 

لكن رسالة التنبه لم تظهر عند ترك الحقل فارغ

وعند ملء الحقول