Application.Goto 다른 서브 루틴의 라인 오류

나는이 간단한 코드를 Excel에 가지고있다. 하위 테스트를 실행하면 하위 예제로 이동하여 'Hello'앞에 커서를 놓습니다. Ms Access 2010 모듈 내에서 VBA에서도 동일한 작업을 수행하려고하지만 "컴파일 오류 : 메소드 또는 데이터 멤버를 찾을 수 없습니다"라는 메시지가 나타납니다. Ms 액세스에서 어떻게 작동합니까? 당신은 싶어 전화가 처음 접근 형태이어야Application.Goto 다른 서브 루틴의 라인 오류

Call example

에주의, 하위 :

Sub test() 
    Application.Goto "example" 
End Sub 

Sub example() 
    'Hello 
End Sub

출처

2013-11-23 mpalanco

당신은이 방법을 사용합니다.

출처

2013-11-23 18:24:41

고맙습니다. 하지만 하위 예제를 호출하고 실행하고 싶지 않습니다. 난 그냥 하위 예제의 라인에 가서 코드를 실행하지 싶습니다. 하위 안에있는 줄에가는 것. Excel에서는 작동하지만 Access에서는 작동하지 않습니다. – mpalanco

죄송합니다 ... 디버그를 의미합니까? 나는 당신이 얻고 자하는 것을 붙 잡지 못했습니다 ... –

죄송합니다. 그것을 이해하는 가장 좋은 방법은 Excel의 VBE에 두 개의 하위를 붙여넣고 하위 테스트를 실행하는 것입니다. 기본적으로 하위 테스트를 단추에 지정하면 VBE의 하위 예제 (해당 하위를 실행하지 않고 그냥 표시 함)로 이동합니다. 나는 그것이 지금 더 분명하기를 바란다. 고맙습니다. – mpalanco

Mark Lavine 및 a Microsoft article에 의해 몇 가지 코드를 사용하여 아래에있는 하위를 생성 할 수있었습니다. 직접 실행 창에 문자열의 각 항목과 모듈 및 줄을 인쇄합니다. 프로그래밍 방식으로 해당 특정 줄로 이동할 수 있기를 원합니다.

Sub FindStringInAllModules() 
Dim c As String 
c = "example" 'Search for string "test" 
Dim i As Integer 
Dim obj As AccessObject, dbs As Object 
Set dbs = Application.CurrentProject 
For Each obj In dbs.AllModules 
    If obj.IsLoaded = True Then 
     With Application.Modules(obj.Name) 
      For i = 1 To .CountOfLines 
       If InStr(.Lines(i, 1), c) > 0 Then 
        Debug.Print obj.Name & " line " & i 
       End If 
      Next i 
     End With 
    End If 
Next obj 
End Sub

출처

2013-11-26 15:14:51 mpalanco

Application.Goto 다른 서브 루틴의 라인 오류

답변

관련 문제