مربع نص في تقرير

[علاء طه]

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

امتحانات.rar

[jjafferr]

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

 

1. نعطي الحقلين اسماء واضحة :

.

2. من المهم جدا ان نعمل الحدث "عند التنسيق" للقسم الصحيح الذي فيه الحقول التي نريدها:

.

3. بهذا الكود نأخذ او قيمة في مصدر بيانات التقرير ، ثم ننتقل الى نهاية السجلات ، ونأخذ آخر قيمة :

Private Sub رأس_التقرير_Format(Cancel As Integer, FormatCount As Integer)

    Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset(Me.RecordSource)
    Me.First_on_the_List = rst![اسم التلميذ]
    rst.MoveLast
    Me.Last_on_the_List = rst![اسم التلميذ]

    rst.Close: Set rst = Nothing

End Sub

.

والنتيجة:

.

جعفر

1372.امتحانات.mdb.zip

[الساحة البريدية]

حبيت اشاركك بهذا الكود

 

Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("صف سادس", dbOpenDynaset)
   rs.MoveFirst
   Me.first = rs![اسم التلميذ]
   rs.MoveLast
   Me.last = rs![اسم التلميذ]
 

 

يكون في حدث عند تحميل التقرير

 

 

تم تعديل مايو 18, 2021 بواسطه jjafferr
تم عمل تعديل في التنسيق

[علاء طه]

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