اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

السلام عليكم  

انا عامل كود بفتح تقريرين مختلفين عن طريق اختيار قيمه 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

تم تعديل بواسطه TAMER AGOOR
قام بنشر

تفصل اخی

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

  • Like 1
قام بنشر (معدل)

كتر الف خير 

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

 

تم تعديل بواسطه 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
        ليه الكود ده مش شغال؟؟؟؟؟؟؟؟؟؟

قام بنشر
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   مش بيفتح عندى اخى الكريم ... انا شغال على اكسيس 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
 

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

تم تعديل بواسطه TAMER AGOOR
قام بنشر (معدل)

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

تم تعديل بواسطه TAMER AGOOR
  • أفضل إجابة
قام بنشر
24 دقائق مضت, TAMER AGOOR said:

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

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

 

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

  • Like 1
قام بنشر

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

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

 

  • Like 1
قام بنشر

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

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

  • Thanks 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information