كيف استخدم الحلقات التكرارية مع ساعة الجهاز

الأخ 5060

أبشر بطلبك ولكن ما فهمته أن الرسالة الأولى تظهر كل ساعة لمدة 12 ساعة يعني 12 ظهور والثانية تظهر لمدة 24 ساعة يعني 24 ظهور ثم نعود للـ 12 وباستمرار فهل فهمي صحيح ؟

ولك تحياتي

جعلك سالم يا ابو حمود لا عدمناك

فعلاً هذا ما أقصده ولم يخيبك ظنك0

أنشئ نموذج جديد وفي حدث عند عداد الوقت ضع :

' الساعة تساوي 3600000
If عدد_مرات_ظهور_الرسالة = 0 Or _
إظهار_الرسالة = "الأولى" Then
إظهار_الرسالة = "الأولى"
عدد_مرات_ظهور_الرسالة = عدد_مرات_ظهور_الرسالة + 1
MsgBox "الرسالة الأولى"
If عدد_مرات_ظهور_الرسالة = 12 Then
إظهار_الرسالة = "الثانية"
عدد_مرات_ظهور_الرسالة = 0
End If
End If

If إظهار_الرسالة = "الثانية" Then
MsgBox "الرسالة الثانية"
عدد_مرات_ظهور_الرسالة = عدد_مرات_ظهور_الرسالة + 1
If عدد_مرات_ظهور_الرسالة = 24 Then
إظهار_الرسالة = "الأولى"
عدد_مرات_ظهور_الرسالة = 0
End If
End If

وفي الوحدة النمطية الخاصة بالنموذج ضع في الأعلى :

Dim عدد_مرات_ظهور_الرسالة As Integer
Dim إظهار_الرسالة As String

وفي الفاصل الزمني لعداد الوقت ضع هذا الرقم :

3600000

واجعل النموذج يبدأ عند تشغيل القاعدة وبخاصية مخفي .

ولكن هل لي أن أسأل لماذا هذه الرسائل ؟

ولك تحياتي

اشكرك أخي ابو حمود

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

سوف أجرب الكود وأخبرك بالنتيجة0

بارك الله فيك0