بلال اليامين قام بنشر أبريل 7, 2020 مشاركة قام بنشر أبريل 7, 2020 السلام عليكم اريد تعديل زر الحاقي يسمح بالتكرار 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة essam rabea قام بنشر أبريل 8, 2020 أفضل إجابة مشاركة قام بنشر أبريل 8, 2020 أ.بلال اليامين جرب هذا الكود ووافنى بالنتيجة 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 رابط هذا التعليق شارك More sharing options...
بلال اليامين قام بنشر أبريل 9, 2020 الكاتب مشاركة قام بنشر أبريل 9, 2020 بارك الله فيك لكن رسالة التنبه لم تظهر عند ترك الحقل فارغ وعند ملء الحقول رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.