アクセス:フォームで氏名をドロップ式で選んでレコード移動

質問

よろしくお願いします。
おそらく非常に基本的なことだと思いますが、ご指導をお願いいたします。

テーブルでidと氏名はすでに入力されています。他にフィールドがたくさんあり、フォームを使って入力したいのです。次のようにしたいのですが行き詰っています。ご指導お願いします。

やりたいこと：「フォームで氏名のボックスをドロップ式（リスト式？）にして、三角マークをクリックすると氏名が表示され、そこで氏名を選んでレコード移動をし、他のフィールドにデータ入力をしたい。」

よろしくお願いいたします。

回答No.3

Dxak

すみません。
えっと、ある程度理解できる前提で貼り付けてますので、説明は省いてました。

Private Sub Ctl選択肢_AfterUpdate()
' コントロールの値と一致するレコードを検索する
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[氏名] = '" & Me![Ctl選択肢] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Set rs = Nothing

End Sub

フォームに既存のレコード表示コントロールが配置されている前提です。現在氏名に使ってるコントロールでもよいのですが、コントロール名はフィールド名と重ならないように変更してください。
そこから、コントロールのコントロールソースを削除して、ＶＢＡの方を以下の２箇所変更してください。
> rs.FindFirst "[氏名] = '" & Me![Ctl選択肢] & "'"
[氏名]の部分は、フォームのレコードソースの氏名に当たるフィールド名に変更してください。[Ctl選択肢]は、氏名を選択するコンボボックスまたはリストボックスのフォーム上のコントロール名です。
コンボボックスまたはリストボックスは、[氏名]に当たるフィールドの値を取得するように設定ください。

後、気になっているのですがコンボボックスを使用するって・・・検索結果なしだと新規レコードに自動的に飛ぶってルーチン不要なのかな？
下手を打つと、違うデータの上に上書きしちゃったって無いです？