Ms access MS Access使用UPDATE语句不断输入新数据

我正在使用UPDATE语句，但每当我单击

Edit

按钮，然后单击

UPDATE

，它都会输入一个新行，但数据相同

我的代码：

Private Sub cmdAdd\u Click（）
“当我们单击“添加”按钮时，有两个选项
“1.用于插入
'2.更新
如果Me.txtNumber.Tag&=“=”，则
'这是用于插入新的
'将数据添加到表中
CurrentDb.执行“插入TBL公司（公司名称、公司地址、联系人号码、联系人、电子邮件地址、网站、工厂位置、项目信息、顾问）”和_
“值（”&Me.txtCompanyName&“，”&”_
Me.txtCompanyAddress&“，”和Me.txtContactNumber&“，”和_
Me.txtmactperson&“，”&Me.txtmailaddress&“，”&”_
Me.txtWebsite&“，”和Me.txtPlantLocation&“，”和_
Me.txtProjectInfo&“，”&Me.txtpconsultant&“）”
其他的
'否则（txtNumber标签存储要修改的公司编号）
当前数据库。执行“更新tblcompany”&_
“SET companyname=”&Me.txtCompanyName&“SET companyname=”&_
“，companyaddress=”&Me.txtCompanyAddress&“'''_
“，contactnumber=”&Me.txtContactNumber&“”&_
，contactperson='&Me.txtContactPerson&'''_
“，emailaddress=”&Me.txtEmailAddress&“”&_
“，website=”&Me.txtWebsite&“”&_
，plantlocation='&Me.txtPlantLocation&'''_
，projectinfo='&Me.txtProjectInfo&'''_
“，consultant=”&Me.txtcsultant&“”&_
“WHERE number=“&Me.txtNumber.Tag
如果结束
“清晰的形式
单击“清除”
'刷新表单上列表中的数据
frmCompanySub.Form.Requery
端接头

默认情况下标记属性不是空的吗？如果要保存新记录，则必须将标记属性设置为该数字。因此，当您更新记录时，

其中number=&me.txt.number.tag

为真。否则，“”的所有记录标记将等于“”

---

另外，在您的

currentDb.execute

行（在

之后，然后是

）上添加选项卡。

默认情况下标记属性不是空的吗？如果要保存新记录，则必须将标记属性设置为该数字。因此，当您更新记录时，

其中number=&me.txt.number.tag

为真。否则，“”的所有记录标记将等于“”

---

另外，在你的

currentDb.执行

行（在

之后

）。

就在你的Update语句上方，放在下面：

MsgBox“Update statement reated”

中，看看它是否会在你期望

Update

语句运行时弹出。谢谢你的评论，但仍然没有发生任何事情。每当我单击“更新”按钮时，它就会不断输入新数据。因此，如果Msgbox从未弹出，您认为会发生什么情况？我对vba代码了解不够，这就是我在这里寻求帮助的原因。我只是在互联网上看到的一些教程视频中复制和编辑了这些代码，但仍然无法正确执行。我的代码有问题，但我无法解决。就在您的更新语句上方，输入以下内容：

MsgBox“Update statement reated”

，然后查看它是否在您希望运行

Update

语句时弹出。感谢您的评论，但仍然没有发生任何事情。每当我单击“更新”按钮时，它就会不断输入新数据。因此，如果Msgbox从未弹出，您认为会发生什么情况？我对vba代码了解不够，这就是我在这里寻求帮助的原因。我只是在互联网上看到的一些教程视频中复制和编辑了这些代码，但仍然无法正确执行。我的密码有点问题，但我想不出来。