1

バインドされていないフォームがあります。フォームに保存ボタンがあります。今のところ、保存ボタンを押すと、フォームの情報がレコードに保存されますが、保存を押すたびに、更新する代わりに新しいレコードが追加されます。新しいレコードを追加するのではなく、現在のレコードを更新する必要があります。どんなアイデアでも大歓迎です。

ここに私のコードがあります:

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. ただし、既存のレコードを更新するにはどうすればよいですか?

主キーを持っている場合、その方法でレコードを取得して更新できますか?

4

0 に答える 0