أبحث عن كود للطباعة بيانات قاعدة الاكسس بالكامل

سؤالك غير واضح تماماً

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

تحيااتي

أشكرك على المرور و الرد

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

مثال

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

اخي يمكنك ذلك عن طريق اي مثال من الأمثلة المرفقة

الأول بأستخدام Data Environment و Data Report وأستخدام الكود به قليل ويعتمد على الربط بأستخدام الشاشات الحوارية

وشرحه كالتالي

قم بإضافة Data Environment و Data Report للبرنامج

عن طريق قائمة Project ثم إختيار Add Data Report و Add Data Environment

إذهب ل DataEnvironment1 ستجد بها ما يسمى Connection1

افتح شاشة الخصائص له بكليك يمين وأختيار Properties

ثم أختار Microsoft Jet 4.0 OLE DB Provider

ثم Next

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

ويمكنك التأكد من صحة الربط بزرار Test Connection

وبعدها اضغط OK

قم بإضافة Command عن طريق كليك يمين واختيار Add Command

افتح شاشة الخصائص له بكليك يمين وأختيار Properties

ثم اختار من Database Object الأختيار Table

ومن Object Name أسم الجدول المراد طباعة محتوياته

إذهب ل DataReport1 ويمكنك من صندوق أدوات التقارير ان تقوم بإضافة Text Box أو Label أو اي أداة أخرى

قم بتحديد الخاصية DataSource بالقيمة DataEnvironment1

قم بتصميم التقرير بأي شكل تريده وقم بإضافة عدد من Text Box و Label بنفس عدد حقول الجدول المراد طباعة بياناته

ولاحظ ان رأس الجدول المكون من Label يوضع في Page Header حتى لا يتكرر سوى في كل صفحة

وأن البيانات المكونة من Text Box توضع في Detail حتى يكررهها بعدد الصفوف في الجدول لإستيعاب جميع البيانات

في كل Text Box قم بتحديد الخاصية DataField بأسم أحد الحقول في الجدول

بعدها قم بالذهاب لل form التي تريد الطباعة منها وقم بوضع الكود

DataReport1.PrintReport لطباعة التقرير

أو DataReport1.Show لمشاهدة التقرير قبل الطباعة

الثاني وهو باستخدام Data Report فقط ويعتمد على الكود

قم بتصميم Data Report بنفس الطريقة السابقة ولكن لا تحدد الخاصية DataSource

في كل Text Box قم بتحديد الخاصية DataField بأسم أحد الحقول في الجدول ولكنك ستقوم بكتابتها وليس إختيارها حيث ستكون غير متاحة (كن دقيقا في كتابة أسماء الحقول)

بعدها قم بالذهاب لل form التي تريد الطباعة منها وقم بوضع الكود

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\data.mdb;"
Set Rs = New ADODB.Recordset
SQL = "select * FROM mydata"
Set Rs = cn.Execute(SQL)
Set DataReport1.DataSource = Rs

ثم

DataReport1.PrintReport لطباعة التقرير

أو DataReport1.Show لمشاهدة التقرير قبل الطباعة

أرجو ان أكون وفقت في إجابتك وسامحني على اي سهو او تقصير

example.zip

example2.zip

اشكرك اخي العزيز

هذا هو المطلوب بالضبط

مشكووووووووووووووووووووووووووووور