在窗口中排列所有打开的文件,这命令在宏里是哪个?

qixiang　发表于：2010-06-28 14:40:15 　

复制

在窗口中,排列所有打开的文件,方便我们选择,这命令在宏里是哪个?请看红箭头的示意图.谢谢!!!

Top

zhy6271 发表于：2010-07-04 11:28:59

所谓的平铺应该是ACCESS自带的功能，窗体显示模式，水平平铺和垂直平铺吧~

Top

qixiang 发表于：2010-07-05 08:10:26

其实就是菜单帮助旁边的窗口最下面的任务栏，在宏里面有什么宏？或者要用其它办法？

Top

萧云发表于：2010-07-07 10:39:18

明确的回复：没有。

实际上强大的宏也不是万能，你可以解放自己的思路用其他的办法来达到最终想要的的结果。

（实际上你排列所有打开的 ACCESS 对象目的只是为了更快捷的找到当前想要操作的那个对象罢了，因此你的提问只是为了解决一个中间过程，而不是最终目的。请采用其他途径达到这最终目的吧）

一个思路：创建动态的工具栏用于显示已经打开的各种 ACCESS 对象。

纠正：排列所有打开的“文件” 中的“文件”在你图中所指不是真正的文件。你所理解概念不正确，在Access中应该是窗体、报表、查询、表对象。

Top

王樵民发表于：2010-07-09 15:55:52

窗口菜单下面的信息只是表示，系统打开的表、查询、报表、窗体等信息，没有相应的宏能对其操作，可利用如下代码获得

获得打开的窗体

Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllForms collection.
    For Each obj In dbs.AllForms
        If obj.IsLoaded = True Then
            ' Print name of obj.
            Msgbox(obj.Name)
        End If
    Next obj

获得打开的表

Set dbs = Application.CurrentData
    ' Search for open AccessObject objects in AllTables collection.
    For Each obj In dbs.AllTables
        If obj.IsLoaded = True Then
          ' Print name of obj.
            Msgbox(obj.Name)
        End If
    Next obj

获得打开的查询

Set dbs = Application.CurrentData
    ' Search for open AccessObject objects in AllTables collection.
    For Each obj In dbs.AllQueries
        If obj.IsLoaded = True Then
          ' Print name of obj.
            Msgbox(obj.Name)
        End If
    Next obj

获得打开的报表

Set dbs = Application.CurrentData
    ' Search for open AccessObject objects in AllTables collection.
    For Each obj In dbs.AllReports
        If obj.IsLoaded = True Then
          ' Print name of obj.
            Msgbox(obj.Name)
        End If
    Next obj

Top

qixiang 发表于：2010-07-09 17:00:43

王樵民老师，这些代码要写在哪里?怎么做?请具体指点!谢谢您!!!

Top

王樵民发表于：2010-07-09 17:44:57

帮你做了一个例子，参见附件，将打开的对象保存到“打开的对象”表中。