الأخوة الأعضاء
السلام عليكم
لقد بحثت كثيرا في المنتدى عن أي موضوع طرح من قبل حول تشغيل تقارير أكسيس 97 ولم أجد .
فهل لديكم مثال أو شرح لكيفية تشغيل التقارير ، بعد عملية إستعلام من خلال الفيجوال بيسك .
ولكم الشكر
الأخوة الأعضاء
السلام عليكم
لقد بحثت كثيرا في المنتدى عن أي موضوع طرح من قبل حول تشغيل تقارير أكسيس 97 ولم أجد .
فهل لديكم مثال أو شرح لكيفية تشغيل التقارير ، بعد عملية إستعلام من خلال الفيجوال بيسك .
ولكم الشكر
السلام عليكم
أخي هذا مثال لتشغيل تقرير أكسس من الفيجوال. في البداية يجب اضافة reference وذلك من:
Project--> References ومن ثم تختار Microsoft Access10.0 Object Library
AppAccess.OpenCurrentDatabase App.Path & "\db1.mdb"
AppAccess.Visible = True
AppAccess.DoCmd.OpenReport "report name", acViewPreview
أشكرك أخي compsciom على ردك
وسوف أقوم بتجربة الكود بمشيئة الله ، ولكن لدي سؤال وهو هل عندما أقوم بالبحث والإستعلام من خلال جملة SQL داخل الفيجوال بيسك وعرض تقرير أكسيس بعدها يظهر ناتج الإستعلام بالتقرير ؟
مع شكري لك مجددا
أخي compsciom
لقد قمت بتجربة الكود وظهرات رسالة خطأ في جملة تحديد مسار قاعدة البيانات
في هذا السطر بالتحديد
AppAccess.OpenCurrentDatabase App.Path & "\db1.mdb"
وبالمناسبة لم أجد مكتبة Microsoft Access10.0 Object Library
حيث أنني أستخدم Access 97 وقد عثرت على Microsoft Access 8.0 Object Library
قم بكتابة التالي في التصريحات
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

منتديات كوكب الكمبيوتر
لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية
أخي seaprince46 أشكر لك مشاركتك
وسوف أقوم بتجربة الطريقة بإذن الله وسأخبرك بالنتيجة ، وإسمح لي بسؤال وهو هل يمكن عرض بيانات معينة بالتقرير بعد عملية إستعلام في فيجوال بيسك من خلال جملة SQL مع العلم أنني أستخدم أداة Data Control .
ولك تحياتي ،،
أخي seaprince46
لقد قمت بتجربة الكود وظهرت الرسالة التالية ؟
تعذر على Microsoft Access فتح قاعدة البيانات لأنها مفقودة أو مفتوحة من قبل مستخدم آخر
أخي seaprince46
لقد عمل الكود بشكل جيد بعد أن قمن بحذف الجملتين التاليتين
AppAccess.DoCmd.PrintOut acPages AppAccess.DoCmd.Close
ولكن سؤال أخير إذا أمكن ذلك وهو كيف يمكنني عرض نتيجة الإستعلام في التقرير فقط .
أخواني أعضاء المنتدى
السلام عليكم
أرجو ممن لديه مثال على طريقة عرض ناتج إستعلام في فيجوال بيسك على تقارير أكسيس أن يتفضل ويفيدني به نظرا لحاجتي الماسة لذلك ، فقد عانيت من كثرة البحث في المنتديات العربية والإنجليزية ولم أجد ما يفيدني ، مع ثقتي بأن هذه المعلومة تعتبر بسيطة جدا مقارنة بالخبرة التي يتمتع بها بعض الأعضاء .
مع شكري للأخ seaprince46 الذي ساعد كثيرا من خلال كود عرض التقرير وشكري للأخ compsciom أيضا على مساهمته .
هذا الموضوع مغلق.