列出报告及其描述
获取报告名称列表的各种方法：
询问
SELECT [Name] FROM MsysObjects
WHERE ([Type] = -32764)
Dim rpt As AccessObject
Dim dB As Object
On Error GoTo Error_Handler
Set dB = Application.CurrentProject
For Each rpt In dB.AllReports
Debug.Print rpt.Name
Next rpt
没有找到相关结果
已邀请:
1 个回复
遣莫捅炭
? CurrentDb.Containers("Reports").Documents("rptFoo").Properties("Description") Foo Report? CurrentDb.Containers("Reports").Documents("rptLinks").Properties("Description")Public Function ReportDescription(ByVal pName As String) As String Dim strReturn As String Dim strMsg As String On Error GoTo ErrorHandler strReturn = _ CurrentDb.Containers("Reports").Documents(pName).Properties("Description") ExitHere: On Error GoTo 0 ReportDescription = strReturn Exit Function ErrorHandler: Select Case Err.Number Case 3270 'Property not found.' 'strReturn = "(no Description)"' '* no Description -> just echo report name *' strReturn = pName Case Else strMsg = "Error " & Err.Number & " (" & Err.description _ & ") in procedure ReportDescription" MsgBox strMsg strReturn = vbNullString End Select GoTo ExitHere End FunctionSELECT [Name] AS report_name, ReportDescription([Name]) AS friendly_name FROM MsysObjects WHERE ([Type] = -32764);