Question

这看起来很简单，但是让我迷恋于此：我需要单击一下按钮清除5列。而已。我不需要删除列，因为它们用于求和计算。我只需要清除大于零的值即可。

表名是Customer

Column 1 = Week 1 
Column 2 = Week 2
ETC

这是我的垃圾代码无法运行。在这个假期里，任何帮助都是一个很好的姿态。我正在使用Access 2016。

Private Sub Command80_Click()

    Dim SQL As String

    SQL = "UPDATE Customer " & _
          "SET Week1 = NULL " & _
          "WHERE Week 1 > 0"
DoCmd.RunSQL SQL

End Sub

Answer 1

如果要更新的字段名称是Week1（而不是Week 1），则代码如下：

Private Sub Command80_Click()
    Dim sql As String

    sql = "UPDATE Customer " & _
          "SET Week1 = NULL " & _
          "WHERE Week1 > 0"

    DoCmd.RunSQL sql
End Sub

您在代码中使用了Week 1（带空白）。

Answer 2

如果“周1”是实际的字段名称，则将其括在方括号中：

"SET [Week 1] = NULL " & _
"WHERE [Week 1] > 0"

使用按钮vba清除列

2 个答案: