Application.Goto其他子程序的行錯誤

我在Excel中有這樣一段簡單的代碼。如果我運行子測試，它會帶我到子例子，並將光標放在'你好。我想在Ms Access 2010模塊中的VBA中做同樣的事情，但是我得到：「編譯錯誤：未找到方法或數據成員」。我如何使它在Ms Access中工作？Application.Goto其他子程序的行錯誤

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

Sub example() 
    'Hello 
End Sub

來源

2013-11-23 mpalanco

您必須使用此方法：

Call example

講究，分你想調用必須是可訪問的形式第一。

來源

2013-11-23 18:24:41

謝謝。但我不想調用並運行子示例。我只想轉到子示例的行，而不是在裏面運行代碼。就像去一個子內線一樣。它在Excel中工作，但不在Access中。 – mpalanco

對不起......你的意思是在調試？我沒有抓住你想要獲得的東西... –

對不起我的錯誤，因爲沒有更好地解釋它。理解它的最好方法就是將兩個subs都粘貼到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其他子程序的行錯誤

回答

相關問題