Use the /cmd
command-line parameter to start Access, and the Commmand()
function in Access-VBA to read it.
"C:Program Files (x86)Microsoft OfficeOffice14MSACCESS.EXE" D:WorkmyDb.accdb /cmd foo
and this function called by an Autoexec
macro:
Public Function AutoExec()
Dim sCmd As String
' ... other initializations ...
' Read /cmd command-line parameter
sCmd = Command()
Select Case sCmd
Case "foo": Call Foo()
Case "bar": Call Bar()
Case Else: Debug.Print "No valid command-line parameter passed."
End Select
End Function
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…