الفضلاء عمالقة الأكسيس في منتدى أوفيسنا،
تحية طيبة وبعد
كم تعلمنا منكم بما أضفى على الأعمال سهولة وإجادة.
لدينا سؤال نسأل أن يعلمكم الله إجابته.
أريد عمل فهرسة تلقائية لمحتويات تقرير. وقد بحثت ووجدت بغيتي في قاعدة تفعل ذلك، فتفهرس التقرير تلقائيا بعمل أكواد أثناء الفتح والطباعة، وتحيل ذلك إلى جدول يبنى عليه الفهرس المطلوب.ولقد أحببت أن أستعمل هذا الكود على ما لدي ولم أنجح حتى الآن.
فرجاء أفيدونا بشرح هذا الكود. وهو:
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