VB スクリプトを使用して Access で作成したツールを実行しようとしていますが、実行するには 7 つの変数を受け取る必要があります。ツールの実行時に Access にデータを送信して使用する方法がわかりません。他のすべての投稿では、データベースに直接接続するように言われていますが、ツールが複雑すぎて効率的に実行できません。
これまでのコードは次のとおりです。
'initialise variables to hold the parameters passed in
Dim v_VBTOOL
Dim v_Procedure
Dim o_accessApp
'Assign the parameters to the variables
v_VBTOOL = WScript.Arguments(0)
v_Macro =WScript.Arguments(1)
Wscript.echo "The Database to open is " & v_VBTOOL
Wscript.echo "The Macro to run is " & v_Macro
'Create an MSAccess application Object
'=================================================
Set o_accessApp = createObject("Access.Application")
'Open the required VBTestTool database
'=================================================
o_accessApp.OpenCurrentDataBase(v_VBTOOL)
'Now run the relevant Macro
'=================================================
o_accessApp.DoCmd.RunMacro(v_Macro)
If Err.Number > 0 Then
' There was an error. Inform the user and halt execution
strMsg = "The following error was encountered while compacting database:"
strMsg = strMsg & vbCrLf & vbCrLf & Err.Description
WScript.Echo strMsg
Else
WScript.Echo "VBTOOL PROCEDURE WAS SUCCESSFUL"
o_accessApp.Quit
Set accessApp = nothing
End If
ヘルプやヒントをいただければ幸いです。