*تقارير* كيف اعيد الترقيم من 1 في كل صفحة تقرير

شكرا لكم

بسم الله الرحمن الرحيم

حبيبنا VB.NET

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

أتمنى أن تجد فيما يلي حلا لمشكلتك-بالمناسبة أنا ضعيف في الأكسس ولكن سبق أن بحثت عن حل لنفس المشكلة منذ وقت طويل ووجدت هذا الحل في أحد أروقة الإنترنت.

حل المشكلة

*****************************************

أولا اكتب هذا النص في وحدة نمطية جديدة

*****************************************

Option Compare Database
    Function Tmp()
    On Error GoTo ErrorHandler
        Set DB = DBEngine(0)(0)
        DB.Properties.Append DB.CreateProperty("SerialNo", DB_LONG, 0)
ErrorHandler:
    Select Case Err.Number
            Case 3367
                Beep
                Exit Function
            Case Else
                Msg = "Error # " & Str(Err.Number) & " was generated by " & Err.Source & Chr(13) & Err.Description
                MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
                Exit Function
    End Select
    Resume
    End Function
    Function CurrSerial() As Long
        Set DB = DBEngine(0)(0)
        CurrSerial = DB.Properties!SerialNo
    End Function
    Function NextSerial() As Long
        Set DB = DBEngine(0)(0)
        DB.Properties!SerialNo = DB.Properties!SerialNo + 1
        NextSerial = DB.Properties!SerialNo
    End Function
    Function ResetSerial()
        Set DB = DBEngine(0)(0)
        DB.Properties!SerialNo = 0
    End Function

*****************************************

ثانيا

*****************************************

كل ما عليك الآن أن تحدد قيمة عنصر التحكم للخانة التي تريد أن تضع فيها الرقم المسلسل (الحقل النصي) كما يلي

=NextSerial()

*****************************************

ثالثا

*****************************************

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

=ResetSerial()

*****************************************

انتهى

*****************************************

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

مشكور يا ALI XML

الله يوفقك ويبعد عنك كل شر

الأخ/علي

عند تطبيق الكود تظهر لي رسالة نصها " هذا الخاصية غير موجودة " ثم يتظلل السطر التالي:

DB.Properties!SerialNo = 0 باللون الأصفر0

أرجو التوضيح أن امكن

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

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

Tmp ()