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

id is not an index in this table

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

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

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

19 ساعات مضت, ابوآمنة said:

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

 

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

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

لان دى بتتكتب لو انا فاتح برمجة التقرير انا عايز اغير فى مصدر التقرير وانا فى تصميم فورم تانية خالص

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

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

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

شكرا لحضرتك جدا

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

ربنا يكرمك يا بشمهندس خالد هشوف الفيديو

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

برجاء عمل تقرير برسم بيانى Chart بشكل مناسب يوصح تقدم الطالب فى جميع المواد على مستوى الاربعة امتحانات

Chart.accdb

الله يبارك فى حضرتك هو ده المطلوب

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

وغير واضح بالكود كيف يتتم عمل نسخه كل ساعة 

هل بالإمكان تحديد مكانين مختلفين لعمل النسخة الاحتياطية