ms-access - 使用权。如果记录为空，我该如何更改？

Question

我有这张桌子和这段代码

坎波10。坎波12

1 01012018

2 01012018

1 05012018

2 -

1 10012018

2 10012018

strSQL = "SELECT * from MESERIFERIMENTO;"
rs.Open strSQL, cnn, 3, 3
Do While Not rs.EOF
If rs("Campo10") = 1 Then
campo4 = rs("Campo10")
campo5 = rs("Campo12")
End If
If rs("Campo10") = "2" And IsNull(rs.Fields("Campo12").Value) Then
MsgBox "Has nulls"
strSQL = "Update MESERIFERIMENTO SET [Campo12] ='" & campo5 & "' ;"
DoCmd.RunSQL strSQL
End If
rs.MoveNext
Loop
rs.Close

谢谢

标签： ms-access

Answer 1

如果不期望 0，您可以在查询中使用 Nz 函数将空值转换为 0。

strSQL = "SELECT Campo10, Nz(Campo12,0) from MESERIFERIMENTO;"
rs.Open strSQL, cnn, 3, 3
Do While Not rs.EOF
  If rs("Campo10") = 1 Then
    campo4 = rs("Campo10")
    campo5 = rs("Campo12")
  End If
  If rs("Campo10") = "2" And rs("Campo12")=0 Then
    MsgBox "Has nulls"
    strSQL = "Update MESERIFERIMENTO SET [Campo12] ='" & campo5 & "' ;"
    DoCmd.RunSQL strSQL
  End If
  rs.MoveNext
Loop
rs.Close