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

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

السلام عليكم

لدي زر تصدير وزر استراد الجدول

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

استراد وتصدير.rar

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

زر التصدير غير السطر التالي

DoCmd.OutputTo acOutputTable, "جدول الموظفين", acFormatXLSX, CurrentProject.Path & "\جدول الموظفين.xlsx", True

الى

DoCmd.OutputTo acOutputQuery, "الموظف", acFormatXLSX, CurrentProject.Path & "\جدول الموظفين.xlsx", True

وزر الاستيراد من

ImportFileName = CurrentProject.Path & "\جدول الموظفين" & ".xlsx"

الى

ImportFileName = CurrentProject.Path & "\الموظف" & ".xlsx"

استراد وتصدير.rar

تحياتي

[Barna]

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

On Error Resume Next
DoCmd.OutputTo acOutputQuery, "الموظف", acFormatXLSX, CurrentProject.Path & "\استعلام الموظفين.xlsx", True
Dim strSQL As String
Beep
MsgBox "تم تصدير بيانات الاستعلام بنجاح"

أما بخصوص استيراد الاستعلام فيتم استيراد الاستعلام داخل جدول وليس استعلام

 

اسف اخي محمد لم ارى اجابتك 

[محمد أبوعبدالله]

2 ساعات مضت, Barna said:

اسف اخي محمد لم ارى اجابتك 

العفو استاذنا الفاضل

وزادك الله رفعةً وعلماَ

تحياتي