VBA - 访问 - 使用用户表单中的新数据更新表答案

【问题标题】：VBA - Access - updating table with new data from user formVBA - 访问 - 使用用户表单中的新数据更新表
【发布时间】：2016-07-15 16:30:23
【问题描述】：

我在Access中创建了一个表单（提供审稿人信息），其中一部分是评论区（我有两个评论区，一个显示针对人的cmets，另一个是添加新的cmets）。

我有一个表格，它根据每个人的 ID 保存 cmets，当您通过组合框搜索审阅者时，该表格会拉入该表格。

我已经完成了添加 cmets 的代码（人员 ID 和新 cmets），但它只是在表中创建了一个新字段（或者如果我停止重复则不添加它）。

我想要它做的是查看 ID 是否在表中，如果是，则将旧评论替换为新评论，否则，将新 ID/评论添加到表中。

到目前为止我的代码是：

Dim strSQL As String

   strSQL = "INSERT INTO panelComment (ID, Comments) VALUES (" & Me!Text14 & ", '" & Me!Text29 & "');"
   DoCmd.RunSQL strSQL

End Sub

有什么建议吗？谢谢。

【问题讨论】：

标签： sql database vba ms-access

【解决方案1】：

Dim strSQL As String
If DCount("Id","panelCOmment","ID=" & Me!Text14) >0 then
strSQL = "Update panelComment set Comments = '" & Me!Text29 & "' where Id = " & Me!Text14
else
   strSQL = "INSERT INTO panelComment (ID, Comments) VALUES (" & Me!Text14 & ", '" & Me!Text29 & "');"

ENd if
DoCmd.RunSQL strSQL

【讨论】：

一月！非常感谢，工作完美:)...花了几个小时寻找这个问题的答案。周末愉快！