1

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

ヘルプやヒントをいただければ幸いです。

4

0 に答える 0