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 语句:如果 EvtIDKeyTxTB 不是空的,则更新存在记录。但是,如何更新现有记录?

如果我有主键,我能以这种方式获取和更新记录吗?

4

0 回答 0