问一个VBScript Script File打开数据库

sbsfhgl · 发表于 2008-3-26 09:59:41

我用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:10

...............................

andymark · 发表于 2008-3-26 13:26:29

oApp.OpenCurrentDatabase strPath
oApp.DoCmd.RunCommand acCmdAppMinimize

前面应该加上oApp

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

sbsfhgl · 发表于 2008-3-26 16:43:22

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

前面应该加上oApp

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

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

sbsfhgl · 发表于 2008-3-26 17:03:55

oApp.DoCmd.RunCommand acCmdAppMinimize,
这个也不得行

sbsfhgl · 发表于 2008-3-27 08:58:30

请问有没有知道?而且现在不能自动居中!

sbsfhgl · 发表于 2008-3-27 12:38:31

....................................................

sbsfhgl · 发表于 2008-3-27 18:08:22

.......................................

sbsfhgl · 发表于 2008-3-28 07:57:57

./.........................

sbsfhgl · 发表于 2008-4-1 12:46:45

有没有人顶下

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 问一个VBScript Script File打开数据库

群介绍
主题无相 (随机显示版	同地区群块其他地区)