للخبراء في الداتا ريبورت ؟؟ أرجو المساعدة

نفس الأمر المستخدم كالعادة ولكن

لاظهار التقرير نستخدم الكود التالي :

 DataReport1.SHow

ولطباعة التقرير مباشرة دون إظهاره نستخدم الكود التالي

 DataReport1.PrintReport False,rptRangeAllPages

والذي يهمنا هنا هو الجزء هذا فقط

 DataReport1.PrintReport

حيث أن

 DataReport1.PrintReport False,rptRangeAllPages
false  هنا تعني هل يتم اظهار مربع حوار اختيار الطابعة

rptRangeAllPages  تعني طباعة جميع الصفحات

أخي الكريم omani حفظك الله

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

أشكرك على تجاوبك معي جزيل الشكر ... ولكن المشكلة لدي أكبر من ذلك !!

سؤالي ينقسم إلى قسمين كالتالي :

1- كيف يمكن أن أعرض السجل الأخير فقط من قاعدة البيانات وليس جميع السجلات وذلك باستخدام الداتا ريبورت ؟؟

2- كيف يمكن طباعة السجل الأخير فقط مباشرة بدون عرضه على الداتاريبورت ؟؟

3- لقد استخدمت الكود التالي في زر الطباعة :

DataReport1.PrintReport false, RptRangeFromTo, Ado1.Recoredset.RecordCount, Ado1.Recordset.RecordCount

حيث أن Ado1.Recordset.RecordCount تمثل عدد السجلات أو بمعنى آخر رقم السجل الأخير..

لكن المشكلة عندي أنه يطبع السجل الأخير في أول مرة فقط اشغل فيها البرنامج لكن عندما أضيف سجل جديد بدون أن أغلق البرنامج

فإنه يطبع نفس السجل السابق مع العلم أنني استخدمت الأمر Unload DataEnvirnment1 بعد أمر الطباعة مباشرة ..

أرجو ممن لديه المعرفه إفادتي وجزاكم الله خيرا.........

أخي جرب هذا الأمر

Dim sql, st As String

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

sql = "select * from ss where ts ='" + Text1.Text + "'"

st = "provider = microsoft.jet.OLEDB.4.0;"

st = st & "data source =" & App.Path & "\db.mdb"

cn.ConnectionString = st

cn.CursorLocation = adUseClient

cn.Open

rs.Open sql, cn, adOpenDynamic, adLockOptimistic

Set DataReport2.DataSource = rs

DataReport2.Show

أخي الكريم mmssk100 حفظك الله

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

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

التعديل في الكود بشتى الطرق ولكن لم اتوصل الى نتيجة.

اشكرك على تواصلك معي وجزاك الله خيراً .........

ارجوا المساعدة يا أخوان بارك الله فيكم ؟؟؟؟؟؟؟

ما في أمل أحد يرد علي ويساعدني !!!!!!!!!!!!!!!!!!!

أخي الكريم هل ممكن ترفق المثال للاطلاع لعلنا نجد حلا

تحياتي