バインドされていないフォームがあります。フォームに保存ボタンがあります。今のところ、保存ボタンを押すと、フォームの情報がレコードに保存されますが、保存を押すたびに、更新する代わりに新しいレコードが追加されます。新しいレコードを追加するのではなく、現在のレコードを更新する必要があります。どんなアイデアでも大歓迎です。
ここに私のコードがあります:
Dim dblocal As DAO.Database
Dim rst As DAO.Recordset
Set dblocal = CurrentDb()
Set rst = dblocal.OpenRecordset("SUBJECT_DATABASE", dbOpenDynaset)
'Prim. ID var.
Dim EvtIDkey As Long
With rst
.AddNew
.Fields("LAST NAME") = Me.LNameTxtB
.Fields("FIRST NAME") = Me.FNameTxtB
.Fields("GENDER") = Me.GenderCboB
.Fields("DOB") = Me.DOBTxtB
'inserts primary id into textB
Me.EvtIDKeyTxtB = .Fields("ID")
.Update
End With
End If
次の条件で if ステートメントを追加することを考えていました: If EvtIDKeyTxTB is not empty update exist record. ただし、既存のレコードを更新するにはどうすればよいですか?
主キーを持っている場合、その方法でレコードを取得して更新できますか?