منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] ارجو التعديل على كود الطباعه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] ارجو التعديل على كود الطباعه (/showthread.php?tid=39964)

ارجو التعديل على كود الطباعه - ragab_most - 13-11-21

السلام عليكم
الكود التالى يقوم بفتح تقرير اكسيس من خلال فيجوال بيسك6  من اوفيس 2007

Dim raid As Access.Application
Set raid = New Access.Application
raid.Visible = True
raid.OpenCurrentDatabase App.Path & "\files.mdb"
raid.DoCmd.OpenReport "contracteur_q", acViewPreview, acViewNormal

raid.DoCmd.Maximize
raid.Visible = Tru



 المطلوب 
التعديل على هذا الكود ليقوم بعرض تقرير اكسيس --اوفيس 2010
اسم التقرير فى اكسيس contacteur_q
ولكم خالص الشكر 

RE: ارجو التعديل على كود الطباعه - Taha Okla - 13-11-21

وعليكم السلام ورحمة الله وبركاته 

أظن أن الكود المناسب هو الكود التالي يعمل مع كل نسخ أوفس :

كود :
Dim raid As Access.Application
Set raid = New Access.Application
raid.OpenCurrentDatabase App.Path & "\files.mdb"
raid.DoCmd.OpenReport "contracteur_q", acViewPreview
raid.DoCmd.Maximize
raid.Visible = True


RE: ارجو التعديل على كود الطباعه - ahmedabdelaliem - 13-11-21

اتوقع المشكلة في امتداد اكسيس
غيره الى اي
files.accdb
بالتوفيق

RE: ارجو التعديل على كود الطباعه - ragab_most - 14-11-21

شكرا استادنا الكبير / احمد عبد العليم بارك الله فيك