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

[wael_rafat]

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

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

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

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

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

 

msg form.rarFetching info...

تم تعديل نوفمبر 11, 2018 بواسطه wael_rafat

[Shivan Rekany]

  في 11‏/11‏/2018 at 16:49, wael_rafat said:

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

Expand  

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

msg form.rar

[wael_rafat]

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

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

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

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

تم تعديل نوفمبر 11, 2018 بواسطه wael_rafat

[Shivan Rekany]

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

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

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

[wael_rafat]

بارك الله فيك حبيينا ..... ونلتقي على خير ان شاء الله

بامان الله ورعايته .....

تم تعديل نوفمبر 11, 2018 بواسطه wael_rafat

[Shivan Rekany]

  في 11‏/11‏/2018 at 17:19, wael_rafat said:

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

Expand  

اتفضل

 

msg form.rar

[wael_rafat]

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

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

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

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

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

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

 

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

[Shivan Rekany]

  في 12‏/11‏/2018 at 08:29, wael_rafat said:

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

Expand  

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

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

[wael_rafat]

بارك الله فيك استاذنا @Shivan Rekany وجزاك الله كل خير