如何得到一打开所有Form的名字？

kiko

包括form,report form
还有Visible=false

kiko

我会了

    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    For Each obj In dbs.AllForms
        If obj.IsLoaded = True Then
            Debug.Print obj.Name
        End If
    Next obj