قائمة بالتقارير ؟

هل تريد سرد التقارير الموجود لديك في قائمة والإختيار منها ؟

هناك طريقة سحريه لعمل ذلك ..

** أنشئ نموذجا جديداً به قائمة اجعل مصدر الصف للقائمة التالي :

 SELECT DISTINCTROW msysobjects.Name, msysobjects.Type, * FROM msysobjects WHERE (((msysobjects.Type)=-32764));

انسخه كما هو ..

أنشئ زر وأكتب في حدث النقر مايلي :

 Private Sub cmdPreview_Click()
On Error GoTo Err_cmdPreview_Click

    Dim stDocName As String

    stDocName = Me!lstReports
    DoCmd.OpenReport stDocName, acPreview

Exit_cmdPreview_Click:
    Exit Sub

Err_cmdPreview_Click:
    MsgBox Err.Description
    Resume Exit_cmdPreview_Click
End Sub

الآن جميع التقارير موجوده في القائمه ما عليك الا النقر على الزر لعرضها .