اسم الزر يظهر فى الرسالة

[jo_2010]

الخبراء الافاضل

بعد التحية

هل استطيع اظهار اسم الزر فى رسالة 

بمعنى عندى اكثر من زر وكل زر يفتح تقرير معين

مثلا زر urine عند الضغط علية تظهر رسالة مكتوب بها 

If MsgBox("هـل  . . . . .  تريـد  طبـاعة  تقريـر            الخـاص   " & vbNewLine & vbCrLf & _
"  بـــ  " & PNAME & "   " & kind & "   ", vbQuestion + vbMsgBoxRight + vbYesNo, JO_Title) = vbYes Then
    DoCmd.PrintOut
 DoCmd.close acReport, Reports(0).Name
Else
    DoCmd.close
End If

اريد بعد كلمة تقرير الموجود بالرسالة اضيف ال Caption الخاص بالزر 

[Foksh]

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

If MsgBox("الخاص " & Me.BTNFoksh.Caption & " هـل  . . . . .  تريـد  طبـاعة  تقريـر" & vbNewLine & vbNewLine & _
"  بـــ  " & PNAME & "   " & kind, vbQuestion + vbMsgBoxRight + vbYesNo, JO_Title) = vbYes Then

    DoCmd.PrintOut
    DoCmd.Close acReport, Reports(0).Name

Else
    DoCmd.Close acReport, Reports(0).Name
End If

جرب هذا التعديل ؟؟

[jo_2010]

4 ساعات مضت, Foksh said:

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

If MsgBox("الخاص " & Me.BTNFoksh.Caption & " هـل  . . . . .  تريـد  طبـاعة  تقريـر" & vbNewLine & vbNewLine & _
"  بـــ  " & PNAME & "   " & kind, vbQuestion + vbMsgBoxRight + vbYesNo, JO_Title) = vbYes Then

    DoCmd.PrintOut
    DoCmd.Close acReport, Reports(0).Name

Else
    DoCmd.Close acReport, Reports(0).Name
End If

جرب هذا التعديل ؟؟

معلمى الفاضل دى وحدة نمطبة مش هينفع استخدم me

ثم حضرتك دى بتعمل علي اكثر من زر مش هايتفع  Me.BTNFoksh

لان كل زر لة اسم انجليزىو

Caption  انجليزى مختلف

[Foksh]

الان, jo_2010 said:

معلمى الفاضل دى وحدة نمطبة مش هينفع استخدم me

 

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

فلم تأتِ على ذكر ان الكود جزء من مديول ، هذا أولاً .

ثانياً لا يتم الأمر بالصورة التي تتوقعها ، ولكن سيكون هناك دالة منفصلة على هذا الطلب .

 

على العموم ، في مديول جديد أو موجود ، انسخ الدالة التالية ، والصقها في مشروعك :-

Public Sub FokshBTN(btn As commandButton, ByVal PNAME As String, ByVal Kind As String, Optional ByVal JO_Title As String = "تأكيد طباعة")
    On Error Resume Next
    Dim msg As String
    msg = "الخاص " & btn.Caption & " هـل  . . . . .  تريـد  طبـاعة  تقريـر" & vbNewLine & vbNewLine & _
          "  بـــ  " & PNAME & "   " & Kind
    If MsgBox(msg, vbQuestion + vbMsgBoxRight + vbYesNo, JO_Title) = vbYes Then
        DoCmd.PrintOut
        DoCmd.Close acReport, Reports(0).Name
    Else
        DoCmd.Close acReport, Reports(0).Name
    End If
End Sub

ثم في أي زر ، يتم الاستدعاء بالشكل التالي :-

FokshBTN Me.ActiveControl, PNAME, Kind

 

 

😅

[jo_2010]

3 ساعات مضت, Foksh said:

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

فلم تأتِ على ذكر ان الكود جزء من مديول ، هذا أولاً .

ثانياً لا يتم الأمر بالصورة التي تتوقعها ، ولكن سيكون هناك دالة منفصلة على هذا الطلب .

 

على العموم ، في مديول جديد أو موجود ، انسخ الدالة التالية ، والصقها في مشروعك :-

Public Sub FokshBTN(btn As commandButton, ByVal PNAME As String, ByVal Kind As String, Optional ByVal JO_Title As String = "تأكيد طباعة")
    On Error Resume Next
    Dim msg As String
    msg = "الخاص " & btn.Caption & " هـل  . . . . .  تريـد  طبـاعة  تقريـر" & vbNewLine & vbNewLine & _
          "  بـــ  " & PNAME & "   " & Kind
    If MsgBox(msg, vbQuestion + vbMsgBoxRight + vbYesNo, JO_Title) = vbYes Then
        DoCmd.PrintOut
        DoCmd.Close acReport, Reports(0).Name
    Else
        DoCmd.Close acReport, Reports(0).Name
    End If
End Sub

ثم في أي زر ، يتم الاستدعاء بالشكل التالي :-

FokshBTN Me.ActiveControl, PNAME, Kind

 

 

😅

الخبير الفاضل خالص الشكر لحضرتك 

واعتذر لعدم طرح سؤالى بشكل جيد