الاخوة الكرام
السلام عليكم ورحمة الله وبركاته
اريد ان اصنع نموذج به 4 مربعات نص تكون (وقت)
بحيث عند وصول الوقت المسجل في مربع رقم واحد الى القيمة المكتوبه به تظهر رسالة محدده
وهاكذا بالنسبه للمربعات الاخرى
اقصد ابسوي برنامج يحدد اوقات الصلوات بحيث يستطيع المستخدم ادخال الاوقات على كيفه وعند وصول الوقت المحدد تظهر له رسالة (( حان الآن موعد صلاة ....)
وشكرا لكم
وعليكم السلام ورحمة الله وبركاته
يمكنك عمل ذلك باستخدام المؤقت في النموذج للتأكد من مطابقة الوقت الحالي لأي من وقت المربعات الأربعة ثم يظهر الرسالة حسب التوافق
استاذي الكريم
شكرا على التعاون وجزاك الله الف خير
بس معليش ممكن توضح اكثر شوى بس(gift)
استاذي الكريم
ارجوا منك ان تنظر للملف المرفق
ماذا يحتاج من التعديل لكي يعمل صحيح
مع خالص شكري وتقدير
وهذا العمل نتيجة لشرحك السابق
وشكرا
امسح الكود الموجود لديك في حدث عند التحميل وفي حدث عند المؤقت .
اكتب في حدث عند المؤقت :
Me.text = Time()
Select Case Time()
Case [text1].Value
MsgBox "حان الآن موعد صلاة الفجر"
Case [text2].Value
MsgBox "حان الآن موعد صلاة الظهر"
Case [text3].Value
MsgBox "حان الآن موعد صلاة العصر"
Case [text4].Value
MsgBox "حان الآن موعد صلاة المغرب"
Case [text5].Value
MsgBox "حان الآن موعد صلاة العشاء"
Case [text6].Value
MsgBox "حان الآن موعد نهاية الدوام"
End Select
لكن لابد من تخزين القيم التي يدخلها المستخدم في جدول والا سيضطر لكتابتها عند كل مرة يفتح فيها القاعدة أو عند فتح النموذج في المرة التالية مع تمكين مربعات النص الستة السفلية ليتمكن المستخدم من الكتابة فيها .
ولك تحياتي
مشرفنا الغالي
لك كل التحية والتقدير
والأخ/m13
شكري لك على اختصار الوقت ومساعدتي في كتابة الكود
وبالفعل الملف شغال زي ما كنت ابغى واحسن كمان
شكري للجميع
هذا الموضوع مغلق.