Application.Run with Error Trapping

Question

アクセスでは、VBAを使用して、Application.Runを使用してエラーをトラップします。残念ながら、Application.Runはエラートラッピングをハイジャックしているようです。これを修正する方法はありますか？

On Error Resume Next 
Application.Run ... 

私はエラー再開次のオンまたはエラー後藤ErrCatchで指定しても、エラーにApplication.Runを乗り越えることはありません。私のエラートラップ設定は無視されます。あなたが名前によって動的に物事を呼び出すことができるようにする必要がある場合は、あなたが探検でき

Sub Foo() 
    'Application.Run "SomeProc" 
    SomeProc 
End Sub 

：あなたが呼び出している手順では、VBAプロジェクト内にある場合

Answer 1

は、その後、あなただけと直接プロシージャを呼び出すことができますクラスを使用してCallByName：

'In a standard module 
Sub Foo() 
    Dim o as New ProcRunner 
    CallByName o, "SomeProc", VbMethod, args 
End Sub 

'In a class module called ProcRunner 
Sub SomeProc() 
    DoSomethingHere 
    'Or, do something in a standard module 
    Module1.SomeOtherProc 
End Sub 

それとも、あなたはの線に沿って、独自のダイナミックハンドラを記述することができます。

Sub AppRun(ProcName As String, ParamArray Args) 
    Select Case ProcName 
    Case "SomeProc" 
     SomeProc 
    Case "SomeFunc" 
     SomeFunc 
    End Select 
End Sub 

別のVBAプロジェクトでプロシージャを呼び出す場合は、VBAホストに応じて、そのプロジェクトへの参照を追加する必要があります。しかし

、あなたがApplication.Runを使用している場合は、DLLまたはXLLで登録された関数を呼び出しているので、あなたはApplication.Run`は基本的には `ためだApplication.Run