فتح التقرير الذي في الشاشة

شباب للايضاح اكثر

لدي النموذج MainFrm يحوي العديد من الصفحات كل صفحة بها نموذج فرعي

عندما اضغط زر معاينة التقرير الموجود بالنموذج الفرعي مثلا بصفحة التحاليل اريد التقرير SanadatRpt يفتح لي وتظهر لي التحاليل فقط اي لاتظهر باقي الخدمات 

واذا كنت بصفحة الاشعه وضغطت زر معاينة التقرير يفتح لي نفس التقرير ولكن تظهر خدمة الاشعه فقط ..... الخ

اي استعلام متغير (مصدر سجلات التقرير الفرعي) يعتمد على عنوان الخدمة الموجود بكل نموذج فرعي

معذرة أخي

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

على العموم عملت تقرير مؤقت به نفس البيانات لتجربة فكرة كود الصفحة بالنموذج

جرب المرفق

InsuranceMang 2.rar

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

هذا هو المطلوب بالضبط

وددت لو ان هنالك طريقة بتغيير الاستعلام للتقرير الفرعي عند كل ضغط زر معاينة ( لان العناوين ( معاينة ، تحاليل ، اشعه ... الخ غير ثابته وقد احتاج لتغييرها باي لحظه) ) بدلا عن هذا الكود

شكرا مرة اخرى وبارك الله بك وونفع بك المسلمين وجعله في ميزان حسناتك

انظر اخي امير للمطلوب بشكل ادق

InsuranceMang 3.rar

شكرا اخي امير 2008 تم التطبيق بنجاح بعد التعديلات وهذا المرفق

InsuranceMang 4.rar

لكن كما تعلم هذا مثال ، وعند محاولة التنفيذ على ماعندي لم تجدي العملية لا اعلم ما السبب

فقد ظهرت لي الرساله التالية:

فهلا شرحت لي مافعلت بالضبط

نعم نعم

هذا مربع نص مخفي يتم فيه تخزين رقم الصفحة

اعمل مربع نص وسميه page_now

أمير2008 كتب:

نعم نعم

هذا مربع نص مخفي يتم فيه تخزين رقم الصفحة

اعمل مربع نص وسميه page_now

 السلام عليكم ... استاذ امير ممكن بس تشرحلي مالمعني من [screen].[ActiveControl] الموجودة في امر اظهار التقرير ... وشكرا جزيلا

مشكور اخي الف الف شكر

حلت المشكلة

[screen].[ActiveControl]

يستخدم للاشارة لعنصر التحكم النشط حالياً يعني الذي لديه التركيز Focus

طيب الحمد لله

يعني استفدت من الكود me.ps =

أم استخدمت كود آخر ؟

نعم استخدمته هو

لكن زر المعاينه للتقرير الحاليه تمام لكن لو اردت طباعت هذا التقرير لدي الكود التالي :

Private Sub btn_Click()
' This code created by Command Button Wizard.
On Error GoTo Err_btn_Click

    Dim strDocName As String
    
    strDocName = "TestsBill"
    ' Print Invoice report, using Invoices Filter query to print
    ' invoice for current order.
    DoCmd.OpenReport strDocName, acViewNormal, "", "OrderID = " & OrderID

Exit_btn_Click:
    Exit Sub

Err_btn_Click:
    ' If action was cancelled by the user, don't display an error message.
    Const conErrDoCmdCancelled = 2501
    If (Err = conErrDoCmdCancelled) Then
        Resume Exit_btn_Click
    Else
        MsgBox Err.Description
        Resume Exit_btn_Click
    End If
End Sub

فكيف استخدمه لطباعة التقرير الحالي بنفس طريقة معاينة التقرير الحالي

بعد امر المعاينة اكتب أمر الطباعة

DoCmd.PrintOut

انظر اين ظهر الخطأ

وعند استخدامي للكود اعلاه ( مشاركه 11 )

ظهرت هذه الرسالة

جرب تكتب الكود بعد كود معاينة التقرير

DoCmd.OpenReport "report1", acPreview, , , acHidden
DoCmd.PrintOut

DoCmd.OpenReport "SanadatRpt1",, , "OrderID = " & OrderID, , acHidden
DoCmd.PrintOut

عملت هذا اخي ولم يزبط

ممكن ترفق القاعدة

DoCmd.OpenReport "SanadatRpt1",acViewReport, , "OrderID = " & OrderID, , acHidden
DoCmd.PrintOut

والحمد لله مشى الحال لكن المشكلة ظهور معاينة للتقرير (acViewReport) وهذا ما لا اريده حيث عند استبعادي للخاصيه (acViewReport) لايعمل الكود جيدا واليك المرفق

InsuranceMang 4.rar

هذا الكود يعمل لكن على تقرير آخر خلاف SanadatRpt1

ولا تظهر معاينة ولا تحتاج أمر printout

Private Sub Command51_Click()
Dim pn

If Me.ps = 0 Then pn = 1
If Me.ps = 1 Then pn = 2
If Me.ps = 2 Then pn = 3
If Me.ps = 3 Then pn = 4
If Me.ps = 4 Then pn = 5
If Me.ps = 5 Then pn = 6
If Me.ps = 6 Then pn = 7
Me.page_now = pn
DoCmd.OpenReport "report1", , "OrderID = " & OrderID, , acHidden
End Sub

ممكن المرفق اخي امير

بالمرفق زر أمر : (طباعة حسب الصفحة)

جرب قبل أن تغير الكود

InsuranceMang 5.rar

اخي نفس المشكله ، لم اجد اي تغيير

لازال الخطاء يظهر اخ امير

ارجو ابعاد الفلتر من استعلام مصدر التقرير ، فالكود الموجود بامر زر الطباعه فيه الفلتر . حتى بعد ابعاده لازال الخطاء يظهر

هناك اثنين من الأزرار

أحدهما مكتوب عليه ( طباعة حسب الصفحة)

ما الرسالة التي تظهر لك عندما تضغط عليه ؟

لأن هذا الأمر يعمل عندي بلا مشاكل

نعم هو هذا الزر

ثم

عندك طابعة ؟