السلام عليكم
عثرت على هذا الكود الرائع لتصدير الاستعلامات من أكسيس إلى إكسيل
الكود يعمل بكفاءة مع الاستعلامات بدون معايير أو بمعايير مباشرة داخل الاستعلام
كيف يمكن تعديله ليصدر استعلاما يستخدم معيارا فى نموذج
علما بأننى فتحت النموذج أثناء تشغيل الكود و اخترت القيمة
و مع ذلك لم يفلح
و يعطى رسالة خطأ أنه يحتاج لقيمة معلمة
وفقنا الله و إياكم لنفع المسلمين
هاكم الكود
'Step 1: Declare your variables
Dim MyDatabase As DAO.Database
Dim MyQueryDef As DAO.QueryDef
Dim MyRecordset As DAO.Recordset
Dim i As Integer
'Step 2: Identify the database and query
Set MyDatabase = CurrentDb
Set MyQueryDef = MyDatabase.QueryDefs(Me.allq.Column(1)) 'Query name in the database
'Step 3: Open the query
'DoCmd.OpenQuery Me.allq.Column(1)
Set MyRecordset = MyQueryDef.OpenRecordset
'Step 4: Clear previous contents
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
With xlApp
.Visible = True
.Workbooks.Add
.Sheets("ورقة1").Select
'Step 5: Copy the recordset to Excel
.ActiveSheet.Range("A1").CopyFromRecordset MyRecordset
'Step 6: Add column heading names to the spreadsheet
For i = 1 To MyRecordset.Fields.Count
xlApp.ActiveSheet.Cells(1, i).Value = MyRecordset.Fields(i - 1).Name
Next i
xlApp.Cells.EntireColumn.AutoFit
End With
MsgBox "تم التصدير بنجاح"