文件名称：Access程序A调用 AccessB的功能 B
文件大小：416KB
文件格式：MDB
更新时间：2013-06-21 10:38:26
Access 程序调用 A B
各位好，目前我写程序用到了通过一个access应用程序 A ，调用另一个Access应用程序 B，并打开B中的一个窗体显示所要查询到的信息。这些功能我都实现了，只是，Access应用程序B这个主窗体不能跑到任何Windows窗体的前面。每次都要手动鼠标点击。 我也使用了以下代码，却还是不行。 dim B as Access.Application B.OpenAccessProject("C:\pro\B.adp") B.DoCmd.OpenForm "from1", acNormal, , "编号='" & Me.编号 & "' ", , acWindowNormal B.Forms("form1").SetFocus Dim lpPoint As POINTAPI Call GetCursorPos(lpPoint) Call SetWindowPos(GetParent(B.Forms("form1").hwnd), HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE) Call ShowWindow(GetParent(B.Forms("form1").hwnd), SW_SHOWMAXIMIZED)