الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

هل أجد مثال لتشغيل تقارير أكسيس

مغلق
بدأه SAA في 9 أغسطس 2005 · 8 رد · 1,022 مشاهدة · في قسم التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الأخوة الأعضاء

السلام عليكم

لقد بحثت كثيرا في المنتدى عن أي موضوع طرح من قبل حول تشغيل تقارير أكسيس 97 ولم أجد .

فهل لديكم مثال أو شرح لكيفية تشغيل التقارير ، بعد عملية إستعلام من خلال الفيجوال بيسك .

ولكم الشكر

#2

السلام عليكم

أخي هذا مثال لتشغيل تقرير أكسس من الفيجوال. في البداية يجب اضافة reference وذلك من:

Project--> References ومن ثم تختار Microsoft Access10.0 Object Library

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

AppAccess.Visible = True

AppAccess.DoCmd.OpenReport "report name", acViewPreview

#3

أشكرك أخي compsciom على ردك

وسوف أقوم بتجربة الكود بمشيئة الله ، ولكن لدي سؤال وهو هل عندما أقوم بالبحث والإستعلام من خلال جملة SQL داخل الفيجوال بيسك وعرض تقرير أكسيس بعدها يظهر ناتج الإستعلام بالتقرير ؟

مع شكري لك مجددا

#4

أخي compsciom

لقد قمت بتجربة الكود وظهرات رسالة خطأ في جملة تحديد مسار قاعدة البيانات

في هذا السطر بالتحديد

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

وبالمناسبة لم أجد مكتبة Microsoft Access10.0 Object Library

حيث أنني أستخدم Access 97 وقد عثرت على Microsoft Access 8.0 Object Library

#5

قم بكتابة التالي في التصريحات

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

essam.gif

منتديات كوكب الكمبيوتر

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

http://www.planetss.com/vb

#6

أخي seaprince46 أشكر لك مشاركتك

وسوف أقوم بتجربة الطريقة بإذن الله وسأخبرك بالنتيجة ، وإسمح لي بسؤال وهو هل يمكن عرض بيانات معينة بالتقرير بعد عملية إستعلام في فيجوال بيسك من خلال جملة SQL مع العلم أنني أستخدم أداة Data Control .

ولك تحياتي ،،

#7

أخي seaprince46

لقد قمت بتجربة الكود وظهرت الرسالة التالية ؟

تعذر على Microsoft Access فتح قاعدة البيانات لأنها مفقودة أو مفتوحة من قبل مستخدم آخر

#8

أخي seaprince46

لقد عمل الكود بشكل جيد بعد أن قمن بحذف الجملتين التاليتين

AppAccess.DoCmd.PrintOut acPages
AppAccess.DoCmd.Close

ولكن سؤال أخير إذا أمكن ذلك وهو كيف يمكنني عرض نتيجة الإستعلام في التقرير فقط .

#9

أخواني أعضاء المنتدى

السلام عليكم

أرجو ممن لديه مثال على طريقة عرض ناتج إستعلام في فيجوال بيسك على تقارير أكسيس أن يتفضل ويفيدني به نظرا لحاجتي الماسة لذلك ، فقد عانيت من كثرة البحث في المنتديات العربية والإنجليزية ولم أجد ما يفيدني ، مع ثقتي بأن هذه المعلومة تعتبر بسيطة جدا مقارنة بالخبرة التي يتمتع بها بعض الأعضاء .

مع شكري للأخ seaprince46 الذي ساعد كثيرا من خلال كود عرض التقرير وشكري للأخ compsciom أيضا على مساهمته .

هذا الموضوع مغلق.

مواضيع مشابهة