Invalid use of NULL

[rozzay]

Hi I am trying to load data into textbox from Microsoft Access in one of my fields they are allowed to have nothing but I can not seem to load the records that have a field that is blank, I receive a message saying:

Run-time error "94"
Invalid use of NULL.

Below is my code:

Private Sub cboDate_Click()
rsLogAccess.Open
If Not rsLogAccess.BOF Then
rsLogAccess.MoveFirst
End If
rsLogAccess.Find "[time] = " & cboDate.Text
If Not rsLogAccess.EOF Then
txtVEDPO.Text = rsLogAccess("edpo&quot
txtVLoad.Text = rsLogAccess("load&quot
txtVXMIT.Text = rsLogAccess("ordernet&quot
txtVIinger.Text = rsLogAccess("iingout&quot
txtVPOs.Text = rsLogAccess("po&quot
txtVINVs.Text = rsLogAccess("inv&quot
txtVComment.Text = rsLogAccess("comment&quot
End If
txtVMF.Text = rsLogAccess("mf&quot
txtVProPOs.Text = rsLogAccess("webP_pos&quot
txtVProVen.Text = rsLogAccess("webP_Ven&quot
txtVTestPOs.Text = rsLogAccess("webS_Pos&quot
txtVTestVen.Text = rsLogAccess("webS_ven&quot
Else
MsgBox "Error unable to load data", vbOKOnly
End If
rsLogAccess.Close
End Sub


thanks

 

[bjd4jc]

See the other post you made

 

[PowerChamp]

Hi

Here is you solution:
simply add a blank string when you assing a recordset field value to a text box or any control

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Private Sub cboDate_Click()
rsLogAccess.Open
If Not rsLogAccess.BOF Then
rsLogAccess.MoveFirst
End If
rsLogAccess.Find "[time] = " & cboDate.Text

If Not rsLogAccess.EOF Then
txtVEDPO.Text = rsLogAccess("edpo&quot & ""
txtVLoad.Text = rsLogAccess("load&quot & ""
txtVXMIT.Text = rsLogAccess("ordernet&quot & ""
txtVIinger.Text = rsLogAccess("iingout&quot & ""
txtVPOs.Text = rsLogAccess("po&quot & ""
txtVINVs.Text = rsLogAccess("inv&quot & ""
txtVComment.Text = rsLogAccess("comment&quot & ""
End If
txtVMF.Text = rsLogAccess("mf&quot & ""
txtVProPOs.Text = rsLogAccess("webP_pos&quot & ""
txtVProVen.Text = rsLogAccess("webP_Ven&quot & ""
txtVTestPOs.Text = rsLogAccess("webS_Pos&quot & ""
txtVTestVen.Text = rsLogAccess("webS_ven&quot & ""
Else
MsgBox "Error unable to load data", vbOKOnly
End If
rsLogAccess.Close
End Sub