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

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

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

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

[jjafferr]

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

 

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

 

6 ساعات مضت, عدنان المحمد said:

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

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

 

جعفر

[Eng.Qassim]

6 ساعات مضت, عدنان المحمد said:

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

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

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

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

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

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

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

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

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

تحياتي لك

[abouelhassan]

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

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

 

[jjafferr]

10 ساعات مضت, abouelhassan said:

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

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.accdb

[Eng.Qassim]

12 ساعات مضت, abouelhassan said:

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

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

[abouelhassan]

45 دقائق مضت, Eng.Qassim said:

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

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

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

[Eng.Qassim]

4 ساعات مضت, abouelhassan said:

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

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

[abouelhassan]

55 دقائق مضت, Eng.Qassim said:

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

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

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

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

 

[Eng.Qassim]

29 دقائق مضت, abouelhassan said:

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

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

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

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

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

[abouelhassan]

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

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

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

T2Q - Copy.accdb

[Eng.Qassim]

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

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

 

T2Q - Copy.accdb

[abouelhassan]

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

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

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

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

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

Ex-Test2.accdb