- 博客(1)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 Sql Pretty Printer for SSMS
This is my first blog ,and It's just write for a free licence.It's realy realy unbelievable...This is download address:Download Free SQL Pretty Printer Trial
2022-09-21 15:51:36
176
Access程序A调用 AccessB的功能 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)
2010-06-01
关于Access程序，A程序调用B程序的例子！
各位好，目前我写程序用到了通过一个access应用程序 A ，调用另一个Access应用程序 B，并打开B中的一个窗体显示所要查询到的信息。这些功能我都实现了
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)
2010-06-01
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人