مساعده في تصدير نموذج فرعي

[goldposition]

ارجو مساعده المطلوب في الملف المرفق عند الضغط على زر تصدير يحفظلي بيانات النموذج الفرعي الى ملف اكسيل بعد التصفيه 

Database5.accdb

تم تعديل سبتمبر 29, 2020 بواسطه goldposition

[سامي الحداد]

تفضل اخي الكريم

تحياتي

Database5.accdb

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

السلام عليكم

تفضل اخي الكريم

DoCmd.OutputTo acOutputQuery, "Query1", acFormatXLS, CurrentProject.Path & "\Query1.xls", True

Database5.rar

تحياتي

[goldposition]

شكرا لاهتمامكم جميعا بس انا اسف كان في خطا من عندي لو امكن محتاج الطريقه على المثال المرفق التغيير ان  التصفيه عن طريق كود 

ولو امكن يعملي فولدر يكون اسمه برقم ال id

والملف يكون بنفس الاسم بداخل الفولدر 

Database5.accdb

تم تعديل سبتمبر 30, 2020 بواسطه goldposition

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

تفضل اخي الكريم

الفكرة ببساطة هي كتابة جملة Sql بالتصفية المطلوبة

ثم انشاء استعلام مؤقت

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

ثم حذف الاستعلام المؤقت

  Dim T_Export As String
  
  T_Export = "SELECT * FROM Table1 WHERE [name] LIKE '*" & Me.Combo7 & "*'"
  Set T_Query = CurrentDb.CreateQueryDef("tQueryDef", T_Export)
  DoCmd.OutputTo acOutputQuery, "tQueryDef", acFormatXLS, CurrentProject.Path & "\Query1.xls", True
  CurrentDb.QueryDefs.Delete T_Query.name

id.rar

تحياتي

[goldposition]

 شكرا جدا على الرد والاهتمام بس في مشكله لو انا عندي اكثر من كومبو بوكس زي اللي في الملف المرفق مش هيظهر النتيجه المطلوبه غير بعد ما اختار الكومبوبوكسات  كلها يعني لو اختارت اول كومبو بوكس مش هيجيبلي النتيجه بعض الضغط على الزر

id.rar

تم تعديل سبتمبر 30, 2020 بواسطه goldposition

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

تفس الفكر اخي الكريم

4 ساعات مضت, محمد أبوعبدالله said:

م انشاء استعلام مؤقت

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

ثم حذف الاستعلام المؤقت

  Dim T_Export As String
  
'  T_Export = "SELECT * FROM Table1 WHERE [name] LIKE '*" & Me.Combo7 & "*'"
'  T_Export = "SELECT * FROM Table1 WHERE [nam2] LIKE '*" & Me.Combo2 & "*'"
  T_Export = "SELECT * FROM Table1 WHERE [name3] LIKE '*" & Me.Combo3 & "*'"

  Set T_Query = CurrentDb.CreateQueryDef("tQueryDef", T_Export)
  DoCmd.OutputTo acOutputQuery, "tQueryDef", acFormatXLS, CurrentProject.Path & "\Query1.xls", True
  CurrentDb.QueryDefs.Delete T_Query.name

id.rar

تحياتي

[goldposition]

للاسف لو اختارت اول كومبو فقط بيعمل فلتره في النموذج الفرعي تمام بس للاسف لو ضغطت تصدير مش بيعمل فلتره وبيظهرلي الجدول كله 

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

تفضل اخي الكريم

  Dim T_Export As String
  
'  T_Export = "SELECT * FROM Table1 WHERE [name] LIKE '*" & Me.Combo7 & "*'"
'  T_Export = "SELECT * FROM Table1 WHERE [nam2] LIKE '*" & Me.Combo2 & "*'"
   T_Export = "SELECT * FROM Table1 WHERE [name] LIKE '*" & Me.Combo7 & "*' And [nam2] LIKE '*" & Me.Combo2 & "*' And [name3] LIKE '*" & Me.Combo3 & "*'"


  Set T_Query = CurrentDb.CreateQueryDef("tQueryDef", T_Export)
  DoCmd.OutputTo acOutputQuery, "tQueryDef", acFormatXLS, CurrentProject.Path & "\Query1.xls", True
  CurrentDb.QueryDefs.Delete T_Query.name

id.rar

تحياتي

[goldposition]

مش عارف اقولك ايه شكرا جدا جدا

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

الان, goldposition said:

مش عارف اقولك ايه شكرا جدا جدا

بالتوفيق اخي الكريم

تحياتي