MS-Access 更新 SQL 不为空但为空（！日期和数字字段！）

Question

我的表格中有一些数字和短日期格式的控件，日期控件也被屏蔽为 mm/dd/yyyy。加载到表单中的某些字段在原始表中是空白的，因此在执行 sql 时，我本质上是在评估错误的事情，无论是检查“”还是 Null。 as '' 作为日期编号的文本失败，并且这些字段实际上不是空白的。

        strSQL4 = "UPDATE [tblDetails] SET " & _
            "[Proposed] = IIF(IsNull(" & Forms!frmEdit.txtProposed.Value & "),0," & Forms!frmEdit.txtProposed.Value & "), " & _
            "[Multi] = IIF(IsNull(" & Forms!frmEdit.txtMulitplier.Value & "),0," & Forms!frmEdit.txtMulitplier.Value & "), " & _
            "[Rational] = '" & Forms!frmEdit.txtRational.Value & "' " & _
            " WHERE [RNumber] = '" & Forms!frmEdit.cmbUpdate.Value & "'"
            Debug.Print strSQL4
        dbs.Execute strSQL4

ERROR 3075 查询表达式中函数使用的参数数量错误 'IIF(IsNull(),0,'

我也尝试输入从另一个站点建议的字段本身

        strSQL4 = "UPDATE [tblDetails] SET " & _
            "[Proposed] = IIF(" & Forms!frmEdit.txtProposed.Value & "='',[Proposed]," & Forms!frmEdit.txtProposed.Value & "), " & _
            " WHERE [RNumber] = '" & Forms!frmEdit.cmbUpdate.Value & "'"
            Debug.Print strSQL4
        dbs.Execute strSQL4

同样的错误 3075 'IIF(IsNull(),0,[ProposedHrs]'

***如果我使用 IIF(IsNull 方法而不是 =''

也会失败

我没有粘贴日期失败的示例，但想法相同，不是 null 而是空白，但似乎无法再次更新回空白甚至跳过？

在此先感谢大家。

来自尝试 Erik Von Asmuth 代码的 Update-1

Set qdf = db.CreateQueryDef("", & _
            "UPDATE [tblDetails] SET " & _
            "[Proposed] = @Proposed, " & _
            "[Multi] = @Multi, " & _
            "[Rational] = @Rational " & _
            "WHERE [RNumber] = @RNumber")

这部分全为红色，关闭通知窗口后第一个“&”高亮 编译错误： 预期：表达式

Update-2：我将更新移到第一行，它似乎正在工作。设置 qdf = db.CreateQueryDef("", "UPDATE [tblDetails] SET " & _

接下来我将在日期字段中尝试这种方法。

Update-3：当尝试使用带有 99/99/0000;0;_ 掩码的文本框进行相同的参数化时，我收到的项目未在集合中找到？我已经检查了几次拼写，一切似乎都很好。我尝试了以下三种格式，因此设置了参数 DateRcvd，任何人都可以评论这对于带有日期的文本框是否正确？

qdf.Parameters("@DateRcvd") = IIf(Nz(Forms!frmEdit.txtDateRcvd.Value) = "", 0, Forms!frmEdit.txtDateRcvd.Value)
qdf.Parameters("@DateRcvd") = IIf(IsNull(Forms!frmEdit.txtDateRcvd.Value), 0, Forms!frmEdit.txtDateRcvd.Value)
qdf.Parameters("@DateRcvd") = IIf(Forms!frmEdit.txtDateRcvd.Value = "", 0, Forms!frmEdit.txtDateRcvd.Value)

更新 4：

Dim qdf2 As DAO.QueryDef
Set db = CurrentDb
Set qdf2 = db.CreateQueryDef("", "UPDATE [tblDetails] SET " & _
             "[DateReceived] = @DateRcvd " & _
             "WHERE [RNumber] = @RNumber")
             qdf.Parameters("@DateRcvd") = IIf(Nz(Forms!frmEdit.txtDateRcvd.Value) = "", 0, Forms!frmEdit.txtDateRcvd.Value)
             qdf.Parameters("@RNumber") = Forms!frmEdit.cmbUpdate.Value
             qdf2.Execute

请注意文本框 txtDateRcvd 在文本框的属性中设置了输入掩码 99/99/0000;0;_。

Answer 1

您应该考虑空字符串，并在 VBA 而不是 SQL 中执行 IIF 语句：

        strSQL4 = "UPDATE [tblDetails] SET " & _
        "[Proposed] = " & IIF(Nz(Forms!frmEdit.txtProposed.Value) = "",0,  Forms!frmEdit.txtProposed.Value) & ", " & _
        "[Multi] = " & IIF(Nz(Forms!frmEdit.txtMulitplier.Value) = "",0, Forms!frmEdit.txtMulitplier.Value) & ", " & _
        "[Rational] = '" & Forms!frmEdit.txtRational.Value & "' " & _
        " WHERE [RNumber] = '" & Forms!frmEdit.cmbUpdate.Value & "'"

或者更好的是，正确执行并参数化整个更新，这样就不会出现此类错误或 SQL 注入。

如何正确执行的示例：

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb
Set qdf = db.CreateQueryDef("",  _
    "UPDATE [tblDetails] SET " & _
    "[Proposed] = @Proposed, " & _
    "[Multi] = @Multi, " & _
    "[Rational] = @Rational " & _
    "WHERE [RNumber] = @RNumber" 
)
qdf.Parameters("@Proposed") = IIF(Nz(Forms!frmEdit.txtProposed.Value) = "",0,  Forms!frmEdit.txtProposed.Value)
qdf.Parameters("@Multi") = IIF(Nz(Forms!frmEdit.txtMulitplier.Value) = "",0, Forms!frmEdit.txtMulitplier.Value)
qdf.Parameters("@Rational") = Forms!frmEdit.txtRational.Value
qdf.Parameters("@RNumber") = Forms!frmEdit.cmbUpdate.Value
qdf.Execute