goo blog サービス終了のお知らせ 

開発頭-kenken

写真付きで日記や趣味を書くならgooブログ

最近node.jsが気になってきました。

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

2013-08-25 23:59:03 | Access・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


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

2012-04-17 19:32:16 | Access・DAO

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