قواعد البيانات لابد أن تحتوي علي تقارير لعرض البيانات بشكل لائق وبترتيب حسب متطلبات العمل ومع كثرة عدد التقارير يتطلب إنشاء نموذج خاص من خلالة يتم معاينة وطباعة التقارير من خلال أزرار أمر يتم وضعها علي النموذج وذلك للتسهيل علي المستخدم
وبناء علي ماتقدم فإننا بحاجة لمجموعة أزرار بعدد التقارير الموجودة وهذا يشكل صعوبة كبيرة وارباك للمستخدم وخاصة إذا كان عدد التقارير كبير جدا
لذلك كان لابد من إيجاد طريقة لمعاينة مجموعة التقارير وطباعتها من خلال زر أمر واحد يقوم بهذة المهمة ويوفر الجهد من عملية تصميم أزرار الامر
وتم ذلك من خلال إنشاء قائمة تعرض التقارير الموجودة بقاعدة البيانات يتم إختيار التقرير المطلوب ثم تنفيذ الامر من خلال زر امرالمعاينة أو الطباعة
ولعمل ذلك نفوم بإنشاء نموذج ونضع علية مربع قائمة
يكون مصدر الصف لها جدول/استعلام ونكتب العبارة التالية
SELECT msysobjects.Name, msysobjects.Id, msysobjects.Type
FROM msysobjects
WHERE (((msysobjects.Type)=-32764))
ORDER BY msysobjects.Id;
----------------------------------------------
نضع زر أمر للمعاينة وبه الكود التالي
Private Sub Pvcmd_Click()
On Error GoTo Err_Pvcmd_Click
Dim X As Variant
For Each X In reportlist.ItemsSelected
DoCmd.OpenReport reportlist.ItemData(X), acViewPreview
DoCmd.Maximize
Next
Exit_Pvcmd_Click:
Exit Sub
Err_Pvcmd_Click:
MsgBox Err.Description
Resume Exit_Pvcmd_Click
End Sub
---------------------------------------------
نضع زر امر للطباعة ونضع الكود التالي
Private Sub printcmd_Click()
On Error GoTo Err_printcmd_Click
Dim X As Variant
For Each X In reportlist.ItemsSelected
DoCmd.OpenReport reportlist.ItemData(X), acViewNormal
Next
Exit_printcmd_Click:
Exit Sub
Err_printcmd_Click:
MsgBox Err.Description
Resume Exit_printcmd_Click
End Sub
-----------------------------------------
والمثال المرفق يوضح ذلك
