لتقارير مصممة في أكسس

أعتقد أنه في فيجوال بيسك 6 ، يوجد به خاص لتصميم التقارير :o لكن اعذرني يااخوي خبرتي بسيطة اتمنى من اخواني المحترفين يساعدوك

بسم الله الرحمن الرحيم

شكرا

أعرف الـ Data Report ولكنني صممتها بالـ Access

السلام عليكم

اخي العزيز

لم افهم سؤال حتى استطيع الاجابة عليه

هل تريد عرض بيانات مخزنه في الاكسس في التقرير ؟

ام تريد عرض تقرير مصمم بالاكسس من داخل الفيجول بيسك ؟

ارجو التوضيح حتى يتم الرد عليك من قبلي او من قبل الاعضاء

وشكراً

:)

بسم الله الرحمن الرحيم

السلام عليكم

أريد عرض تقرير مصمم بالاكسس من داخل الفيجول بيسك ؟

وشكراً

السلام عليكم

أولا اضف مكتبة الأكسيس من خلال الريفرنس

ثانيا أكتب الكود التالي في المكان المناسب ( كزر كوماند مثلا)

Dim ACC as New Access.Application
Dim Rep as Access.Report

acc.openCurrentDataBase "C:\DataBasePath.MDB" 'يجب اختيار المسار المناسب
acc.visable=true

acc.docmd.openReport "ReportName",AcViewReport

وهنا إذا اردت ان تعمل فلترة على الريبورت

Dim ACC as New Access.Application
Dim Rep as Access.Report

acc.openCurrentDataBase "C:\DataBasePath.MDB" 'يجب اختيار المسار المناسب
acc.visable=true

acc.docmd.openReport "ReportName",AcViewReport,, "[ReportField] = '" & text1.text & "' "
 ' reportField هو اسم الخلية في التقرير

تحياتي

طيب انا لا اريد ان يظهر اطار الاكسس ولا القاعدة ولا التقرير اريد الطباعة مباشرة دون ظهور اي شئ

والف الف شكر لك

هذا الكود لطباعة التقرير مباشرة ودون اظهار مربع قاعدة البيانات .

مع ملاحظة . يجب ان يكون مستوى الامان منخفظ حتى لا يتم اظهار مربع حوار الامان .

Dim ACC As New Access.Application
Dim Rep As Access.Report

ACC.openCurrentDataBase App.Path & "\maktba.mdb" 'يجب اختيار المسار المناسب
ACC.DoCmd.OpenReport "ttt", acViewNormal ' ttt = اسم التقرير في قاعدة البيانات
ACC.Quit acQuitSaveNone
Set ACC = Nothing

تحياتي

الف مليون شكر لك عزيزي الاخ omani

بصراحة يعجز اللسان عن شكرك

هل يمكن وجود كود يقوم بتعديل الامان في الاكسس

والف الف شكر مرة اخرى

شكر جزيل على هذا الموضوع المفيد

up

up

up