SidCharming
Technical User
I have...
Dim rsCase As New ADODB.Recordset
Dim dFollowUpDate as Date
strSql="SELECT Compliance_SiteCodeUS, Compliance_RecordNo, Compliance_FU6MFUDate FROM tblCompliance"
rsCase.Open strSql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do Until rsCase.EOF
dFollowUpDate = vbNull
rsCase("Compliance_FU6MFUDate") = dFollowUpDate
rsCase.Update
Loop
I want tblCase to be updated with a Null value for the date above, but it does not over write the current value that is already there with a null.
How can I make the value for Compliance_FU6MFUDate become NULL?
I tried:
rsCase("Compliance_FU6MFUDate") = Null
rsCase("Compliance_FU6MFUDate") is null
rsCase("Compliance_FU6MFUDate") = ""
but I end up with the value not being changed in the table...
Sid from Minnesota
Dim rsCase As New ADODB.Recordset
Dim dFollowUpDate as Date
strSql="SELECT Compliance_SiteCodeUS, Compliance_RecordNo, Compliance_FU6MFUDate FROM tblCompliance"
rsCase.Open strSql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do Until rsCase.EOF
dFollowUpDate = vbNull
rsCase("Compliance_FU6MFUDate") = dFollowUpDate
rsCase.Update
Loop
I want tblCase to be updated with a Null value for the date above, but it does not over write the current value that is already there with a null.
How can I make the value for Compliance_FU6MFUDate become NULL?
I tried:
rsCase("Compliance_FU6MFUDate") = Null
rsCase("Compliance_FU6MFUDate") is null
rsCase("Compliance_FU6MFUDate") = ""
but I end up with the value not being changed in the table...
Sid from Minnesota