UPDATE SET WHERE部分在列表框上工作-Microsoft Access VBA

Question

我完全被这个困扰。.跳到底部阅读问题

这是我的列表框（ DocumentList ），它采用了' Documents '表中的字段：

Document Name   Status         Notes                  Consultation Notes
Doc A           Started        Document Started       Aim to process on 05/05/16
Doc B           Processing     Document Processing    Aim to complete on 05/05/16
Doc C           Complete       Complete on 01/01/16   N/A

我设置了onclick事件，以便当您从列表框中选择一行时，它会将每个字段分配给一个文本框/组合框。

文本框/组合框名称：

txtDocument
StatusCombo
txtNotes
txtConNotes

“ DocumentList”点击事件中每个事件的代码：

Private Sub DocumentList_Click()

txtDocument = DocumentList.Column(0)
StatusCombo = DocumentList.Column(1)
txtNotes = DocumentList.Column(2)
txtConNotes = DocumentList.Column(3)

从列表框中将数据分配给他们之后，您可以对其进行编辑。 我有一个更新按钮，当按下该按钮时，会将数据库中的所有内容替换为文本框/组合框中的所有内容。 然后重新查询该列表框并显示更新的数据。

这是我的更新按钮的代码：

Private Sub UpdateButton_Click()

CurrentDb.Execute "UPDATE [Documents] " & _
"SET [Document Name] = '" & Me.txtDocument & "'" & _
", [Status] = '" & StatusCombo.Value & "'" & _
", [Notes] = '" & Me.txtNotes & "'" & _
", [Consultation Notes] = '" & Me.txtConNotes & "'" & _
"WHERE [Document Name] =  '" & DocumentList.Column(0) & "'" & _
"AND [Status] =  '" & DocumentList.Column(1) & "'" & _
"AND [Notes] =  '" & DocumentList.Column(2) & "'" & _
"AND [Consultation Notes] =  '" & DocumentList.Column(3) & "'"


DocumentList.Requery
End Sub

我的问题是该代码仅适用于3个文档中的2个。 该代码的所有方面均有效，但仅适用于某些文档。 这对我来说毫无意义。 起初我以为这可能是拼写错误，但是即使是，也不会更新任何文档。但是其中一些文档确实不会更新。

有什么想法可以解释为什么此代码更新了一些文档，却没有更新其他文档？

Answer 1

当[Documents].[Consultation Notes]为Null时，不会更新任何内容，因为WHERE子句将目标改为空字符串... "'" & DocumentList.Column(3) & "'" ...因此找不到匹配的行。

如果将自动编号主键ID添加到[Documents]表中，则该任务将更加简单。 然后，在列表框中“ 行来源”中包含ID ，并在WHERE子句中使用该值来定位要更新的行。 （ ID列不必在列表框中可见；您可以将其列宽属性设置为零。）

然后，您的WHERE子句可以简单得多：只需将ID匹配所选列表框行的ID列值的记录作为目标。 该策略还可以避免“ Null永远不等于任何事物，甚至不等于另一个Null”的复杂性。

最后，考虑对UPDATE进行参数查询，而不是将值连接到字符串变量中。