Accessのフォーム内で抽出されたKeyWordの位置を簡単に表示させる方法

質問

Access2000を使用しています。

特定のKey Word (複数)を
メインフォーム(frmF01)のテキストボックス(txt01)から選択した時、
指定フィールド内に合致したKey Wordを含むレコードの
フォーム(frmF02)を抽出するところまでは
出来ているのですが、その指定フィールド(fld01)のデータ型がメモ型で、
かなり大量の文章が含まれています。
その為、そのメモ型フィールド内の選択したKey Wordの個所を
探し出すのに相当時間がかかって困っています。
Key Wordの位置を一見して発見できるような方法は無いでしょうか？

Google等では色付け表示ができるように考案されていますが、
Accessの場合は、
カーソルの位置が自動的にKey Wordの位置に行くとか、
何か工夫する方法は無いものでしょうか？
皆様のお知恵を頂きたいと思います。

回答No.1

snoopy64 · ベストアンサー

With Me.メモ型フィールド
.SetFocus
.SelStart = InStr(.Value, "あああ") - 1
.SelLength = Len("あああ")
End With
こんな感じでどうでしょう。
頑張ってくださいヽ(^。^)ノ

お礼

snoopy64さん、

すみません。
初歩的な質問でした。
KeyWordのプロパティ内に”規定値”
というのがあり、それに単に”txt01”を
適用すればよいだけの話でした。

今回は有難うございました。

補足

snoopy64さん
有難うございます。

非常にシンプルなコードですが
frmF02に新たな検索用テキストボックス”KeyWord”を下記の如く設置すれば
上手く稼動させる事ができました。
With Me.fld01
.SetFocus
.SelStart = InStr(.Value, [KeyWord]) - 1
.SelLength = Len([KeyWord])
End With

そのKeyWord内に、
メインフォームfrmF01にある元々の検索用テキストボックス
”txt01”内の検索対象値をコピー＆ペーストすれば
当初の目的を達成できるのですが、その操作を一回省く為、
KeyWordのボックス内にtxt01の値を規定値（ディフォールト）
で入力させて置く事ができれば、
上記の余分な操作も不必要になると考えられます。
その点は如何でしょうか？
可能でしたら、その追加コーディングをお願いできないでしょうか？