版主,这样太深奥了。你能否按照我一楼的内容,写一个数据引用的程序么?我就想知道怎么才能引用到另一个数据库的控件,谢谢了作者: liwen 时间: 2009-9-11 12:58
Public Sub test()
Dim ACCapp As Access.Application
Dim Af As Access.Form
Set ACCapp = CreateObject("Access.Application")
ACCapp.OpenCurrentDatabase "C:\Documents and Settings\Bluewater\桌面\1231.mdb", False
For Each Af In ACCapp.Forms
Debug.Print Af.Name & Af.标签1.Caption
Next
'ACCapp.Quit
End Sub