اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

استبدال الرسائل الافتراضية برسائل مخصصة ( رسالة نموذج )


wael_rafat

الردود الموصى بها

السلام عليكم ورحمة الله وبركاته ،،،

اخواني الكرام  بارك الله فيكم

قمت باستبدال الرسالة العادية بعمل رسالة مخصصة من خلال النموذج  وكانت هذه الرسالة تحتوي على امرين (  امر نعم  ..... ليستمر الاجراء والطباعة ) ، ( والامر لا .... عدم الاستمرار بالاجراء وعدم الطباعة... والعودة الى ما قبل الضغط على زر الطباعة )

تم عمل الامر الاول ولكن المشكلة فى الامر الثاني ( وهو عدم الاستمرار بالاجراء وعدم الطباعة )  بمعني اغلاق الرسالة وتوقف الامر الى ما قبل .

كل الشكر والتقدير اخواني الكرام ،،،،

 

msg form.rar

msg.JPG

تم تعديل بواسطه wael_rafat
رابط هذا التعليق
شارك

في ١١‏/١١‏/٢٠١٨ at 19:49, wael_rafat said:

تم عمل الامر الاول ولكن المشكلة فى الامر الثاني ( وهو عدم الاستمرار بالاجراء وعدم الطباعة )  بمعني اغلاق الرسالة وتوقف الامر الى ما قبل .

هناك احد الحلول
قم بتغير مكان سطر الطباعة التقرير من النموذج الرئيسي الى عند الضغط على نعم
القي نظرتا اليه
 

msg form.rar

رابط هذا التعليق
شارك

استاذي الجميل @Shivan Rekany مشكور على المشاركة

حل جيد استاذي الكريم ، ولكن عند الضغط على ( NO ) يقوم بالاستمرار والحفظ  والانتقال  الى سجل جديد .

والمطلوب عند الضغط على زر ( NO )  فقط يقوم باغلاق الرسالة وايقاف الحدث والرجوع مرة اخرى الى ما قبل الضغط على رز ( NO )  بمعني ( Exit Sub ) او ( Cancel event )

كل الشكر والتقدير استاذي الكريم ،،،

تم تعديل بواسطه wael_rafat
رابط هذا التعليق
شارك

غدا راح اشوفه ان شاء الله لان ليس لدي لابتوب الان

لكن حسب فكري امسح كل الاكواد في زر لا فقط خلي كود اغلاق النموذج

انتظرني حتى غدا

رابط هذا التعليق
شارك

في ١١‏/١١‏/٢٠١٨ at 20:19, wael_rafat said:

والمطلوب عند الضغط على زر ( NO )  فقط يقوم باغلاق الرسالة وايقاف الحدث والرجوع مرة اخرى الى ما قبل الضغط على رز ( NO )  بمعني ( Exit Sub ) او ( Cancel event )

اتفضل

 

msg form.rar

رابط هذا التعليق
شارك

استاذي الحبيب بارك الله فيك وجزاك الله عنا كل خير

سامحني استاذنا على الاطالة

1- بعد الضغط على زر yes لا يقوم بادراج سجل جديد ، وحاولت فيها ولكن دون جدوى .

2 - افضل استاذي بعد اذنك لو طريقة اخرى  غير نقل الكود او الحدث من نموذج البيع الى الى زر Yes بنموذج الرسالة .

هي مشكلتي فقط بزر No الموجود بنموذج الرسالة  بينما زر Yes ما فيه اي مشكلة

والسؤال هو .... كيف اغلق نموذج الرسالة عند الضغط بزر NO  وبدون استكمال الكود ( الحدث) بعدها

 

كل شكري وتقديري استاذي الكريم    ،،،، وسامحني على الاطالة

رابط هذا التعليق
شارك

في ١٢‏/١١‏/٢٠١٨ at 11:29, wael_rafat said:

والسؤال هو .... كيف اغلق نموذج الرسالة عند الضغط بزر NO  وبدون استكمال الكود ( الحدث) بعدها

اتفضل استخدمت فانكشن لبقية الكود مع متغير
 

Public YesOrNo As Integer
Public Function PrintMyRep()
   If YesOrNo = 1 Then
        DoCmd.OpenReport "Rprnt", acViewNormal, , "[orderno] = " & Me![orderno]
        Form_f_order.SetFocus
        DoCmd.GoToRecord , , acNewRec
  If Me.orderno > 0 Then
        Exit Function
    Else
        Refresh
        Call MyOutoNum
        F_ordersubform.SetFocus
        DoCmd.GoToControl "itemcode"
        Refresh
   End If
    End If
End Function

 

msg form (1).rar

  • Like 1
  • Thanks 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information