Access VBA データフィルタの件

以前、以下の通りAccess VBAで質問させてもらった者です。
https://oshiete.goo.ne.jp/mypage/history/question

アクセスで、テキストボックスに値を入れてコマンドボタンを押すとリストが検索した値で絞られるようにしました。（例えば、ボックスにAAといれて検索したら、AAのみが表示される）

これを、「検索を押すと、その検索値の先頭へ飛ぶようにしたい（データを絞り込むのではなく）」という制御にかえたいと思っていますが、そのような事は可能でしょうか。
（例えば、ボックスにAAといれて検索したらAAの先頭に飛ぶ）

可能である場合、現行のVBAをどのように書き換えれば良いか御教示頂けませんでしょうか。
（現行のVBAは添付画像の通りです）

よろしくお願いします。

No.2 ベストアンサー 回答者： bonaron 回答日時： 2016/11/27 16:40

基本 － 見つからないとき先頭に移動します。

With Me.サブフォーム.Form.Recordset
’　　.MoveLast
　　.FindFirst "フィルタの条件"
End With

見つからないとき移動しません。
With Me.サブフォーム.Form.RecordsetClone
’　　.MoveLast
　　.FindFirst "フィルタの条件"
　　If Not .NoMatch Then
　　　　Me.サブフォーム.Form.Bookmark = .Bookmark
　　End If
End With


.MoveLast の行のコメントをはずすと
概ね、見つけた行がフォームの先頭に表示されます。

この回答へのお礼

できました！本当にありがとうございました！！

お礼日時：2016/11/28 20:55

No.1 回答者： くんこば 回答日時： 2016/11/26 23:53

画像が見えないのでなんとも言えませんが、リストを選択状態にさせるならリストボックスのプロパティを操作する必要があります。

絞り込む場合は、おそらくコントロールソースでクエリを指定しているんですよね？
その考え方とは全く違うアプローチが必要になります。
リストボックスコントロールを勉強してください。

この回答へのお礼

参考になりました。ありがとうございました。

お礼日時：2016/11/28 20:54