次のコード例では、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