السلام عليكم
لدي كود يقوم بتصدير الجداول
اريد تعديل الكود تصدر استعلام
Private Sub أمر84_Click()
On Error Resume Next
If Len(Me.Text100) = 0 Or IsNull(Me.Text100) Then Exit Sub
DoCmd.OutputTo acOutputTable, "تقرير تفتيش", acFormatXLS, CurrentProject.Path & "\" & Text100 & ".xls", True
Beep
MsgBox "تم تصدير بيانات الجدول بنجاح"
DoCmd.Requery