الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية اظهار احصائيه يوميه

مغلق
بدأه alali100 في 9 مايو 2003 · 2 رد · 646 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

في برنامج الاشراف الذي وجدته صممه احد الاخوان وابدع فيه .

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

امل منكم مساعدتي في ذلك مع اعتقادي ان الكود به بعض الاخطاء ولكن تعثرت كل محاولاتي في التصحيح .

هذا هو الكود:ـ

On Error GoTo Err_إحصائية_الغياب_اليومية_Click



    Dim stDocName As String



    stDocName = "إحصائية يومية"

    DoCmd.RunMacro stDocName



Exit_إحصائية_الغياب_اليومية_Click:

    Exit Sub



Err_إحصائية_الغياب_اليومية_Click:

    MsgBox Err.Description

    Resume Exit_إحصائية_الغياب_اليومية_Click

çلهôٌç‎.zip

sob7ank.jpg

فرض على الناس أن يتوبوا**** لكن ترك الذنوب أوجب

والصبر في النائبات صعب**** لكن فوات الثواب أصعب

والدهر في صرفه عجيب**** لكن غفلة الناس أعجب

وكل ما قد يجي قريب****والموت للعبد من ذاك أقرب

#2

اتحرى الاجابه

sob7ank.jpg

فرض على الناس أن يتوبوا**** لكن ترك الذنوب أوجب

والصبر في النائبات صعب**** لكن فوات الثواب أصعب

والدهر في صرفه عجيب**** لكن غفلة الناس أعجب

وكل ما قد يجي قريب****والموت للعبد من ذاك أقرب

#3

اتمنى ردكم

sob7ank.jpg

فرض على الناس أن يتوبوا**** لكن ترك الذنوب أوجب

والصبر في النائبات صعب**** لكن فوات الثواب أصعب

والدهر في صرفه عجيب**** لكن غفلة الناس أعجب

وكل ما قد يجي قريب****والموت للعبد من ذاك أقرب

هذا الموضوع مغلق.

مواضيع مشابهة