Office中国论坛/Access中国论坛

标题: [已解决]VBS中打开mdb安全级为低并使主窗口最大化 [打印本页]

作者: jynj 时间: 2008-3-16 19:51
标题: [已解决]VBS中打开mdb安全级为低并使主窗口最大化
以下为一段VBS打开mdb文件的代码，请问，在打开窗口时，如何使窗口最大化

Dim oApp ' As Object

On Error Resume Next
Set oApp = CreateObject("Access.Application")
Set objShell = CreateObject("Wscript.Shell")
strPath = objShell.CurrentDirectory
If oApp.Version = "11.0" Then
oApp.AutomationSecurity = 1
End If

strPath =strPath & "\需打开的数据库.mde"
oApp.OpenCurrentDatabase strPath
oApp.Visible = True
Set oApp = Nothing

[ 本帖最后由 jynj 于 2008-3-19 22:52 编辑 ]

作者: jynj 时间: 2008-3-16 23:33
老大，请来帮忙
而且我发现，如果直接运行“需打开的数据库.mde”，那么，窗口会根据上一次关闭时的情况，如果是最大化，下一次打开时就是最大化，但如果调用了上述程序打开“需打开的数据库.mde”，那么窗口一定是“正常”无法最大化，不知要如何修改上述代码？

作者: andymark 时间: 2008-3-16 23:51
try:

oApp.OpenCurrentDatabase strPath
oApp.Visible = True
oApp.DoCmd.SelectObject acForm, "窗体1"
oApp.DoCmd.Maximize
Set oApp = Nothing

或者直接在启动的窗体的LOAD事件加入最大化的代码

作者: jynj 时间: 2008-3-17 23:01
以上代码只会使窗体1最大化，而无法实现将access2003本身最大化

作者: jynj 时间: 2008-3-18 21:12
顶上去，求解

作者: jynj 时间: 2008-3-19 10:29
这个VBS真的玩不来,我把access本身的窗口设为启动最大化了,单独运行mdb文件时会被强制最大化,可是一从VBS的这段代码中启动mdb,access窗口就被还原,真是奇了怪了,不知道有没有其它的方法将access宏的安全性用代码降为"低"

作者: andymark 时间: 2008-3-19 10:42
用上面的代码用VB生成EXE文件

作者: jynj 时间: 2008-3-19 11:32
我想请教的是如何最大化窗口,如果生成EXE就会使窗口最大化了吗?请管理员指教,因为我手上暂时没有VB

作者: t小宝 时间: 2008-3-19 13:41
......
oApp.OpenCurrentDatabase strPath
oApp.Visible = True
objShell.SendKeys "% x"
Set oApp = Nothing

作者: jynj 时间: 2008-3-19 22:46
小宝你真是高人哪，谢谢谢谢谢谢

作者: gdfsslec 时间: 2008-3-20 08:28
学习啊[:50]

作者: sbsfhgl 时间: 2008-6-13 00:01

原帖由 t小宝 于 2008-3-19 13:41 发表
......
oApp.OpenCurrentDatabase strPath
oApp.Visible = True
objShell.SendKeys "% x"
Set oApp = Nothing

小宝太有才了，非常感谢，我弄了一晚上都不行，现在才看到你的贴子

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)