Access穫?cè)?duì)象中的所有報(bào)錶名

有網(wǎng)友的程序中有若榦箇報(bào)錶，其中所有報(bào)錶都有共衕的字段A ，希望通過(guò)篩選A內(nèi)容輸齣報(bào)錶。

這裡我們隻説明如何穫?cè)ccess對(duì)象中所有報(bào)錶名。如下圖，遍歷所有報(bào)錶

穫?cè)∷袌?bào)名錶的源碼：

Sub AllReports()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllReports collection.
    For Each obj In dbs.AllReports        
            ' Print name of obj.
            Debug.Print obj.Name 
    Next obj
End Sub 

通過(guò) 列錶框.AddItem 報(bào)錶名 添加到列錶框。

Private Sub Form_Load()
    Me.List0.RowSourceType = "value list"
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    For Each obj In dbs.AllReports
        Me.List0.AddItem obj.Name
    Next obj
End Sub