VBA - 訪問 - 使用用戶表格中的新數據更新表格

Question

我在Access中創建了一個表單（提供了有關審閱者的信息），其中一部分是評論部分（我有兩個評論部分，一個顯示了針對人和另一個是添加新的評論）。

我有一張表格，當您通過組合框搜索審閱者時，該表格針對表單拉入的每個人的ID保存註釋。

我已經完成了添加評論（人員ID和新評論）的代碼，但它只是在表格中創建一個新字段（或者如果我停止重複，則不會添加它）。

我想要做的是查看ID是否在表中，如果是，則用新評論替換舊評論，否則將新ID /註釋添加到表中。

到目前爲止我的代碼是：

Dim strSQL As String 

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

End Sub 

有什麼建議？謝謝。

Answer 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