[已解决]VBS中打开mdb安全级为低并使主窗口最大化

jynj

以下为一段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 编辑 ]

sbsfhgl

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

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

gdfsslec

学习啊[:50]

jynj

小宝你真是高人哪，谢谢谢谢谢谢

t小宝

......
    oApp.OpenCurrentDatabase strPath
    oApp.Visible = True
    objShell.SendKeys "% x"
    Set oApp = Nothing

jynj

我想请教的是如何最大化窗口,如果生成EXE就会使窗口最大化了吗?请管理员指教,因为我手上暂时没有VB

andymark

用上面的代码用VB生成EXE文件

jynj

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

jynj

顶上去，求解

jynj

以上代码只会使窗体1最大化，而无法实现将access2003本身最大化