Access VBAで前から検索するには「instr関数」を、後ろから検索するには「instrrev関数」を使います。
・instr関数の書式 [ ]は省略できます
instr( [開始位置] , 検索される文字列 , 検索する文字列 , [比較方法] )
・instrrev関数の書式 [ ]は省略できます
instr( 検索される文字列 , 検索する文字列 , [開始位置] , [比較方法] )
■ Access実行画面
「検索開始」ボタンで実行します。
検索文字や比較方法など変更しお試しください。
■ Access VBA 実行コード
Option Compare Database
Option Explicit
Private Sub コマンド0_Click()
Dim s As String
Dim n As Long
s = "abcABCABCアイウアイウあいうabcABCABCアイウアイウあいう"
Me!テキスト3 = s & vbCrLf & vbCrLf
n = InStr(s, "abc")
Me!テキスト3 = Me!テキスト3 & "前 abc: " & n & vbCrLf
n = InStrRev(s, "abc")
Me!テキスト3 = Me!テキスト3 & "後 abc: " & n & vbCrLf
n = InStr(s, "あいう")
Me!テキスト3 = Me!テキスト3 & "前 あいう: " & n & vbCrLf
n = InStrRev(s, "あいう")
Me!テキスト3 = Me!テキスト3 & "後 あいう: " & n & vbCrLf
End Sub