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
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
TAMER AGOOR قام بنشر April 30 الكاتب قام بنشر April 30 (معدل) كتر الف خير بس ممكن يطبع علطول من غير عرض صوره للتقرير؟؟ تم تعديل April 30 بواسطه TAMER AGOOR
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 ليه الكود ده مش شغال؟؟؟؟؟؟؟؟؟؟
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 👍
kkhalifa1960 قام بنشر مايو 1 قام بنشر مايو 1 (معدل) مشاركة مع الاساتذة الكرام تفضل أستاذ @TAMER AGOOR محاولتي حسب مافهمت . ووافني بالرد . DDTwoReports.rar تم تعديل مايو 1 بواسطه kkhalifa1960 1
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
TAMER AGOOR قام بنشر مايو 1 الكاتب قام بنشر مايو 1 (معدل) قاعده بيانات للتجارب - Copy - Copy.rar طيب يا جماعه .. علشان تفهمو طلبى عملت قاعده البيانات الصغيره دى للتوضيح.. زرار الطباعه التانى مش عارف ليه مش بيطبع علطول لوحده لازم اعمل اى اكشن اختار مره مثلا او الغى الاختيار ...... جرب تفتح النموزج وتطبع علطول مش حتلاقيه بيطبع.... فين المشكله بقااااااااا تم تعديل مايو 1 بواسطه TAMER AGOOR
أفضل إجابة Foksh قام بنشر مايو 1 أفضل إجابة قام بنشر مايو 1 24 دقائق مضت, TAMER AGOOR said: قاعده بيانات للتجارب - Copy - Copy.rar طيب يا جماعه .. علشان تفهمو طلبى عملت قاعده البيانات الصغيره دى للتوضيح.. زرار الطباعه التانى مش عارف ليه مش بيطبع علطول لوحده لازم اعمل اى اكشن اختار مره مثلا او الغى الاختيار ...... جرب تفتح النموزج وتطبع علطول مش حتلاقيه بيطبع.... فين المشكله بقااااااااا جرب هذا التعديل أخي الكريم ، بعد تجربته عندي طبعاً أعتقد أنه مطلبك قاعده بيانات للتجارب - Copy - Copy.mdb 1
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
TAMER AGOOR قام بنشر مايو 2 الكاتب قام بنشر مايو 2 Foksh كتر اف خيرك ...تمام بالظيط هوا ده اللى انا عايزه ..متشكر جدااااااا kkhalifa1960 اخى الكريم ...متشكر جدا لاهنمامك بس الحمد لله لقيت الحل ..وكتر الف خير 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.