abouelhassan

السلام عليكم اخوانى الافاضل كل عام وحضراتكم بخير احتاج شرح كود تصدير بيانات التصفية للاكسيل On Error Resume Next If IsNull(FromDate) Or IsNull(ToDate) Then MsgBox "íÌÈ ÇÎÊíÇÑ äØÇÞ ÇáÊÇÑíÎ ÇæáÇð", vbCritical + vbMsgBoxRight, "ÊäÈíå" Else Dim MyFile As String DstFile = CurrentProject.Path & "\" & "File1.xlsm" Dim xlApp As Excel.Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet Dim db As DAO.Database Dim rs As DAO.Recordset Dim x As Integer x = 1 DoCmd.SetWarnings False DoCmd.RunSQL "DELETE FROM Report1;" DoCmd.OpenQuery "Query1" DoCmd.SetWarnings True Set xlApp = New Excel.Application xlApp.Visible = False Set xlWb = xlApp.Workbooks.Open(DstFile) Set xlWs = xlWb.Worksheets(1) Set rs = CurrentDb.OpenRecordset("Report1") MsgBox rs.Fields(0) If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) x = x + 1 xlWs.Cells(x, 1).Value = rs.Fields(0) xlWs.Cells(x, 2).Value = rs.Fields(1) xlWs.Cells(x, 3).Value = rs.Fields(2) xlWs.Cells(x, 4).Value = rs.Fields(3) xlWs.Cells(x, 5).Value = rs.Fields(4) xlWs.Cells(x, 6).Value = rs.Fields(5) xlWs.Cells(x, 7).Value = rs.Fields(6) xlWs.Cells(x, 8).Value = rs.Fields(7) xlWs.Cells(x, 9).Value = rs.Fields(8) xlWs.Cells(x, 10).Value = rs.Fields(9) xlWs.Cells(x, 11).Value = rs.Fields(10) xlWs.Cells(x, 12).Value = rs.Fields(11) xlWs.Cells(x, 13).Value = rs.Fields(12) xlWs.Cells(x, 14).Value = rs.Fields(13) rs.MoveNext Wend End If Kill CurrentProject.Path & "\" & "ãáÎÕ ÇáÍÓÇÈÇÊ" & ".xlsm" xlWb.SaveAs CurrentProject.Path & "\" & "ãáÎÕ ÇáÍÓÇÈÇÊ" & ".xlsm" xlWb.Close False xlApp.Quit Set xlApp = Nothing Set xlWb = Nothing Set xlWs = Nothing If MsgBox("Êã ÇáÊÕÏíÑ ÈäÌÇÍ" & vbNewLine & vbNewLine & _ " åá ÊÑíÏ ÚÑÖ ÇáãáÝ ¿", vbInformation + vbYesNo + vbMsgBoxRight, "ÊÃßíÏ") = vbYes Then Application.FollowHyperlink (CurrentProject.Path & "\" & "ãáÎÕ ÇáÍÓÇÈÇÊ" & ".xlsm"), , True End If End If لدى نموذج اسمه Form1 به فلتر ب نوع الحساب وكل الموجود بالصورة الفلتريعمل تمام ويقوم بتصدير البيانات لاكسيل بشرط وضع ملف الاكسيل بجانب القاعدة كل الفلترة يتم تصدير ناتج الفلترة الى الاكسيل تمام وبسرعة عدا فلترة حالة الصرف يتم تصدير كل البيانات كأن لم يكن فلتر لايتم تصدير ناتج الفلترة على النموذج الاستعلام المسئول عن التصديرQueryForExport هو ما احتاج سبب عدم تصدير ناتج الفلترة اليه المعيار المسئول عن حالة الصرف اسمه Pay تم رفع قاعدة بيانات تفتح على النماذج والاستعلامات وملف الاكسيل بارك الله فيكم اخوانى الافاضل الكرام t1.rar

استاذى الحبيب استخدمت هذا الكود وهو يعمل تمام بسرعة كبيرة مع البيانات الكثيرة لانه يعتمد على الاستعلام وبضع الملف الاكسيل بجانب القاعدة وتمام مفيش مشكلة يقوم بتصدير كافة التصفية حتى قمت استاذى قمت بإضافة جدول اسمه Pay حالة الصرف به خانتين تم ولم يتم واضافت عمود فى جدول البيانات اسمه Pay وكذلك فى جدول report وفى فورم form1 وضعت قائمة منسدلة بها تم ولم يتم اسمهاPay وقمت بتظبيط الكود للتصفية والتصفية تعمل تمام المشكلة فى التصدير للاكسيل عند التصفية بالمعيار الجديد حالة الصرف Pay يتم تصدير كل البيانات على العلم اننى قمت بعمل تصفية ب تم وظهرت البيانات على النموذج form1 صحيحة وفرحت جدااا أنة نفذتها بس المشكلة فى الاستعلام المسئول عن التصدير للاكسيل دخلت عليه فى وضع design واضفت المعيار pay بس بردو لا يحدث تغير كل ما احتاجه اخى الكريم حضرتك تشرح لى ما اضيفه فى المعيارPay فى الاستعلام المسئول عن التصدير. للاكسيل ليقوم بتصدير. السجلات التى تم تصفيتها بناء على اختيار حالة الصرف تم أو لم يتم بس كده اكون شاكر فضلك وانا هعتمد على وضع ملف الاكسيل بجانب قاعدة البيانات زادك الله من فضله اللهم امين يارب العالمين

للرفع رفع الله قدرك اخى استاذى الحبيب @د.كاف يار

شكر وتقدير واحترام من اخيك

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

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

استاذى الغالى لقلبى حبيبى د.كاف يار اخى فى الله حفظك الله ورعاك وحماك اخى الكريم هنا استاذى قمت بعمل بعض التعديلات على الفلترة ونجحت معى بالنسخ من الكود وقمت بتغير فى النموذج ونجح معى وعند اضافة الكود الجديد ةالاستعلام tempQry الكود يتوقف استاذى الحبيب كمان الاستعلام للزر اخر الفورم تقرير اجمالى مصدر التمويل+ الحسابات يحتاج تعديل بالمعيار ليقوم بتجميع مثلا هنا بالصورة مصدر التمويل واحد عميل جديد1 نوع الحساب صرف احتاج لتجميعهم كمان التقرير اجمالى مصدر التمويل الاستعلام له يحتاج تعديل لاننى عند الاستعلام بمصدر التمويل يظهر فارغ وساعات يظهر بيانات والله غلبت اخى الكريم تقبل اعتذارى وخالص شكرى ودعائى برجاء الاطلاع على المرفق استاذى الحبيب للتصحيح اخى الكريم المختصر سيدى حبيبى استاذى التقارير الجديدة التصدير للاكسيل اجمالى مصدر التمويل والحسابات اجمالى مصدر التمويل احتاج تصدير المعروض بالنموذج من فلترة سواء فلترة بمعيار او معيارين او كل المعايير لا حرمنا منك ابدااااااااااا استاذى الحبيب وزادك الله علما وخيرا يارب يارب يارب تقبل احترامى وخالص دعائى اكسيل جديد.rar

استاذى حبيبى الغالى لقلبى د.كاف ياراحترامى وخالص الدعاء من قلبى والله عند التجربة استاذى اختارت التصفية بنوع الحساب حديث و الحساب اجل و التاريخ من 1/7/2020 حتى 30//20/22 والسنة المالية2022 تمام تم تصدير الاكسيل تمام ولكن عندما اضفت الى التصفية مصدر التمويل اضفت مصدر التمويل عميل جديد وقمت بتصدير الاكسيل لم يتم التصدير صحيح بل قام بالتصدير كما لو انى لم اختار التصفية بمصدر التمويل انا اقوم بالتصدير للاكسيل لاننى اقوم باستخراج تقارير به اخى احتاج الى التصدير للكسيل سواء اخترت التصفية بالحساب او النوع او مصدر التمويل او كلهم كمان لدى مشكلة مع الاستعلام للتقرير قمت باضافة تقريرين هما تقرير اجمالى PDF مصدر التمويل وتقرير اجمالى الحساب+ مصدر التمويل فورم اسمه تجميعات الحسابات+مصدر التمويلمصدر البيانات له استعلام اسمه ملخص حسابات العملاء3 ويقوم بتصدير البيانات لPDF عن طريق زر ب FORM1 احتاج تعديل الاستعلام ليقوم بتجميع مثلا هنا بالصورة مصدر التمويل واحد عميل جديد1 نوع الحساب صرف احتاج لتجميعهم - المشكلة ايضا باستعلام تقرير اجمالى PDF مصدر التمويل هنا قمت بعمل تصفية بالتاريخ من 1/7/2021 حتى 30/6/2022 كما بالصورة اخترت تقرير -اجمالىPDF-مصدر التمويل ظهر التقرير تمام قمت بعمل تصفية بواسطة مصدر التمويل كما بالصورة اخترت مصدر التمويل يوميات قمت ب اختيار تقرير -اجمالىPDF-مصدر التمويل ظهر التقرير تمام ظهر الاتى بارك الله فيك استاذى الحبيب لقلبى وكل عام وحضرتك بكل خير وصحة وسلامة يارب يارب الدائن و المدين.rar

شكر وتقدير واحترام من اخيك استاذى الفاضل

شكر وتقدير واحترام من اخيك استاذى

للرفع رفع الله قدركم

زادك الله من فضله اللهم امين

للرفع رفع الله قدركم

مشكور اخى الكريم بس واجهتنى مشكلة مع فتح البرنامج بارك الله فيك اخى احترامى

تسلم وتعيش استاذى محي الدين ابو البشر تسلم ايدك ربنا يرضى عنك اخى الكريم بارك الله فيك اخى يعجز لسانى عن شكرك والله اشكرك اخى الكريم جدا تقبل حبى واحترامى وتقديرى لك اخى فى الله

متابع

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

للرفع رفع الله قدركم

هذه غلطة اسف اخى الصح 150. 100. 50 اكثر الله خيرك اخى الكريم وجزاك الله خيرا يارب اخى فى الله استاذى محي الدين ابو البشر ذادك الله من فضله ورعاك اللهم امين اخى حاولت توظيف وتعديل الكود الرائع لتعديل الخلاصة الى بارك الله فيك اخى الكريم وحفظك وزادك من فضله اللهم امين يارب تقبل شكرى واحترامى وتقديرى للرفع رفع الله قدركم

السلام عليكم اخوانى الاساتذة الافاضل كل عام وحضراتكم بخير لدى فورم اسمه تجميعات الحسابات+مصدر التمويلمصدر البيانات له استعلام اسمه ملخص حسابات العملاء3 ويقوم بتصدير البيانات لPDF عن طريق زر ب FORM1 المطلوب تعديل الاستعلام ليقوم بتجميع مثلا هنا بالصورة مصدر التمويل واحد عميل جديد1 نوع الحساب صرف احتاج لتجميعهم مع خالص الشكر والتقدير والاحترام وخالص الدعاء من القلب test.rar

ممتاز استاذنا الفاضل بارك الله فيك

اتقدم اليك بخالص العرفان والشكر استاذنا محي الدين ابو البشر اعتذر الكود لم يفى بالغرض النتيجة المراد الحصول عليها كما بالصورة بشيت الخلاصة اسف تعديل تصحيح ما بالصورة هادى1 محمد100 له150 خالص شكرى وتقديرى وعرفان بالجميل والدعاء من قلبى لك اخى

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

نعم بس هعرف أن نوع الحساب مختلف اخى أما الآن عندما اختار حساب نوعه مختلف يام ترحيل النوع بالاعلى وهو خطأ احترامى اخى لك استاذى الفاضل بحار الاكسس احترامى وتقديرى اخى الكريم هذا ما ظهر لى اخى عند استخدام الكود مش عارف السبب اخى ممكن يكون حضرتك اضفت شئ فى النموذج خلية نوع الحساب مثلا وانا مش اخد بالى منها عموما اخى مشكور مجهودك الرائع ربنا يحفظك يارب

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