وضعت استعلام وتقرير لكن يخرج فارغ ..,

اخي الفاضل

عبدالله الحقباني

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

اختكم

زهره

شكرا لمشاركتك أختي الكريمة ..

السؤال بارك الله فيكم .. عند إضافة سجل جديد والضغط على زر معاينة لا تخرج المعلومات فقط يخرج التقرير فارغا ، ويجب عليّ أن أذهب للسجل الذي قبله وأعود للسجل الذي أدخلت معلوماته واطبع ..

أتمنى يكون الشرح مفهوم ..

اجعل عملية الانتقال الى القيد التالي و السابق تلقائية بأضافة الكود التالي:

DoCmd.GoToRecord , , acNext

DoCmd.GoToRecord , , acPrevious

بعد الكود التالي و الموجود اصلاً في حدث عند النقر بزر الماوس لمفتاح مشاهدة التقرير

Dim stDocName As String

الملف بعد التعديل

alahsan1.rar

الأمر اٍن شاء الله سهل جدا و ذلك باٍضافة سطر لكود أمر الطباعة أو لكود معاينة التقرير كاتالي:

Private Sub ÃãÑ52_Click()
On Error GoTo Err_ÃãÑ52_Click
Me.Refresh
    Dim stDocName As String

    stDocName = ChrW(1573) & ChrW(1602) & ChrW(1585) & ChrW(1575) & ChrW(1585)
    DoCmd.OpenReport stDocName, acPreview

Exit_ÃãÑ52_Click:
    Exit Sub

Err_ÃãÑ52_Click:
    MsgBox Err.Description
    Resume Exit_ÃãÑ52_Click
    
End Sub

السطر التي تمت اضافته للكود هو تعبير Me.Refresh و يتمثل دوره في تحديث البيانات قبل الطباعة أو معاينة التقرير.

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

تم حل المشكلة ..