Office中国论坛/Access中国论坛

标题: 问一个VBScript Script File打开数据库 [打印本页]

作者: sbsfhgl 时间: 2008-3-26 09:59
标题: 问一个VBScript Script File打开数据库
我用VBScript Script File打开文件＂管理软件.mde＂．为什么运行DoCmd.RunCommand acCmdAppMinimize没有效果？？

Dim oApp ' As Object
On Error Resume Next
Set oApp = CreateObject("Access.Application")

Set objShell = CreateObject("Wscript.Shell")

strPath = objShell.CurrentDirectory
  DoCmd.RunCommand acCmdAppMinimize
If oApp.Version = "11.0" Then
      oApp.AutomationSecurity = 1
End If

  strPath =strPath & "\管理软件.mde"
oApp.OpenCurrentDatabase strPath
oApp.Visible = True
Set oApp = Nothing

[ 本帖最后由 sbsfhgl 于 2008-3-27 08:58 编辑 ]

作者: sbsfhgl 时间: 2008-3-26 12:49
...............................

作者: andymark 时间: 2008-3-26 13:26
oApp.OpenCurrentDatabase strPath
oApp.DoCmd.RunCommand acCmdAppMinimize

前面应该加上oApp

直接把DoCmd.RunCommand acCmdAppMinimize放在启动窗体里不行吗

作者: sbsfhgl 时间: 2008-3-26 16:43

原帖由 andymark 于 2008-3-26 13:26 发表
oApp.OpenCurrentDatabase strPath
oApp.DoCmd.RunCommand acCmdAppMinimize

前面应该加上oApp

直接把DoCmd.RunCommand acCmdAppMinimize放在启动窗体里不行吗

就是不得行,我原来加了的..

作者: sbsfhgl 时间: 2008-3-26 17:03
oApp.DoCmd.RunCommand acCmdAppMinimize,
这个也不得行

作者: sbsfhgl 时间: 2008-3-27 08:58
请问有没有知道?而且现在不能自动居中!

作者: sbsfhgl 时间: 2008-3-27 12:38
....................................................

作者: sbsfhgl 时间: 2008-3-27 18:08
.......................................

作者: sbsfhgl 时间: 2008-3-28 07:57
./.........................

作者: sbsfhgl 时间: 2008-4-1 12:46
有没有人顶下

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