تقارير الآكسس مع الفيجوال بيسك

إخواني المشاركين الكرام

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

أرجوا إفادتي في كيفية تشغيل تقارير الآكسس عن طريق الفيجوال بيسك حيث أنني وجدت في الموقع هذا المثال :

Private AppAccess As New Access.Application

AppAccess.OpenCurrentDatabase App.Path & "\db1.mdb"

AppAccess.Visible = True

AppAccess.DoCmd.OpenReport "Report Name", acViewPreview

AppAccess.DoCmd.PrintOut acPages

AppAccess.DoCmd.Close

ولكن هذا المثال يشغل قاعدة البيانات ومن ثم يتم عرض التقرير

يرجى منكم التفضل شاكرين لوجود أي مثال لذلك دون الحاجة إلى فتح قاعدة البيانات