access vba instr函数示例

Access VBA (Visual Basic for Applications) 中的 `Instr` 函数用于查找某个文本字符串在另一个字符串中的位置。它返回的是子串首次出现的位置，如果没找到则返回0。下面是一个简单的示例：

Sub FindSubstringExample()
    Dim strFullText As String
    Dim strSearchTerm As String
    Dim intPosition As Long
    
    ' 定义要搜索的完整文本
    strFullText = "Hello, Access! This is an Instr function example."
    
    ' 定义要查找的子串
    strSearchTerm = "example"
    
    ' 使用Instr函数查找子串的位置
    intPosition = InStr(1, strFullText, strSearchTerm)
    
    ' 检查是否找到了子串，并打印结果
    If intPosition > 0 Then
        Debug.Print "Substring found at position " & intPosition
    Else
        Debug.Print "Substring not found"
    End If
End Sub

在这个例子中，`Instr(1, strFullText, strSearchTerm)` 的第一个参数表示从字符串的起始位置（索引1）开始搜索，第二个参数是要搜索的完整文本，第三个参数是要查找的子串。如果子串存在，就会返回它的位置；不存在则返回0。