كتابة عدد صفحات تقرير بالحروف

[moho58]

السلام عليكم

الإخوة الأفاضل في هذا المنتدى الجميل

في موضوعي هذا اريد كتابة عدد الصفحات في تقرير  (بالحروف) وهذا بناء على الجدول tab_page

إذا كان عدد صفحات التقرير هو : 1  يكتب في المكان المخصص في التقرير : يحتوي هذا التقرير على :صفحة واحدة

إذا كان عدد صفحات التقرير هو : 2يكتب في المكان المخصص في التقرير : يحتوي هذا التقرير على :صفحتين (2)

وهكذا ....

الرجاء المساعدة والتوجيه وبارك الله فيكم

 

BASE_P.accdb

[kkhalifa1960]

تفضل استاذ @moho58 طلبك حسب مافهمت . ووافني بالرد .

BASE_P-1.rar

[jjafferr]

وعليكم السلام

 

اضف مربع النص هذا (تقدر تعمله مخفي)، في هذا القسم:

 

ثم في حدث عند تنسيق Report Footer اكتب هذا الكود

Private Sub Report_Footer_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo err_Report_Footer_Format

    Me.p = DLookup("Page_lettre", "tab_Page", "num_page=" & Me.Pages)
    
Exit_Report_Footer_Format:

Exit Sub
err_Report_Footer_Format:

    MsgBox Err.Number & vbCrLf & Err.Description
    Resume Exit_Report_Footer_Format
End Sub

 

1626.BASE_P.accdb

5 دقائق مضت, kkhalifa1960 said:

تفضل استاذ @moho58 طلبك حسب مافهمت . ووافني بالرد .

ماشاءالله عليك اخوي خليفة ، حبتين البهارات اللي اضفتها اعطت نتيجة احلى 🙂

[moho58]

الأخ الفاضل @kkhalifa1960  والأخ الفاضل @jjafferr

جزاكم الله كل الخير على الرد والاهتمام بموضوعي

كلتا الاجابتين تؤديان المطلوب

اجابة الأخ @kkhalifa1960  فيها بعض التوسعة والاضافات الجيدة

مرة أخرى من القلب  أصدق عبارات الشكر والإمتنان و جزاكما الله خيرا

و ربي يبارك في هذا المنتدى الرائع ان شاء الله