اضافة تعديل شريط تحميل

[حمدى الظابط]

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

عندى نموذج شريط تحميل باسم  email3 اريد عند كل ارسال رسالة اميل لسجل جديد يعيد التحميل

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

DoCmd.OpenForm "email3", acNormal

اتمنى ان يكون الشرح وافى ولكم جزيل الشكر على الدعم والمساعدة

تجرية11.rar

تم تعديل فبراير 11, 2023 بواسطه حمدى الظابط

[ابوخليل]

حسب طلبك

جرب انقل السطر داخل الدوارة

For i = 0 To REC.RecordCount
    If MsgGo = 2 Then
    MsgGo = 1
    MsgBox "::::::::::::::::::: ( Sending Failed ) :::::::::::::::::::"
    Exit Sub
    End If
    
    DoCmd.OpenForm "email3", acNormal
     
     '*********
'     Debug.Print REC![email_c]
     SendEmaile (REC![Email_c])
    
     '*********
     REC.MoveNext

 

[ابوخليل]

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

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

[حمدى الظابط]

1 ساعه مضت, ابوخليل said:

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

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

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

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

8 ساعات مضت, ابوخليل said:

حسب طلبك

جرب انقل السطر داخل الدوارة

For i = 0 To REC.RecordCount
    If MsgGo = 2 Then
    MsgGo = 1
    MsgBox "::::::::::::::::::: ( Sending Failed ) :::::::::::::::::::"
    Exit Sub
    End If
    
    DoCmd.OpenForm "email3", acNormal
     
     '*********
'     Debug.Print REC![email_c]
     SendEmaile (REC![Email_c])
    
     '*********
     REC.MoveNext

 

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

[حمدى الظابط]

9 ساعات مضت, ابوخليل said:

حسب طلبك

جرب انقل السطر داخل الدوارة

For i = 0 To REC.RecordCount
    If MsgGo = 2 Then
    MsgGo = 1
    MsgBox "::::::::::::::::::: ( Sending Failed ) :::::::::::::::::::"
    Exit Sub
    End If
    
    DoCmd.OpenForm "email3", acNormal
     
     '*********
'     Debug.Print REC![email_c]
     SendEmaile (REC![Email_c])
    
     '*********
     REC.MoveNext

 

بعد التجربة لحظت الاتى 

اولا ارسلت الى 3 سجلات والشريط تم تحميلة مرتين فقط بدل ثلاثة 

ثانيا بيكتب تم الارسال فى اخر سجل تم اختيارة فقط وباقى السجلات السابقة التى تم الارسال لها لم يكتب تم الارسال برغم من  نجاح الارسال 

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

 

[طاهر الوليدي]

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

الحاصرتين "" حول الكلمة اكتب 

me.y1

عشان يرسل التقرير حسب مسمى الذي يظهر في تكست y1

[حمدى الظابط]

4 ساعات مضت, طاهر الوليدي said:

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

الحاصرتين "" حول الكلمة اكتب 

me.y1

عشان يرسل التقرير حسب مسمى الذي يظهر في تكست y1

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

علما أن قبل ارسال التقرير تخرج رسالة تنبيه مضمونها للتأكيد هل ترغب فى ارسال هذا التقرير مع كتابة اسم التقرير المراد إرساله نعم او لا 

وان شاء الله اول ماروح المكتب هيتم التجربة وافيك بالنتيجة 

كل الشكر والاحترام لاهتمامك وملاحظاتك 

[mohamedmas]

في 11‏/2‏/2023 at 16:26, ابوخليل said:

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

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

 لوقت التقرير

ما هو الكود لمطابقه  الوقت الفعلي 

تم تعديل يوليو 21, 2023 بواسطه mohamedmas