تسلسل خاص في التقارير

هذه محاولة لتنفيذ ذلك من خلال متغير على مستوى وحدة التقرير النمطية، ويتم نقل القيمة الابتدائية عبر خاصية OpenArgs للتقرير. كل ذلك في الملف المرفق... والله أعلم.

ملحوظة: من فضلك أخي، غيّر نوع المشاركة إلى (سؤال) وليس (مشروع)...

New Microsoft Office Access Application.rar

الاخ figo82eg

السلام عليكم ورحمة الله

جزاك الله خيرا على هذا السؤال

وبعد اذنك اشكر الاخ احمد على الاجابه

وجزاه الله خيرا

جزاكما الله خيراااااااا

+1 لكل منكم

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

وأشكر أخي أبو أحمد أيضاً

ارجو المساعدة

أخي figo82eg، هل انتبهت إلى جميع تفاصيل الحل؟

أولاً: في الوحدة النمطية للتقرير، هذا الكود

Option Compare Database

Dim lngSerial As Long

Private Function GetNextSerial() As Long
    GetNextSerial = lngSerial
End Function

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    If FormatCount = 1 Then lngSerial = lngSerial + 1
End Sub

Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)
    lngSerial = Me.OpenArgs - 1
End Sub

وثانياً: في النموذج في حدث النقر على زر الطباعة

    If Not IsNumeric(Nz(H.Value, 0)) Then
        MsgBox "íÌÈ Ãä Êßæä ÇáÞíãÉ Ýí ÍÞá ÇáÊÓáÓá ÑÞãíÉ", vbExclamation, "ÎØÃ"
        Me.H.SetFocus
        Exit Sub
    End If

    DoCmd.OpenReport "ÈÍË ãä ÎáÇá ÊÇÑíÎíä", acPreview, , , , Nz(H.Value, 0)

هل طبقت ذلك على بقية التقارير؟