Application.Run With Error Trapping

Question

VBA를 사용하여 Access에서 Application.Run을 사용하고 오류를 트랩합니다. 불행하게도, Application.Run은 오류 트래핑을 납치하는 것처럼 보입니다. 이 문제를 해결할 수있는 방법이 있습니까?

On Error Resume Next 
Application.Run ... 

은 내가 다음 또는에 오류 고토 ErrCatch를 다시 시작 오류에 지정하는 경우에도 오류에 Application.Run 과거를 얻을하지 않습니다. 내 오류 트래핑 설정이 무시됩니다. 당신이 이름을 동적으로 일을 호출 할 수해야하는 경우

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

것은, 당신이 탐험 수 : 당신이 전화하고있는 절차는 VBA 프로젝트 내에있는 경우

Answer 1

, 당신은 직접 프로 시저를 호출 할 수 있습니다

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

,536 :의 라인을 따라,

'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 

또는, 당신은 당신의 자신의 동적 핸들러를 작성할 수 클래스와 CallByName를 사용하여

다른 VBA 프로젝트에서 프로 시저를 호출하는 경우 VBA 호스트에 따라 해당 프로젝트에 대한 참조를 추가해야 할 수 있습니다. 당신은 DLL 또는 XLL에 의해 등록 된 함수를 호출하고 있기 때문에 당신이 Application.Run를 사용하는 경우 Application.Run`은 기본적으로`때문에

그러나, 당신은의 Application.Run