dim SQL as String
dim rs As Recordset
SQL = " SELECT INSTR(フィールド名,検索文字列) FROM テーブル名 "
又は、
SQL = " SELECT INSTR(フィールド名,検索文字列) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
検索文字列が見つかった場合は、その文字位置を返しますが見つからない場合は0が返ります。
「今日は5時間ライブ」から「5」を検索した場合、4が返ります。
「今日は5時間ライブ」から「時間」を検索した場合、5が返ります。