path for the picture

[white_flag]

Hello

I have an list box and I put the following code in AFTER UPDATE event
In the list are some dates from one table. Everything goes fine, except the path for the picture.
wen I have an error on the path of the picture, to go an error_handler. if the path is null then to insert an picture with "noImage.jpg". If it is an error (the picture was deleted or something else) then to insert again the path of NoImage.jpg
so this is my partial working code

Private Sub List36_AfterUpdate()
On Error GoTo PictureNotAvailable
   
   Dim rs As DAO.Recordset
   If Not IsNull(Me.List36) Then
        If Me.Dirty Then
            Me.Dirty = False
        End If

        Set rs = Me.RecordsetClone
        rs.FindFirst "[imagineID] = " & Me.List36
        If rs.NoMatch Then
            MsgBox "Not found: filtered?"
        Else

            Me.Bookmark = rs.Bookmark
        End If
        Set rs = Nothing
    End If
    Me.Image0.Picture = Me.List36.Column(3)

PictureNotAvailable:
    Me.Image0.Picture = Application.CurrentProject.path & "\img\NoImage.jpg" 'The imagine is displayed
    If Me![poza] = Null Then Me![poza] = Application.CurrentProject.path & "\img\NoImage.jpg" ' Null = Null so True but thas not put the path in the table (stored)
    
End Sub

[RuralGuy]

How do you get out of this procedure without going through the error code?

[goodguy]

What RuralGuy means is that you need to explicitly get out of the proc before the label position by including 'Exit Sub'.

[white_flag]

correct.. thx for correction [exit sub]

but the

If Me![poza] = Null Then Me![poza] = Application.CurrentProject.path & "\img\NoImage.jpg"

it is not working

[goodguy]

Place a breakpoint at that line and debug - check to see if the path is correct and valid, i.e. if there is a picture file with that name and extension at that position.

[white_flag]

the path for picture is correct.
if I puted like this is, It replace all the pictures with an noPicture.jpg

If Me![poza] = Null Then 
'nothing
else
Me![poza] = Application.CurrentProject.path & "\img\NoImage.jpg"
end if

so I do not understand why the condition of true it is not working

If Me![poza] = Null Then Me![poza] = Application.CurrentProject.path & "\img\NoImage.jpg"

[RuralGuy]

*Nothing* is ever equal to Null, including Null. Try using the IsNull() function.

[white_flag]

great ..thx mate