TAMER AGOOR قام بنشر April 29 مشاركة قام بنشر April 29 (معدل) السلام عليكم انا عامل كود بفتح تقريرين مختلفين عن طريق اختيار قيمه 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 تم تعديل April 29 بواسطه TAMER AGOOR رابط هذا التعليق شارك More sharing options...
Lover Karo قام بنشر April 29 مشاركة قام بنشر April 29 تفصل اخی If Forms!separet!Check71 = "-1" Then DoCmd.OpenReport "SeparetrBySelection", acViewPreview, "", "", acNormal DoCmd.PrintOut Else DoCmd.OpenReport "separetr", acViewPreview, "", "", acNormal DoCmd.PrintOut End If 1 رابط هذا التعليق شارك More sharing options...
TAMER AGOOR قام بنشر April 30 الكاتب مشاركة قام بنشر April 30 (معدل) كتر الف خير بس ممكن يطبع علطول من غير عرض صوره للتقرير؟؟ تم تعديل April 30 بواسطه TAMER AGOOR رابط هذا التعليق شارك More sharing options...
TAMER AGOOR قام بنشر April 30 الكاتب مشاركة قام بنشر April 30 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 ليه الكود ده مش شغال؟؟؟؟؟؟؟؟؟؟ رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 30 مشاركة قام بنشر April 30 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 👍 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر مايو 1 مشاركة قام بنشر مايو 1 (معدل) مشاركة مع الاساتذة الكرام تفضل أستاذ @TAMER AGOOR محاولتي حسب مافهمت . ووافني بالرد . DDTwoReports.rar تم تعديل مايو 1 بواسطه kkhalifa1960 1 رابط هذا التعليق شارك More sharing options...
TAMER AGOOR قام بنشر مايو 1 الكاتب مشاركة قام بنشر مايو 1 (معدل) 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 بواسطه TAMER AGOOR رابط هذا التعليق شارك More sharing options...
TAMER AGOOR قام بنشر مايو 1 الكاتب مشاركة قام بنشر مايو 1 (معدل) قاعده بيانات للتجارب - Copy - Copy.rar طيب يا جماعه .. علشان تفهمو طلبى عملت قاعده البيانات الصغيره دى للتوضيح.. زرار الطباعه التانى مش عارف ليه مش بيطبع علطول لوحده لازم اعمل اى اكشن اختار مره مثلا او الغى الاختيار ...... جرب تفتح النموزج وتطبع علطول مش حتلاقيه بيطبع.... فين المشكله بقااااااااا تم تعديل مايو 1 بواسطه TAMER AGOOR رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر مايو 1 أفضل إجابة مشاركة قام بنشر مايو 1 24 دقائق مضت, TAMER AGOOR said: قاعده بيانات للتجارب - Copy - Copy.rar طيب يا جماعه .. علشان تفهمو طلبى عملت قاعده البيانات الصغيره دى للتوضيح.. زرار الطباعه التانى مش عارف ليه مش بيطبع علطول لوحده لازم اعمل اى اكشن اختار مره مثلا او الغى الاختيار ...... جرب تفتح النموزج وتطبع علطول مش حتلاقيه بيطبع.... فين المشكله بقااااااااا جرب هذا التعديل أخي الكريم ، بعد تجربته عندي طبعاً أعتقد أنه مطلبك قاعده بيانات للتجارب - Copy - Copy.mdb 1 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر مايو 2 مشاركة قام بنشر مايو 2 مشاركة مع الاساتذة الكرام تفضل أستاذ @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 1 رابط هذا التعليق شارك More sharing options...
TAMER AGOOR قام بنشر مايو 2 الكاتب مشاركة قام بنشر مايو 2 Foksh كتر اف خيرك ...تمام بالظيط هوا ده اللى انا عايزه ..متشكر جدااااااا kkhalifa1960 اخى الكريم ...متشكر جدا لاهنمامك بس الحمد لله لقيت الحل ..وكتر الف خير 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان