Question

我在Excel中有这么简单的代码。如果我运行子测试，它会将我带到子示例并将光标放在'Hello。我想在Ms Access 2010模块中的VBA中做同样的事情，但我得到：“编译错误：找不到方法或数据成员”。如何在Access Access中使其工作？

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

Sub example()
   'Hello
End Sub

Answer 1

您必须使用此方法：

Call example

注意，你要打电话的小组必须可以从第一个小方式访问。

Answer 2

在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

Application.Goto其他子程序的行错误

2 个答案: