مساعده فى طباعه تقرير يبناء على حقل check Box

[TAMER AGOOR]

السلام عليكم  

انا عامل كود بفتح تقريرين مختلفين عن طريق اختيار قيمه yes or No )  Check Box )       عايز اخليه يطبع بدل معاينه التقرير  .........    اعدل فيه ازاااى؟؟؟     وشكرا ليكم     

Private Sub ÃãÑ20_Click()
If Forms!separet!Check71 = "-1" Then
DoCmd.OpenReport "SeparetrBySelection", acViewPreview
Else
DoCmd.OpenReport "separetr", acViewPreview
End If
End Sub

تم تعديل أبريل 29, 2024 بواسطه TAMER AGOOR

[Lover Karo]

تفصل اخی

If Forms!separet!Check71 = "-1" Then
DoCmd.OpenReport "SeparetrBySelection", acViewPreview, "", "", acNormal
DoCmd.PrintOut
Else
DoCmd.OpenReport "separetr", acViewPreview, "", "", acNormal
DoCmd.PrintOut
End If
 

[TAMER AGOOR]

كتر الف خير 

بس ممكن يطبع علطول من غير عرض صوره للتقرير؟؟

 

تم تعديل أبريل 30, 2024 بواسطه TAMER AGOOR

[TAMER AGOOR]

Private Sub Command93_Click()
On Error GoTo Err_Command93_Click
 DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Dim stDocName As String
If Forms!separet!Check71 = "-1" Then

    stDocName = "separetr"
 DoCmd.OpenReport stDocName, acNormal
    
Else

  stDocName = "SeparetrBySelection"
    DoCmd.OpenReport stDocName, acNormal

End If
Exit_Command93_Click:
    Exit Sub
Err_Command93_Click:
    MsgBox Err.Description
    Resume Exit_Command93_Click
End Sub
        ليه الكود ده مش شغال؟؟؟؟؟؟؟؟؟؟

[Foksh]

8 ساعات مضت, TAMER AGOOR said:

Private Sub Command93_Click()
On Error GoTo Err_Command93_Click
 DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Dim stDocName As String
If Forms!separet!Check71 = "-1" Then

    stDocName = "separetr"
 DoCmd.OpenReport stDocName, acNormal
    
Else

  stDocName = "SeparetrBySelection"
    DoCmd.OpenReport stDocName, acNormal

End If
Exit_Command93_Click:
    Exit Sub
Err_Command93_Click:
    MsgBox Err.Description
    Resume Exit_Command93_Click
End Sub
        ليه الكود ده مش شغال؟؟؟؟؟؟؟؟؟؟

أخي الكريم ،

من يقدم المساعدة لا يعلم ما هو مقصودك بـ "مش شغال ؟؟؟؟؟؟؟؟" دون ان تطرح المشكلة ؟؟؟

وإن كان مقصدك بعدم اجراء وتنفيذ امر الطباعة !!!!

فذلك لعدم وجود امر الطباعة

DoCmd.PrintOut

 

اما هذا السؤال :-

10 ساعات مضت, TAMER AGOOR said:

بس ممكن يطبع علطول من غير عرض صوره للتقرير؟؟

 

فاعتقد حله كود اغلاق التقرير بعد امر الطباعة

DoCmd.Close acReport, "SeparetrBySelection"

مساهمة مع الأخ @Lover Karo 👍

[kkhalifa1960]

مشاركة مع الاساتذة الكرام تفضل أستاذ @TAMER AGOOR محاولتي حسب مافهمت . ووافني بالرد .

 

DDTwoReports.rar

تم تعديل مايو 1, 2024 بواسطه kkhalifa1960

[TAMER AGOOR]

kkhalifa1960   مش بيفتح عندى اخى الكريم ... انا شغال على اكسيس 2007  .. لوتكرمت انسخ الكود هنا علطول

Private Sub Command6_Click()
On Error GoTo Err_Command6_Click
 DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Dim stDocName As String

    stDocName = "separetr"
    DoCmd.OpenReport stDocName, acNormal

Exit_Command6_Click:
    Exit Sub

Err_Command6_Click:
    MsgBox Err.Description
    Resume Exit_Command6_Click
    
End Sub
 

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

تم تعديل مايو 1, 2024 بواسطه TAMER AGOOR

[TAMER AGOOR]

قاعده بيانات للتجارب - Copy - Copy.rar  طيب يا جماعه ..  علشان تفهمو طلبى عملت قاعده البيانات الصغيره دى للتوضيح..   زرار الطباعه التانى مش عارف ليه مش بيطبع علطول لوحده لازم اعمل اى اكشن اختار مره مثلا او الغى الاختيار ...... جرب تفتح النموزج وتطبع علطول مش حتلاقيه بيطبع....  فين المشكله بقااااااااا

تم تعديل مايو 1, 2024 بواسطه TAMER AGOOR

[Foksh]

24 دقائق مضت, TAMER AGOOR said:

قاعده بيانات للتجارب - Copy - Copy.rar  طيب يا جماعه ..  علشان تفهمو طلبى عملت قاعده البيانات الصغيره دى للتوضيح..   زرار الطباعه التانى مش عارف ليه مش بيطبع علطول لوحده لازم اعمل اى اكشن اختار مره مثلا او الغى الاختيار ...... جرب تفتح النموزج وتطبع علطول مش حتلاقيه بيطبع....  فين المشكله بقااااااااا

جرب هذا التعديل أخي الكريم ، بعد تجربته عندي طبعاً أعتقد أنه مطلبك 

 

قاعده بيانات للتجارب - Copy - Copy.mdb

[kkhalifa1960]

مشاركة مع الاساتذة الكرام تفضل أستاذ @TAMER AGOOR محاولتي حسب مافهمت . ووافني بالرد .

Private Sub Ch_Click()
'On Error Resume Next
If Me.Ch = False Then
Me.CmdPrint.Caption = "Print rpt_Emp"
Me.CmdPrint.BackColor = vbRed
Else
Me.CmdPrint.Caption = "Print rpt_Items"
Me.CmdPrint.BackColor = vbBlue
End If
End Sub

Private Sub CmdPrint_Click()
On Error Resume Next
If Me.Ch = False Then
Me.CmdPrint.Caption = "Print rpt_Emp"
Me.CmdPrint.BackColor = vbRed
DoCmd.OpenReport "rpt_Emp", acViewNormal
Else
Me.CmdPrint.Caption = "Print rpt_Items"
Me.CmdPrint.BackColor = vbBlue
DoCmd.OpenReport "rpt_Items", acViewNormal
End If
End Sub

 

[TAMER AGOOR]

Foksh  كتر اف خيرك ...تمام بالظيط هوا ده اللى انا عايزه  ..متشكر جدااااااا

kkhalifa1960  اخى الكريم ...متشكر جدا لاهنمامك بس الحمد لله لقيت الحل ..وكتر الف خير