مساعدة في عمل فهرسة تلقائية لتقرير

[إبراهيم عطا]

الفضلاء عمالقة الأكسيس في منتدى أوفيسنا، 

تحية طيبة وبعد

كم تعلمنا منكم بما أضفى على الأعمال سهولة وإجادة.

لدينا سؤال نسأل أن يعلمكم الله إجابته.

أريد عمل فهرسة تلقائية لمحتويات تقرير. وقد بحثت ووجدت بغيتي في قاعدة تفعل ذلك، فتفهرس التقرير تلقائيا بعمل أكواد أثناء الفتح والطباعة، وتحيل ذلك إلى جدول يبنى عليه الفهرس المطلوب.ولقد أحببت أن أستعمل هذا الكود على ما لدي ولم أنجح حتى الآن. 

 فرجاء أفيدونا بشرح هذا الكود. وهو: 

Private Sub GroupFooter0_Print(Cancel As Integer, PrintCount As Integer)
Dim db As Database  'To reference what db we're in
Dim rs As DAO.Recordset  'This holds the records to loop
Dim strSQL As String 'Your SQL statement
Dim lCount As Long 'This will tally the hours
GrpLastPage = Page
'Objects like databases & records need to be "set"
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1")
'Now rs is equal to your select statement
With rs
.AddNew
.Fields("page") = "من صفحة " & GrpStPage & " إلى صحفة " & GrpLastPage
.Fields("Name") = Me.CategoryName
.Update
End With
End sub

 

[AlwaZeeR]

تفضل الكود يعمل بشكل سليم

قم بتطبيق ما يلي

::

يوضع الكود في حدث عند الطباعة لتذييل الصفحة

PageFooterSection

ضع مربع نص في نفس قسم التذييل وضع فيه

=[Pages]

وسميه ما شئت

قم بتغيير مسميات الجدول الخاص بتخزين الفهرس لان المسميات الموجودة في الكود محجوزة للنظام

مثلا انا سميتها

Wpage

pageName

هذا هو الكود بعد التعديل

Dim db As Database  'To reference what db we're in
Dim rs As DAO.Recordset  'This holds the records to loop
Dim strSQL As String 'Your SQL statement
Dim GrpStPage As String
Dim GrpLastPage As String
GrpStPage = Page
GrpLastPage = Pages

'Objects like databases & records need to be "set"
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1")
'Now rs is equal to your select statement
With rs
.AddNew
.Fields("Wpage") = "من صفحة " & GrpStPage & " إلى صحفة " & GrpLastPage
.Fields("pageName") = Me.CategoryName
.Update
End With

واذا لم تستطع التطبيق ارفق مثالا صغيرا للتطبيق عليه

 

 

تم تعديل يونيو 22, 2019 بواسطه AlwaZeeR
خطأ املائي في كلمة

[إبراهيم عطا]

3 hours ago, AlwaZeeR said:

تفضل الكود يعمل بشكل سليم

قم بتطبيق ما يلي

::

يوضع الكود في حدث عند الطباعة لتذييل الصفحة

PageFooterSection

ضع مربع نص في نفس قسم التذييل وضع فيه

=[Pages]

وسميه ما شئت

قم بتغيير مسميات الجدول الخاص بتخزين الفهرس لان المسميات الموجودة في الكود محجوزة للنظام

مثلا انا سميتها

Wpage

pageName

هذا هو الكود بعد التعديل

Dim db As Database  'To reference what db we're in
Dim rs As DAO.Recordset  'This holds the records to loop
Dim strSQL As String 'Your SQL statement
Dim GrpStPage As String
Dim GrpLastPage As String
GrpStPage = Page
GrpLastPage = Pages

'Objects like databases & records need to be "set"
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1")
'Now rs is equal to your select statement
With rs
.AddNew
.Fields("Wpage") = "من صفحة " & GrpStPage & " إلى صحفة " & GrpLastPage
.Fields("pageName") = Me.CategoryName
.Update
End With

واذا لم تستطع التطبيق ارفق مثالا صغيرا للتطبيق عليه

 

 

أولا أدعو الله أن يثيبك خير الجزاء على  سرعة الرد والاستجابة.

ثانيا: إليك قاعدة البيانات التي بها التقرير المنشود.

وفقك الله على كل حال.

طباعة فهرس للتقرير الموجود.accdb

[AlwaZeeR]

تفضل

وهذه النتيجة بعد التنقل بين صفحات التقرير

 

FahrasTest.accdb

طبعا لا اعرف هل هذه النتيجة التي تريدها ام لا لكن الكود الذي وضعته انت يقوم بهذا عند معاينة التقرير والتنقل بين محتوياته

 

[ابو جودي]

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

تفضل

وهذه النتيجة بعد التنقل بين صفحات التقرير

 

FahrasTest.accdb 960 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

بصراحة الاول لم اكن افهم المطلوب الاى اتضحت الرؤيا واعجبتنى جدا فكرة الكود ماشاء الله

لكن استاذى الجليل ومعلمى القدير الاستاذ @AlwaZeeR  فضلا وكرما لى تساؤل 

لماذ تنتهى كلها بالصفة 13

اليس من المفترض ان تبدأ برقم بداية الصفخة للمدسة وتنتهى عند اخر صفحة لها ؟!

ام انى لم افهم جيدا ؟

[AlwaZeeR]

نعم

كلامك صحيح مئة بالمئة أيها الانسان الطيب

هو المفروض والله اعلم ان يكون كذلك

وأيضا يحتاج الى إضافة عدم التكرار في حال تمت الفهرسة

لكن الكود الذي وضعه صاحب الموضوع

الأخ ابراهيم

يقوم بذلك

لننتظر ونرى ان كان هو المطلوب ام يريد التعديل في الكود ليكون مثل ما تفضلت انت

تحياتي لك أبا جودي

[ابو جودي]

1 دقيقه مضت, AlwaZeeR said:

نعم

كلامك صحيح مئة بالمئة أيها الانسان الطيب

هو المفروض والله اعلم ان يكون كذلك

وأيضا يحتاج الى إضافة عدم التكرار في حال تمت الفهرسة

لكن الكود الذي وضعه صاحب الموضوع

الأخ ابراهيم

يقوم بذلك

لننتظر ونرى ان كان هو المطلوب ام يريد التعديل في الكود ليكون مثل ما تفضلت انت

تحياتي لك أبا جودي

أيضا يحتاج الى إضافة عدم التكرار في حال تمت الفهرسة  >>---->  لاحظت ذلك وكنت سأحاول التعديل على الكود لعدم التكرار فعلا 
اصابنى موضوع اللغة العربية فى موضوع الباركود بصداع لا مثيل فعلا فقدت القدرة الان على التركيز يومان من البحث المضنى بلا اى فائدة سوى الصداع 
ان شاء الله لى عودة مع الكود الرائع هذا لانه اعجبنى جدا جدا جدا 

وتسلم ايدك استاذى الجليل ومعلمى القدير استاذ @AlwaZeeR ماشاء الله 

[AlwaZeeR]

2 minutes ago, ابا جودى said:

موضوع اللغة العربية فى موضوع الباركود

انا لم يكن للباركود يوماً سبيلاً في عملي واظن انه لن يكون 

ولكن رايت موضوعا للأستاذ العزيز جعفر ابدع فيه بذلك

انتظر رايه وسوف تجد الحل الشافي باذن الله

تحياتي

[ابو جودي]

الان, AlwaZeeR said:

انا لم يكن للباركود يوماً سبيلاً في عملي واظن انه لن يكون 

ولكن رايت موضوعا للأستاذ العزيز جعفر ابدع فيه بذلك

انتظر رايه وسوف تجد الحل الشافي باذن الله

تحياتي

هههههههههههه

انا مهندس كيميائى ولا علاقة لى لا من بعيد او من قريب لا بالباركود ولا بالبرمجة ولن احتاجه تقريبا ولكن من باب الفضول 
واكثر ما يأرقنى عدم الاقتناع او الوصول لنتيجة

وما اصابنى بالجنون انه تارة انشئ رمز الباركود بالغة العربية وتارة رموز غير العربية 

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

[إبراهيم عطا]

4 hours ago, ابا جودى said:

بصراحة الاول لم اكن افهم المطلوب الاى اتضحت الرؤيا واعجبتنى جدا فكرة الكود ماشاء الله

لكن استاذى الجليل ومعلمى القدير الاستاذ @AlwaZeeR  فضلا وكرما لى تساؤل 

لماذ تنتهى كلها بالصفة 13

اليس من المفترض ان تبدأ برقم بداية الصفخة للمدسة وتنتهى عند اخر صفحة لها ؟!

ام انى لم افهم جيدا ؟

جزاك الله عنا وعمن سيتخدمه خير الجزاء.

ولكن عفوا لست صاحب الكود وللأمانة، أنا مجرد ناقل له

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

وإليك تلك القاعدة، فتفضله مشكورا مأجورا .

NA_ReportIndex.mdb

[ابو جودي]

5 ساعات مضت, إبراهيم عطا said:

جزاك الله عنا وعمن سيتخدمه خير الجزاء.

ولكن عفوا لست صاحب الكود وللأمانة، أنا مجرد ناقل له

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

وإليك تلك القاعدة، فتفضله مشكورا مأجورا .

NA_ReportIndex.mdb 544 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

وتتوالى نفحات الاستاذ القدير والمعلم الجليل الاستاذ @أبو آدم 

ان شاء الله لى عودة بعد العمل 

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

[إبراهيم عطا]

On 6/23/2019 at 6:25 AM, ابا جودى said:

وتتوالى نفحات الاستاذ القدير والمعلم الجليل الاستاذ @أبو آدم 

ان شاء الله لى عودة بعد العمل 

 

On 6/23/2019 at 6:25 AM, ابا جودى said:

وتتوالى نفحات الاستاذ القدير والمعلم الجليل الاستاذ @أبو آدم 

ان شاء الله لى عودة بعد العمل 

ونحن في شوق لعودتك الكريمة لتحل لنا مسألة عدم التكرار

وأحيط علم سيادتك بأن الكود الذي رفعته لحضرتك وتم تعديلك الكريم عليه يرصد رقم آخر صفحة لكل رأس مجموعة وليس أول صفحة 

؛ إذ إن للقاعدة كود آخر لا يتكرر فيه، فحاولت بجهد مقل وبدلت الكود إلى حدث أثناء الطباعة في رأس المجموعة فقام بالمراد إلا أنه رصد رقم كل صفحة تأتي بها اسم المجموعة مكررا وهذا لم يطلب طبعا

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

[إبراهيم عطا]

تفضل أستاذنا الكريم هذه ما توصلت إليه بعد محاولات والإفادة من علمك وعملك أرجو أن ينال رضاكم 

محاولة فهرسة.rar