[求助]请教获取另外程序名称

nagee

请教如何把"导入"功能用VBA搬到自己做的面板上!或用VBA读取另一个程序的全部窗体与表的名称!

mhaibo

Dim a As Object, c As Object
Dim b As String, d As String
For Each a In CurrentProject.AllForms
    b = a.name & ":" & b
Next
MsgBox b '全部窗体名
For Each c In CurrentData.AllTables
    d = c.name & ":" & d
Next
MsgBox d '全部表名

nagee

谢谢!但这个好像只能获取程序自身的表名还有窗体名,我的意思是另外一个ACCESS的程序里的表名还有窗体名.像"导入"的窗体一样!

sgrshh29

以下是引用nagee在2005-5-7 13:57:07的发言：
谢谢!但这个好像只能获取程序自身的表名还有窗体名,我的意思是另外一个ACCESS的程序里的表名还有窗体名.像"导入"的窗体一样!

nagee先生，做了一个窗体，是不是能满足你的要求？如果你能自定义工具条运行代码或复制到你自己的窗体上去，就跟你的要求完全一样了。