goldposition قام بنشر سبتمبر 29, 2020 قام بنشر سبتمبر 29, 2020 (معدل) ارجو مساعده المطلوب في الملف المرفق عند الضغط على زر تصدير يحفظلي بيانات النموذج الفرعي الى ملف اكسيل بعد التصفيه Database5.accdb تم تعديل سبتمبر 29, 2020 بواسطه goldposition
محمد أبوعبدالله قام بنشر سبتمبر 30, 2020 قام بنشر سبتمبر 30, 2020 السلام عليكم تفضل اخي الكريم DoCmd.OutputTo acOutputQuery, "Query1", acFormatXLS, CurrentProject.Path & "\Query1.xls", True Database5.rar تحياتي 1
goldposition قام بنشر سبتمبر 30, 2020 الكاتب قام بنشر سبتمبر 30, 2020 (معدل) شكرا لاهتمامكم جميعا بس انا اسف كان في خطا من عندي لو امكن محتاج الطريقه على المثال المرفق التغيير ان التصفيه عن طريق كود ولو امكن يعملي فولدر يكون اسمه برقم ال id والملف يكون بنفس الاسم بداخل الفولدر Database5.accdb تم تعديل سبتمبر 30, 2020 بواسطه goldposition
محمد أبوعبدالله قام بنشر سبتمبر 30, 2020 قام بنشر سبتمبر 30, 2020 تفضل اخي الكريم الفكرة ببساطة هي كتابة جملة 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 قام بنشر سبتمبر 30, 2020 الكاتب قام بنشر سبتمبر 30, 2020 (معدل) شكرا جدا على الرد والاهتمام بس في مشكله لو انا عندي اكثر من كومبو بوكس زي اللي في الملف المرفق مش هيظهر النتيجه المطلوبه غير بعد ما اختار الكومبوبوكسات كلها يعني لو اختارت اول كومبو بوكس مش هيجيبلي النتيجه بعض الضغط على الزر id.rar تم تعديل سبتمبر 30, 2020 بواسطه goldposition
محمد أبوعبدالله قام بنشر سبتمبر 30, 2020 قام بنشر سبتمبر 30, 2020 تفس الفكر اخي الكريم 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 قام بنشر سبتمبر 30, 2020 الكاتب قام بنشر سبتمبر 30, 2020 للاسف لو اختارت اول كومبو فقط بيعمل فلتره في النموذج الفرعي تمام بس للاسف لو ضغطت تصدير مش بيعمل فلتره وبيظهرلي الجدول كله
محمد أبوعبدالله قام بنشر سبتمبر 30, 2020 قام بنشر سبتمبر 30, 2020 تفضل اخي الكريم 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 تحياتي
محمد أبوعبدالله قام بنشر سبتمبر 30, 2020 قام بنشر سبتمبر 30, 2020 الان, goldposition said: مش عارف اقولك ايه شكرا جدا جدا بالتوفيق اخي الكريم تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.