تعديل كود تصدير الجدول الى استراد استعلام

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

السلام عليكم

لدي كود يقوم بتصدير الجداول 

اريد تعديل الكود تصدر استعلام

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

[ابو البشر]

انظر الصورة .... وطبق ...