اريد اضافة ارقام السجلات في التقرير بdata report

للأسف الـ DataReport لا يوجد به إمكانية الترقيم .

ولكن يمكن الإلتفاف عليه و عمل كائن RecordSet يضاف إليه حقل للمسلسل ثم نقوم بتعبئة هذ الحقل عبر حلقة تكرارية ثم تحميل أداة التقارير DtatReport بكائن السجلات الجديد .

أرجو أن تكون الصورة واضحة .

الرجاء شاكراً لمن يعلم الرد بمثال code

والله عندي طريقة وجتها في اجد الاكواد

سابحث عنه

ضع البرنامج وسأعدله لك بإذن الله

هناك الطريقة التالية:

اربط تقريرك بجدول فارغ ، تقوم بتعبئته عن طريق نقل المعطيات التي تريدها تنفيذها ب SQL مع ترقيم لكل سجل في حقل تنشئه في هذا الجدول ثم تظهر التقرير.

وهكذا تقوم في كل مرة تنفذ فبه الاستعلام بافراغ الجدول أولاً وإملائه بالبيانات الجديدة المرقمة ثانياً وتظهرها في التقرير.

ارجو من الاخوة وضع مثال بسيط مع الكود حتى يتثنى لي حل هذه المشكلة

اقتباس

هناك الطريقة التالية:

اربط تقريرك بجدول فارغ ، تقوم بتعبئته عن طريق نقل المعطيات التي تريدها تنفيذها ب SQL مع ترقيم لكل سجل في حقل تنشئه في هذا الجدول ثم تظهر التقرير.

وهكذا تقوم في كل مرة تنفذ فبه الاستعلام بافراغ الجدول أولاً وإملائه بالبيانات الجديدة المرقمة ثانياً وتظهرها في التقرير.

أخي العزيز ما شاء الله عليك فكره ممتازه حقيقة فهل تساعدنا بالكود لو سمحت من فضك ؟

زلك الشكر والتقدير ...

فنكشن كتب:

أخي العزيز ما شاء الله عليك فكره ممتازه حقيقة فهل تساعدنا بالكود لو سمحت من فضك ؟

تكرم أخي : ولكن أمهلني يومين بسبب سفري وإن شاء الله يكون المثال عندك :rolleyes:

لك يومين والثالث معها اذا احببت ان ترتاح بعد وصولك بالسلامة

تروح وترجع بالسلامة أخي العزيز

تحياتي

هذا هو الكود

وتجد في المرفق المثال كاملاً

Option Explicit

Private Sub Command1_Click()


    Dim Db As Connection
    Set Db = New Connection
    Db.CursorLocation = adUseClient
    Db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;"
    
    Dim Rs As Recordset
    Set Rs = New Recordset
    
    Rs.Open "UPDATE MainTable SET MainTable.Num = 0;", Db, adOpenKeyset, adLockPessimistic
    

    Rs.Open "SELECT Num, Name FROM MainTable;", Db, adOpenKeyset, adLockPessimistic ', adLockBatchOptimistic
    
    
    Rs.MoveFirst
    
    
    Dim Count As Integer
    
    Count = 0
    
   While Rs.EOF = False
          
        Count = Count + 1
         Rs.Fields(0).Value = Count
        Rs.Update
        Rs.MoveNext
    
    Wend
    
   Set DataReport1.DataSource = Rs

    DataReport1.Show

End Sub

ترقيم التقرير.rar

اليكم المثال وفق الفكرة التي طرحتها.

شكراً للسيد MSVS على المثال الذي قمت بتعديله ليبين فكرتي.

وأنا جاهز لأي استفسار.

num.zip

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

اشكر الاخ g-johnny على الكود وسأفتحه بعد قليل ...

والاخ MSVS لم اتمكن من تحميل الملف المرفق حيث تظهر لي رساله بأن الملف قديم او مفقود ...

ولكم شكري جميعا ..