علي المصري قام بنشر مارس 28, 2017 قام بنشر مارس 28, 2017 السلام عليكم ورحمة الله وبركاته في المرفق يوجد Form 1 عند اختيار اسم الفريق ثم احتيار رقم السؤال يبدا التايمر العد التنازلي من 60 عند اختيار الإجابة تظهر رسالة تأكيد عملية الاختيار اريد عند اختيار yes في هذا الرسالة يتم عمل توقف أو إلغاء للتايمر وعند اختيار No يظل التايمر شغال مع الشكر الجزيل للجميع AA.rar
Shivan Rekany قام بنشر مارس 28, 2017 قام بنشر مارس 28, 2017 25 دقائق مضت, علي المصري said: السلام عليكم ورحمة الله وبركاته في المرفق يوجد Form 1 عند اختيار اسم الفريق ثم احتيار رقم السؤال يبدا التايمر العد التنازلي من 60 عند اختيار الإجابة تظهر رسالة تأكيد عملية الاختيار اريد عند اختيار yes في هذا الرسالة يتم عمل توقف أو إلغاء للتايمر وعند اختيار No يظل التايمر شغال مع الشكر الجزيل للجميع AA.rar فقط اضيف على كودك عند اوبديت اي عند اختيار احد من الجوابات Me.TimerInterval = 0 يعني الكود سيكون كالاتي Private Sub Frame3_AfterUpdate() Dim MyAnswer As String MyAnswer = MsgBox("هل انت متأكد من اجابتك" & vbNewLine & "Are you sure from your answer?", vbYesNo, "تأكيد") If MyAnswer = vbYes Then Call Submit Me.MyAnswers.Visible = True Me.L1.Visible = True Me.TimerInterval = 0 Else Cancel = True End If End Sub تحياتي
علي المصري قام بنشر مارس 28, 2017 الكاتب قام بنشر مارس 28, 2017 منذ ساعه, Shivan Rekany said: Me.TimerInterval = 0 شكرا جزيلا استاذنا الفاضل جزاك الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.