DAO レコードセットのレコードをフォームのカレント レコードと同期する方法

次のコード例では、RecordsetClone プロパティと Recordset オブジェクトを使って、レコードセットのレコードとフォームのカレント レコードを同期させます。コンボ ボックスから会社名を選択すると、FindFirst メソッドはその会社のレコードを検索し、Recordset オブジェクトの Bookmark プロパティがフォームの Bookmark プロパティに代入され、検索したレコードがフォームに表示されます。



Sub　SupplierID_AfterUpdate()　
　　　　Dim　rst　As　Recordset　
　　　　Dim　strSearchName　As　String　
　
　　　　Set　rst　=　Me.RecordsetClone　
　　　　strSearchName　=　Str(Me!SupplierID)　
　　　　rst.FindFirst　"SupplierID　=　"　&　strSearchName　
　　　　　　　　If　rst.NoMatch　Then　
　　　　　　　　　　　　MsgBox　"Record　not　found"　
　　　　　　　　Else　
　　　　　　　　　　　　Me.Bookmark　=　rst.Bookmark　
　　　　　　　　End　If　
　　　　rst.Close　
End　Sub