VBSからAccessのモジュールを呼び出した際のエラー処理について

Question

前提

VBScriptからAccess上のモジュールを呼び出すツールを作成しています。

実現したいこと

VBSからモジュールを呼び出した際に、呼び出し先でエラーが発生した時に処理を終了するようにしたいです。
呼び出し元のVBSにエラーが発生していることを通知し、そこでスクリプトを終了したいです。

発生している問題・エラーメッセージ

現状VBSからAccessのモジュールを呼び出すこと、また、呼び出したモジュール内でエラー処理（ラベルのError1:へ飛ぶ）ができていることは確認できていますが、呼び出し元のVBSにエラーが起きたことを通知することができていません。

確認した内容
AccessVBA内のMsgBox "エラー発生"が表示されることを確認
MsgBox retはからのメッセージボックスが表示されている状態

該当のソースコード

Dim ret
ret = AcApp.Application.Run (access_module)

MsgBox ret

If ret <> 0 Then
	WScript.Quit
Else
	MsgBox "処理成功"
End If

Sub access_module()
    Dim file_check
    file_check = Dir("この後読み込むファイル名")
    
    If file_check = "" Then
        GoTo Error1
    Else
        Open "この後読み込むファイル名" For Input As #0
        'ここは正常系の処理が書かれています。
    End If
Error1:
    'DB終了処理
    MsgBox "エラー発生"
End Function

お手数をおかけしますが、ご回答の程よろしくお願い致します。

Answer 1

yshima1129 さんのやり方でイケるっぽいです。以下、実行結果になります。

Option Explicit 

Call Main()

Sub Main()
	Dim app
	Set app = CreateObject("Access.Application")
	app.OpenCurrentDatabase "C:\test\test.mdb"
	
	Dim ret
	ret = app.Application.Run ("access_module")

	MsgBox ret

	If ret <> 0 Then
		WScript.Quit
	Else
		MsgBox "処理成功"
	End If

End Sub

Function access_module()
    access_module = 9
End Function

C:\test>CScript test.vbs
Microsoft (R) Windows Script Host Version 5.812
Copyright (C) Microsoft Corporation. All rights reserved.

実行結果

Comments

[siroutouser]

お時間を割いていただきありがとうございました。
Runの引数を文字列にすることで、自分の方でも実行することができました。

本件ご対応いただきありがとうございます。

Answer 2

Function にして戻り値で渡すことは可能です。（当方のサンプルで確認できました。）

他の部分に間違いがあります。下記の※のコメント部分を修正すると正常に動作するはずです。

Function access_module() As Integer
    Dim file_check
    file_check = Dir("この後読み込むファイル名")
    
    If file_check = "" Then
        GoTo Error1
    Else
        Open "この後読み込むファイル名" For Input As #0
        'ここは正常系の処理が書かれています。
    End If
    Exit Function '※これがないとエラーがでなくても下記のコードが実行される。
Error1:
    'DB終了処理
    access_module = 9
End Function

Dim AcApp
Set AcApp = CreateObject("Access.Application")
'データベースファイルをオープン
acApp.OpenCurrentDatabase "C:\test\Database1.accdb"

Dim ret
ret = AcApp.Application.Run("access_module") '※Application.Runの引数は文字列で
  
MsgBox ret

If ret <> 0 Then
	WScript.Quit
Else
	MsgBox "処理成功"
End If
acApp.Quit

Comments

[siroutouser]

お時間を割いていただきありがとうございました。
ご指摘いただいた通り、Runの引数を文字列指定にすることで戻り値を受け取ることができました。

ご丁寧に解説をいただき、ありがとうございました。
大変、勉強になりました。

Answer 3

SubをFunctionに変更し、access_moduleに戻り値を入れれば、VBSに渡せるかな？(未検証)

Function access_module()
    Dim file_check
    file_check = Dir("この後読み込むファイル名")
    
    If file_check = "" Then
        GoTo Error1
    Else
        Open "この後読み込むファイル名" For Input As #0
        'ここは正常系の処理が書かれています。
    End If
Error1:
    'DB終了処理
    access_module = "エラー発生"
End Function

Comments

[siroutouser]

早々にご回答いただきありがとうございます。
Access側のSubをFunctionに変更しましたが、VBS側のMsgBoxはからのままでした。

変更点
①Sub access_module()→Function access_module() As Integer
※併せてEnd Fuctionに変更
②Error1:中で以下のコードを追加
access_module = 9
※9に特に意図はありません。

[yshima1129]

ダメでしたか・・・。すみません。

[siroutouser]

とんでもないです、お時間を割いていただきましてありがとうございます。

また、自分の書き方が悪かったようで、上記で動かすことができました。
Runの引数が文字列になっていなかったことが問題の様で、VBA側をFunctionに変更することで戻り値を受け取ることができました。

諸々、ご対応いただきありがとうございます。
大変助かりました。