سؤال سؤال : بخصوص تمرير معيار الى الرسائل فى الجدول

[ابو جودي]

السلام عليكم

احيانا يكون عندنا مثلا مربع نص على النموذج تتغير القيم بداخله
نحتاج احيانا ان نمرر هذه القيمة الى الرسالة احيانا حسب الحاجه

كيف السبيل الى ذلك فى طريقة جلب الرسائل من سجل بجدول

 

الرسائل من داخل V .01.mdb

تم تعديل يوليو 23, 2019 بواسطه ابا جودى

[jjafferr]

بما انك ترسل مجموعة بيانات الى الوحدة النمطية MyMesg ، فتستطيع ارسال معلومة اخرى ، وهي بيانات الحقل المتغير

يعني ، بدل:

بدل
MyMesg (txtOfMesg), vbOKOnly, strMsgTitle & strUserLogin


استعمل
MyMesg (txtOfMesg), vbOKOnly, strMsgTitle & strUserLogin,,, me.txtProfessor

 

وبعدين في الوحدة النمطية تلعب فيها كما تشاء ، مثل:

Public Function MyMesg(Mesgtxt As String, _
                      Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, _
                      Optional ByVal Title As String = "Judy", _
                      Optional ByVal HelpFile As Variant, _
                      Optional ByVal Context As Variant, _
                      Optional ByVal AdditionalInfo As String) As VbMsgBoxResult
  Mesgtxt = "This text is additional:" & AdditionalInfo & vbCrLf & Mesgtxt
  MyMesg = MsgBox(Mesgtxt, Buttons + vbMsgBoxRtlReading + vbMsgBoxRight + vbDefaultButton1, Title)
End Function

 

جعفر

[ابو جودي]

انا اريد النتيجة مطابقة تماما لنفس نتيجة الزر الاول 

الان, ابا جودى said:

انا اريد النتيجة مطابقة تماما لنفس نتيجة الزر الاول 

 

42 دقائق مضت, jjafferr said:

بما انك ترسل مجموعة بيانات الى الوحدة النمطية MyMesg ، فتستطيع ارسال معلومة اخرى ، وهي بيانات الحقل المتغير

يعني ، بدل:

بدل
MyMesg (txtOfMesg), vbOKOnly, strMsgTitle & strUserLogin


استعمل
MyMesg (txtOfMesg), vbOKOnly, strMsgTitle & strUserLogin,,, me.txtProfessor

 

وبعدين في الوحدة النمطية تلعب فيها كما تشاء ، مثل:

Public Function MyMesg(Mesgtxt As String, _
                      Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, _
                      Optional ByVal Title As String = "Judy", _
                      Optional ByVal HelpFile As Variant, _
                      Optional ByVal Context As Variant, _
                      Optional ByVal AdditionalInfo As String) As VbMsgBoxResult
  Mesgtxt = "This text is additional:" & AdditionalInfo & vbCrLf & Mesgtxt
  MyMesg = MsgBox(Mesgtxt, Buttons + vbMsgBoxRtlReading + vbMsgBoxRight + vbDefaultButton1, Title)
End Function

 

جعفر

انا اريد النتيجة مطابقة تماما لنفس نتيجة الزر الاول 

 

[jjafferr]

نفس الطريقة اعلاه ، ولكن بتغيير في الوحدة النمطية التالية:

Public Function MyMesg(Mesgtxt As String, _
                      Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, _
                      Optional ByVal Title As String = "Judy", _
                      Optional ByVal HelpFile As Variant, _
                      Optional ByVal Context As Variant, _
                      Optional ByVal AdditionalInfo As String) As VbMsgBoxResult
  Mesgtxt = Replace(Mesgtxt, "& Strxx", AdditionalInfo)
  MyMesg = MsgBox(Mesgtxt, Buttons + vbMsgBoxRtlReading + vbMsgBoxRight + vbDefaultButton1, Title)
End Function

 

حعفر

1102.الرسائل من داخل V .01.mdb.zip

[ابو جودي]

50 دقائق مضت, jjafferr said:

نفس الطريقة اعلاه ، ولكن بتغيير في الوحدة النمطية التالية:

Public Function MyMesg(Mesgtxt As String, _
                      Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, _
                      Optional ByVal Title As String = "Judy", _
                      Optional ByVal HelpFile As Variant, _
                      Optional ByVal Context As Variant, _
                      Optional ByVal AdditionalInfo As String) As VbMsgBoxResult
  Mesgtxt = Replace(Mesgtxt, "& Strxx", AdditionalInfo)
  MyMesg = MsgBox(Mesgtxt, Buttons + vbMsgBoxRtlReading + vbMsgBoxRight + vbDefaultButton1, Title)
End Function

 

حعفر

1102.الرسائل من داخل V .01.mdb.zip 74.04 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 5 downloads

جزاكم الله خيـــــــــــــــرا أستاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr