フォームのテキストボックスに一番新しいテーブルの値を入れるには？

こんにちは、VBA初心者です。アクセス２０００を使用してます。
現在、フォームのテキストボックス（年月度）の初期値に、DMAXでテーブルにある(年月度）の値を入れてます。
過去の年月度を入れる時は、手入力で変更してるのですが、続けて入力したい場合、DMAXになってるので、初期値が一番新しい（年月度）になってしまいます。
これを、前回入力した（年月度）を初期値にするには、どうしたらいいでしょうか？

Private Sub Form_Current()
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("年月度マスター", dbOpenDynaset)
If IsNull(Me![年月度]) Then
Me![年月度] = DMax("年月度", "データ")
End If

If Me![データID] = 0 Then
Me!データID = rst![マスターデータID] + 1
rst.Edit
rst![マスターデータID] = Me!データID
rst.Update
rst.Close
End If

End Sub

No.1 ベストアンサー 回答者： Gin_F 回答日時： 2004/04/08 10:35

> 前回入力した（年月度）を初期値にするには、どうしたらいいでしょうか？

DLast 関数を使えば、最後に入力したレコードを参照することができます。

この回答へのお礼

DLastですね！ありがとうございます。
先ほど、書き換えたら出来ました。

お礼日時：2004/04/08 13:35