[mamba732]

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

في البداية اود ان اوضح
وضيفة الكود الحالية
عند البحث بين تاريخين وطباعة التقرير يقوم هاذا الكود بتسجيل التاريخ حسب الاختيار مثلا لو كان زمن البحث 1/1/ 2014 الي 30/1/2014
عند طباعة التقرير يعمل الكود بشكل جيد بهاذي الصيغة 1/2014
انا اريد ان تكون الصيغة يــــــنــــايـــــر 2014

كود :

Dim txtmonth_year As String = "شهر " & txtDateFrom.Value.Month() & "من العام" & txtDateFrom.Value.Year
        Dim txtMY As TextObject = CType(rpt.ReportDefinition.Sections(1).ReportObjects("txtmonthyear"), TextObject)
        txtMY.Text = txtmonth_year