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

[عدنان المحمد]

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

وجزاكم الله خيرا

[jjafferr]

وعليكم السلام اخي عدنان 🙂

 

اهلا وسهلا بك في المنتدى ، وللاستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة

 

  في 17‏/5‏/2022 at 12:51, عدنان المحمد said:

.اريد عمل فلتر على سجلات معينة

Expand  

في الحقل/الحقول التي تريد عمل فلتر/تصفية لها ، في المعيار ، اكتب المعيار/المعايير التي تريدها ، وعليه سيعطيك الاستعلام البيانات التي تريدها فقط ، احفظ الاستعلام ، واستعمل طريقتك في تصدير البيانات 🙂

 

جعفر

[Eng.Qassim]

  في 17‏/5‏/2022 at 12:51, عدنان المحمد said:

.فيقوم بتصدير كل الاستعلام

Expand  

وعليكم السلام ..

بعد اذن استاذي ابو موسى

كأنك تصدر الجدول كما هو !! اذن فما فائدة الاستعلام

لنفرض لديك معرض سيارات .. ولديك جدول السيارات وجدول الزبائن

وتريد معرفة السيارات التي لم تشترى من قبل اي من الزبائن.. فيمكن استخدام الاستعلام

SELECT * FROM cars WHERE CarID NOT IN( SELECT CarID FROM customers);

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

المهم .. ان نفهم ما الذي نريد استخراجه من الاستعلام

تحياتي لك

[abouelhassan]

هل لى بسؤال بعد اذن حضرتك استاذى الحبيب لقلبى @jjafferr

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

 

[jjafferr]

  في 17‏/5‏/2022 at 19:57, abouelhassan said:

اذا كان الفلترة عن طريق كود ويستخرج البيانات مفلترة

Expand  

1. اذا كنت تستعمل استعلام عادي ، فيمكنك عمل الفلترة عن طريق الكود ، ولكن الاستعلام يجب ان يرى الكود ، 

وتلاحظ من مرفق برنامجي ، انه فيه نموذج صغير يتم فتحه ، حتى الاستعلام يأخذ معياره منه : 

 

2. واذا كان الاستعلام موجود في الكود ، فيمكنك تحويل هذا الاستعلام مع فلترته الى استعلام عادي (انا اسميته qry_New )  :

  Dim qdf As QueryDef
  dim strSql as string
    
  strSql= "Select * From tbl_1 Where [ID]>1 And [Section]='" &  & "'"    
  Set qdf = CurrentDb.CreateQueryDef("qry_New", strSql)

.

3. واذا كان كل شغلك في الكود وما تريد تعمله استعلام عادي ، فتابع 🙂

 

هناك عدة طرق لتحويل البيانات الى اكسل ، او الى ملف النص csv ، ومنها اللي يعتمد على جداول/الاستعلامات ، ومنها من يعتمد على الكود ، والرابط اعلاه يأخذ الطريقتين 🙂

وهذا الموضوع به نقاش حول جزئية التحويل :

 

 

جعفر

 

[abouelhassan]

حفظك الله استاذى وغفر لك ولوالديك وزادك من فضله اللهم امين يارب العالمين @jjafferr

تقبل تحياتي واحترامي وتقديري لك اخي الكريم وجزاك الله خيرا يارب

[abouelhassan]

معلش استاذى الحبيب لقلبى @jjafferr

احتاج مساعدتك لو وقت حضرتك يسمح فى نفس الموضوع

هذا جزء من البرنامج للتجربة اخى الكريم

Form1 هو فورم فلترة للبيانات بالمعايير الموجودة وفى البرنامج الاصلى يعمل تمام ويقوم باحضار البيانات المراد تصفيتها هنا تمام

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

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

زادك الله من فضله اخى الكريم وجزاك الله عنا كل خير يارب

T3Q 22- Copy.accdbFetching info...

[Eng.Qassim]

  في 19‏/5‏/2022 at 22:30, abouelhassan said:

واناا حتاج تصدير ناتج التصفية فقط 

Expand  

اليس هذ هو ناتج التصفية ؟ الكود القديم شغال معاك بالتصفية التي تريدها

[abouelhassan]

  في 20‏/5‏/2022 at 10:55, Eng.Qassim said:

اليس هذ هو ناتج التصفية ؟ الكود القديم شغال معاك بالتصفية التي تريدها

Expand  

بارك الله فيك اخي الكريم وزادك من فضله

التصفية بحالة الصرف لا يتم التصدير الى الاكسيل ناتج الفلترة بل يتم التصدير لكل البيانات زادك الله من فضله اللهم امين يارب

[Eng.Qassim]

  في 20‏/5‏/2022 at 11:41, abouelhassan said:

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

Expand  

هذه نواتج الفلترة

[abouelhassan]

  في 20‏/5‏/2022 at 16:39, Eng.Qassim said:

هذه نواتج الفلترة

Expand  

بارك الله فيك اخي الكريم ممكن. حضرتك تعمل فلترة فى حالة الصرف على تم 

وتظهر النتائج عند التصدير للاكسيل ستجد أنه قام بتصدير كل البيانات 

بارك الله فيك اخي. المهندس قاسم

 

[Eng.Qassim]

  في 20‏/5‏/2022 at 17:36, abouelhassan said:

ممكن. حضرتك تعمل فلترة فى حالة الصرف على تم

Expand  

حقل تم /لم يتم غير موجود في الفلترة ..قم بتغيير اسم الكومبو في النموذج الرئيس الى pay1

ثم اضف الكود التالي في نهاية اكواد الفلترة

If Not IsNull(Me.Pay1) Then
 varFilter = (varFilter + " AND ") & "[pay] Like '" & Me.Pay1 & "'"
End If

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

[abouelhassan]

استاذى للاعتذار استاذى Eng.Qassim

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

احترمى وتقديرى

T2Q - Copy.accdbFetching info...

[Eng.Qassim]

الان يعمل حسب الشرط الذي تختاره

اوقفت التنسيقات لشيت اكسل لانها توقف البرنامج عندي ..يمكنك اعادتها

 

T2Q - Copy.accdbFetching info...

[abouelhassan]

استاذى الحبيب Eng.Qassim

بارك الله فيك تسلم ايدك وعينك يارب اخى الكريم

حالة الصرف لايتم التصدير للكسيل تم ولم يتم بالرغم من انى عدلت جدول Report1 والاستعلامQuery1وQueryForExportوtempQry والكود

             xlWs.Cells(1, 14).Value = "حالة الصرف"
                xlWs.Cells(x, 14).Value = rs2.Fields("Pay")

زادك الله من فضله وكرمه

Ex-Test2.accdbFetching info...