Solved Invalid Use of Null Error 94 (1 Viewer)

[PatAccess]

Hello Guys,
Why am I getting an error with this code? Some of the records do not have an image file path. How can I handle this?

    Dim strImageSQL As String
    Dim strImage As String
    strImageSQL = "SELECT [Image] FROM QrySuppliesDetails WHERE SupplyDetailID=" & Me.lstDetails.Column(0) & ""
    strImage = CurrentDb.OpenRecordset(strImageSQL).Fields(0).Value
    If IsNull(strImage) Then
        Me.Image38.Picture = ""
    Else
        Me.Image38.Picture = strImage
    End If

Thank you

 

[theDBguy]

Try,

Dim strImage As Variant

 

[Isaac]

Another possibility is that

Me.lstDetails.Column(0)

.... resolves to Null, at run-time. Check first:

If Me.lstDetails.ItemsSelected.Count>0 then
...Code Continues
End If

Or

If Not IsNull(Me.lstDetails) then
...Code Continues
End If

 

[PatAccess]

Thank you Guys. declaring my variable as variant and pre-checking worked.

 

[Isaac]

Thank you Guys. declaring my variable as variant and pre-checking worked.

Glad you got it working!

 

[theDBguy]

Thank you Guys. declaring my variable as variant and pre-checking worked.

Good luck with your project.

 

[arnelgp]

without Any pre-checking, you can modify your code:

     Me.Image38.Picture = DLookup("Image","QrySuppliesDetails","SupplyDetailID=" & Nz(Me.lstDetails, -1)) & ""

much compact.