在不运行任何启动 vba 代码的情况下从命令行打开 MS-Access 数据库? [英] Opening an MS-Access database from the command line without running any of the startup vba code?

问题描述

有没有办法从命令行打开 MS-Access 2003 数据库而不运行任何启动 vba 代码或显示任何错误?

Is there a way to open an MS-Access 2003 database from the command line without running any of the startup vba code or displaying any errors?

我查看了 MS Access 的命令行参数，但似乎没有一种用于指定您不希望在启动时执行任何 vba 代码.

I looked at the command line arguments for MS Access and there doesn't seem to be one for specifying that you want none of the vba code to execute on startup.

我正在使用以下 代码 在单独的 vba 数据库中打开数据库:

I'm using the following code to open up a database in a separate vba database:

Sub test()


Dim accObj As Access.application, Msg As String
Dim application As String, dbs As String, workgroup As String
Dim user As String, password As String, cTries As Integer
Dim x

Dim theDB As Database

' This is the default location of Access
application = "C:Program Files (x86)Microsoft OfficeOFFICE11MSACCESS.EXE"

' Use the path and name of a secured MDB on your system
dbs = "C:ucpdatasawashic-pcAPLReporting.mdb"

' This is the default working group
workgroup = "E:TicketsCSN_NotSureSecured.mdw"
user = "aleer"
password = "****"

Debug.Print application & " " & Chr(34) & dbs & Chr(34) & " /nostartup /user " & user & " /pwd " & password & " /wrkgrp " & Chr(34) & workgroup & Chr(34), vbMinimizedFocus

x = Shell(application & " " & Chr(34) & dbs & Chr(34) & " /nostartup /user " & user & " /pwd " & password & " /wrkgrp " & Chr(34) & workgroup & Chr(34), vbMinimizedFocus)


On Error GoTo WAITFORACCESS
Set accObj = GetObject(, "Access.Application")

' Turn off error handling
On Error GoTo 0

' You an now use the accObj reference to automate Access
Debug.Print "Access is now open."

' Do Stuff...

accObj.CloseCurrentDatabase
accObj.Quit

' Close it out...
Set accObj = Nothing
Debug.Print "Closed and complete."

Exit Sub

WAITFORACCESS: ' <--- this line must be left-aligned.
' Access isn't registered in the Running Object Table yet, so call
' SetFocus to take focus from Access, wait half a second, and try again.
' If you try five times and fail, then something has probably gone wrong,
' so warn the user and exit.

'SetFocus

If cTries < 5 Then
   cTries = cTries + 1
   Sleep 500 ' wait 1/2 seconds
   Resume
Else
   Debug.Print "It didn't work"
End If

End Sub

这一行...
x = Shell(application & " " & Chr(34) & dbs & Chr(34) & "/nostartup/user " & user & "/pwd " & password & "/wrkgrp " & Chr(34) & 工作组 & Chr(34), vbMinimizedFocus)
原来是……
C:Program Files (x86)Microsoft OfficeOFFICE11MSACCESS.EXE "C:ucpdatasawashic-pcAPLReporting.mdb"/nostartup/user aleer/pwd ***/wrkgrp "E:TicketsCSN_NotSureSecured.mdw" 2...在命令行中.

This line...
x = Shell(application & " " & Chr(34) & dbs & Chr(34) & " /nostartup /user " & user & " /pwd " & password & " /wrkgrp " & Chr(34) & workgroup & Chr(34), vbMinimizedFocus)
Turns out to be...
C:Program Files (x86)Microsoft OfficeOFFICE11MSACCESS.EXE "C:ucpdatasawashic-pcAPLReporting.mdb" /nostartup /user aleer /pwd *** /wrkgrp "E:TicketsCSN_NotSureSecured.mdw" 2 ... at the command line.

但是当数据库打开时，它会执行一堆 vba 代码并显示错误消息.

But when the database opens it executes a bunch of vba codes and displays error messages.

推荐答案

如果不运行与该数据库关联的 AutoExec 宏，就无法打开 Access.唯一的解决方案是让 AutoExec 包含确定数据库如何打开的条件参数，并且如果数据库被 shell 化，则不运行命令.这需要编辑每个数据库以包含此逻辑.

There is no way for Access to open without running the AutoExec macro associated with that database. The only solution would be to have the AutoExec contain conditional arguments that determined how the database was opened, and not run the commands if the database was shell'd. This would require editing every database to include this logic.

这篇关于在不运行任何启动 vba 代码的情况下从命令行打开 MS-Access 数据库?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！