ارجو المساعدة في تصدير نتائج البحث الى ملف اكسل

[parast]

ارجو المساعدة في تصدير نتائج البحث الى اكسل للملف المرفق

za-Search&Filter-UP.rar

[صالح حمادي]

السلام عليكم

استعمل هذا الكود سوف يقوم بتصدير المعلومات إلى ملف أكسل على سطح المكتب

Dim DTPath As String
Dim curPath As String
DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
curPath = DTPath & "\parast" & ".xls"
DoCmd.TransferSpreadsheet acExport, 8, "zaQ", curPath, True
Application.FollowHyperlink curPath

 

 

za-Search&Filter-UP.rar

[parast]

شكرا على الرد اخ صالح 

لكن الكود لم ينجح لانه يقوم بتصدير كافة السجلات وليس نتائج البحث فقط

[صالح حمادي]

يجب عليك أن تجعل مصدر البحث هو الإستعلام