المساعدة بعمل كود يظهر رسالة متكررة كل مدة معينة

[ًعبد من عباد الله]

سلام الله ورحمته وبركاته

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

تم تعديل يوليو 27, 2017 بواسطه وائل أبو عبد الرحمن

[ًعبد من عباد الله]

للرفع

[عبد الله قدور]

Dim a As Single
a = MsgBox("هل تريد الانتقال الى النموذج التالي", vbMsgBoxRight + vbYesNo, "تنبيه")
If a = vbYes Then
DoCmd.Close
DoCmd.OpenForm "اسم النموذج التالي"
End If

[ًعبد من عباد الله]

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

لى كما نقول بالمصرى "تكة" اخيرة أرجوا أن تعدلها لى وهى في محتوى الرسالة كيف أغير تسمية المفتاحين بدلا من نعم ولا  إلى كلمة مواصلة بدلا من كلمة لا و  كلمة استراحة بلا من كلمة نعم وشكرا لأهتمامك وحسن تجاوبك.

[ًعبد من عباد الله]

الأخوة الكرام

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

بحيث يكون مكان كلمة yes كلمة استراحة ومكان كلمة No كلمة مواصلة وشكرا لكم

[ًعبد من عباد الله]

للرفع

[Shivan Rekany]

في ٢٩‏/٧‏/٢٠١٧ at 23:50, وائل أبو عبد الرحمن said:

الأخوة الكرام

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

بحيث يكون مكان كلمة yes كلمة استراحة ومكان كلمة No كلمة مواصلة وشكرا لكم

لان يتغير الطلبيات من عنوان الموضوع لذلك لا تجد من يرد عليك
اليك هذا الرابط

وهذا ايضا

 

[ًعبد من عباد الله]

أستاذى الكريم Shivan Rekany بارك الله فيك

الحمد لله بعد التجربة نجح الأمر كما بالصورة التالية    

 

تم تعديل يوليو 31, 2017 بواسطه وائل أبو عبد الرحمن

[ًعبد من عباد الله]

الأخوة الكرام

ارجوا المساعدة حيث أن الرسالة نعم تنجح في تحويل اسماء مفاتيح الرسالة للغة العربية بعد إضافة أسماء المفاتيح لكود الرسالة

ولكنها تبدأ في الظهور بعد فتح النموذج بـ Yes & No وهذا ما لا أريده

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

New Microsoft Access Database (1).rar

تم تعديل أغسطس 1, 2017 بواسطه وائل أبو عبد الرحمن

[Shivan Rekany]

39 دقائق مضت, وائل أبو عبد الرحمن said:

الأخوة الكرام

ارجوا المساعدة حيث أن الرسالة نعم تنجح في تحويل اسماء مفاتيح الرسالة للغة العربية بعد إضافة أسماء المفاتيح لكود الرسالة

ولكنها تبدأ في الظهور بعد فتح النموذج بـ Yes & No وهذا ما لا أريده

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

New Microsoft Access Database (1).rar

امسح اكواد النموذج

والصق هذا

Option Compare Database
Dim resalh As Integer

Private Sub Form_Open(Cancel As Integer)
    MessageBoxH Me.hwnd
    YES = "استراحة"
    NO = "مواصلة"
End Sub

Private Sub Form_Timer()
        a = MsgBox("أتريد استراحة لتجدد نشاطك أم لديك الرغبة للمواصلة؟", vbMsgBoxRight + vbYesNo, "مرت 30 دقيقة وربما تحتاج لاستراحة قصيرة")
    If a = vbYes Then
        DoCmd.Close
        DoCmd.OpenForm "Rest"
    End If
End Sub

او قم بالتعديل و اضافة كود في حدث عند فتح

 

New Microsoft Access Database (1) (1).rar

[ًعبد من عباد الله]

أخى شفان ريكاني

الحمد لله بصراحة أنا مش عارف من غير مساعدتك كانت هاعمل أيه

عموما توقيعك الجميل يلخص صدق مسعاكم جزاك الله كل خير

[ًعبد من عباد الله]

أخى العزيز شفان 

أعتذر إليك فالرسالة بعد التعديل الأخير نعم تبدأ بالمفتاحين كما أريد ولكن بعد التجربة والاستمرار و التكرار تتحول إلى Yes & No مرة أخرى