Having problems with the "Null" (1 Viewer)

Jass7869

Registered User.
Local time
Yesterday, 17:25
Joined
Aug 12, 2014
Messages
96
Hello,

I have a code that when I delete my entry on the form it gives me

Run-time error '94: Invalid use of Null

Here is my code

Private Sub Remarks1_AfterUpdate()
Dim rst As DAO.Recordset
Dim strRemarks As String

strRemarks = Me.Remarks1
If strRemarks = "" Then Exit Sub

Set rst = CurrentDb.OpenRecordset("Final_Table")
'strRemarks = Me.Remarks1
Do
rst.Edit
If Nz(rst![BC1Chng1]) <> "" Then
rst![Remarks1] = strRemarks
Else
rst![Remarks1] = Null
End If
rst.Update
rst.MoveNext
Loop Until rst.EOF

End Sub
 

pbaldy

Wino Moderator
Staff member
Local time
Yesterday, 17:25
Joined
Aug 30, 2003
Messages
36,127
A String variable can't hold Null. Use the Nz() function when setting it.
 

Jass7869

Registered User.
Local time
Yesterday, 17:25
Joined
Aug 12, 2014
Messages
96
How do I do that with the code I have??
 

pbaldy

Wino Moderator
Staff member
Local time
Yesterday, 17:25
Joined
Aug 30, 2003
Messages
36,127
strRemarks = Nz(Me.Remarks1, "")
 

Jass7869

Registered User.
Local time
Yesterday, 17:25
Joined
Aug 12, 2014
Messages
96
What about for the a combo box..same thing???
 

pbaldy

Wino Moderator
Staff member
Local time
Yesterday, 17:25
Joined
Aug 30, 2003
Messages
36,127
Nz() can be used anywhere to replace Null values.
 

Users who are viewing this thread

Top Bottom