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

カレントレコードのデータを取得する。

Private Sub Form_Current()

　　　　Dim rs As DAO.Recordset
　　　　Set rs = Me.RecordsetClone

　　　　rs.Boomark=Me.Bookmark
　　　　str = rs.Fields("フィールド3") & vbCrLf _
　　　　　　　　& rs.Fields("フィールド7") & vbCrLf _
　　　　　　　　& rs.Fields("フィールド8") & vbCrLf _
　　　　　　　　& rs.Fields("フィールド9") & vbCrLf
End Sub