Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Forms 在按钮上,如果(不存在记录),则按下按钮,然后创建其他更新_Forms_Vba_Ms Access 2010 - Fatal编程技术网

Forms 在按钮上,如果(不存在记录),则按下按钮,然后创建其他更新

Forms 在按钮上,如果(不存在记录),则按下按钮,然后创建其他更新,forms,vba,ms-access-2010,Forms,Vba,Ms Access 2010,我有一个未绑定的表单。在表单上我有一个保存按钮。现在,当您按下save按钮时,它会将表单上的信息保存到一条记录中,但每次按下save时,它都会添加一条新记录,而不是更新它。我需要它来更新当前记录,而不是添加新记录。欢迎提出任何意见 这是我的密码: Dim dblocal As DAO.Database Dim rst As DAO.Recordset Set dblocal = CurrentDb() Set rst = dblocal.OpenRecordset("SUBJECT_DATAB

我有一个未绑定的表单。在表单上我有一个保存按钮。现在,当您按下save按钮时,它会将表单上的信息保存到一条记录中,但每次按下save时,它都会添加一条新记录,而不是更新它。我需要它来更新当前记录,而不是添加新记录。欢迎提出任何意见

这是我的密码:

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不是空的,则更新exist记录。但是,如何更新现有记录


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

你应该在原来的问题上加一条注释,而不是问新问题