السلام عليكم
اخي الكريم هذا الكود لنسخ البيانات اريد اضافة له افراغ الحقول
اخي ثلاثة حقول
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 "Query11"
DoCmd.SetWarnings True
' MsgBox "Done", vbInformation
Forms![عنصر_تحكم_علامة_جدولة0].Form![نموذج2].Requery
Forms![عنصر_تحكم_علامة_جدولة0].Form.Requery
DoCmd.RunCommand acCmdRefresh
End If
Error_ErrorZ:
MsgBox "تمت العملية بنجاح", vbInformation