ahmad_3011

بالاضافة ان الرسالة يتم ارسالها مرتين لاول رقم

مجهود رائع هل فيه طريقة لارسال مرفقات مع الرسائل هل الاربع Modules فى البرنامج مهمين للارسال ولا مش كلهم

اخى جعفر شكرا جزيلا على الرد المفصل 😃 جزاك الله كل خير نزلت التحديث بالفعل بس تم رفضه لانه لاصدار اقدم وساجرب موضوع Start_X مع انى مش مستوعب موضوع قفل البرنامج الحقيقة كنت افضل ان لو فيه احتمال افضل من قفل البرنامج لانه هيحتاج افتحه بشكل يدوى. تحياتى لحضرتك

شكرا اخى جعفر على المجهود بارك الله فيك، انا استخدم اوفيس 2019 اعذرنى على الاطالة ولكن اعتقد ان الموضوع ليس له علاقة بالوقت لان نفس الكود يقوم بتصدير 2000 مرة اذا بدلت التقرير بتقرير اخر بسيط ويقوم بتصدير كل التقارير فى وقت اكثر من نصف ساعة، بفرض اخر اذا كان الحل فى الوق هل يوجد كود يقوم بعمل ايقاف مؤقت للتصدير ولنقل 10 ثوانى وبعددها يتم استئناف التصدير لكى نتغلب على مشكلة الوقت

شكرا اخى د. كاف ولكن ما زال يعطى نفس النتيجة، اعتقد الكود ليس به خطأ لانه يعمل بكفاءة اذا كان التقرير الذى يتم تصديره لا يحتوى على تقارير فرعية subreports ولكن واقع الحال ان التقرير يحتوى على اكثر من 5 تقارير فرعية واعتقد هذا هو السبب الرئيسى للمشكلة واحاول ان اضع ضمن الكود سطر يقوم بافراغ الرامات او شئ من هذا القبيل مع العلم ان me.refresh and me.requery لا يعطى نتيجة ايضا

On Error Resume Next Dim x As Integer x = MsgBox("Are you sure you want to send all reports ?", vbYesNo, "Sending Report") If x = 7 Then MsgBox "Sending mail process has been cancelled", vbInformation, "Cancel Sending" Else Dim XG As Long XG = LstG.ListIndex For XG = 0 To LstG.ListCount - 1 LstG.SetFocus LstG.ListIndex = XG LstG.Selected(XG) = True Dim XC As Long XC = LstC.ListIndex For XC = 0 To LstC.ListCount - 1 LstC.SetFocus LstC.ListIndex = XC LstC.Selected(XC) = True Dim XS As Long XS = LstS.ListIndex For XS = 0 To LstS.ListCount - 1 LstS.SetFocus LstS.ListIndex = XS LstS.Selected(XS) = True Dim reportName As String Dim reportCriteria As String If LstG.Value = 4 Then reportName = "E1" reportCriteria = "SID=" & LstS.Value ElseIf LstG.Value = 5 Then reportName = "E2" reportCriteria = "SID=" & LstS.Value Else reportName = "E3" reportCriteria = "SID=" & LstS.Value End If DoCmd.OpenReport reportName, acViewPreview, , reportCriteria, acHidden DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, Application.CurrentProject.Path & "\Mail\Report - " & LstC.Column(1) & " - " & LstS.Column(4) & " " & LstS.Column(5) & ".pdf" DoCmd.Close acReport, reportName, acSaveNo reportName = "E-Comments A-ZFull" reportCriteria = "SID=" & LstS.Value DoCmd.OpenReport reportName, acViewPreview, , reportCriteria, acHidden DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, Application.CurrentProject.Path & "\Mail\Comment - " & LstC.Column(1) & " - " & LstS.Column(4) & " " & LstS.Column(5) & ".pdf" DoCmd.Close acReport, reportName, acSaveNo Next XS Next XC Next XG MsgBox "All reports exported", vbOKOnly, "Exported Successfully" End If

شكرا على المجهود ولكن للاسف كلا الطريقتين لم تفلح يبدو ان المشكلة ان الرامات يحدث فيها ضغط شديد نتيجة لتصدير اكتر من 1000 تقرير وكل تقرير يحتوى على اكثر من تقارير فرعية ووحوالى 3 لوجو وبعد حوالى 150 تقرير تقريبا يزيد او ينقص يتم عمل ريستارت للاكسس، مع العلم ان الكود بشكل عام ليس به مشكلة لان نفس الكود يقوم بتصدير اكتر من 2000 تقرير فى حالة عدم وجود تقارير فرعية بالتقرير المصدر. السؤال هنا هل يوجد كود مثلا لعمل restart للرام

السلام عليكم ورحمة الله وبركاته اقوم بتكرار لووب على هذا الكود لكى يعمل Export PDF ولكن يعطى خطأ OutputTo PDF; The OutputTo action was canceled واحيانا اخرى قاعدة البيانات تعمل restart DoCmd.OpenReport reportName, acViewPreview, , reportCriteria, acHidden DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, Application.CurrentProject.Path & "\Mail\Report - " & Lst1.Column(1) & " - " & Lst2.Column(4) & ".pdf" DoCmd.Close acReport, reportName, acSaveNo ما احتمال الخطأ

id is not an index in this table كيف اتخلص من هذه الرسالة واتمكن من فتح قاعدة البيانات

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

بارك الله فيك يا يا اخى ابو امنة

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

شكرا لحضراتكم على الردود، كنت عايز اوضح نقطة التقرير اللى انا عايز اغير فى مصدره انا عايز اغير فى مصدره من غير ما افتحه خالص فمش هينفع اكتب Me.recordsource لان دى بتتكتب لو انا فاتح برمجة التقرير انا عايز اغير فى مصدر التقرير وانا فى تصميم فورم تانية خالص

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