直前のレコードの値を表示する方法

直前に入力した値を次の新規レコードで使用したい場合があります。

このような場合にはRecordClone　プロパティを使用できます。

Private Sub Form_AfterUpdate()

Dim  rs As Recordset

Dim  key As Long

Set rs = Me.RecordsetClone　　’更新されたレコードセットを保存

key = Me!キーとなるフィールド　　　’キー項目を保存

End Sub

Private Sub Form_Current()　　　’移動した先が新規レコードなら保存したレコードセットから必要なフィールドを表示

If Me.Newrecord Then

rs.FindFirst “コード=” & key　　’保存したキー項目を検索

If　rs.NoMatch = False Then　　’直前編集した項目のデータを表示

Me!名称　=　rs!名称

End If

End If

End Sub