Error Trap

[duplincomputers]

this is code i am useing in my program to load a picture if for some reason the picture is deleted or moved the program will give a error and close down what i need for this to do is have a error trap where if the picture is deleted or moved it will show another picture in the picture box

Private Sub Form_Load()
  Close
  arb = 0
  'cd2.Filter = "Image Files (*.*)|*.*"
Filename$ = cd2.Filename
txtpictures.Text = Filename$
Recordlen = Len(person)
Filenum = FreeFile
Open "c:\program files\bondsman\info.dat" For Random As Filenum Len = Recordlen
If carryover > 0 Then Currentrecord = carryover Else Currentrecord = 1
Lastrecord = FileLen("c:\program files\bondsman\info.dat") / Recordlen
If Lastrecord = 0 Then
Lastrecord = 1
End If
ShowCurrentrecord
frmPicture.open.Picture = LoadPicture(txtpictures.Text)
End Sub

thank you for any help you can give

[dglienna]

I'm not sure what you are doing when you're reading the file, but, here is a standard Error Trap. Sorry if I couldn't test it. It was from memory.

Option Explicit

Private Sub Form_Load()
  On Error GoTo ErrorSub
    ShowCurrentrecord
    frmPicture.open.Picture = LoadPicture(txtpictures.Text)
    Exit Sub ' Exits if NO ERROR
ErrorSub:
    frmPicture.open.Picture = "default"
    On Error GoTo 0
End Sub

[smackdab2]

Instead of using an error trap for this I think you would be better off checking to see if the file exists before trying to open it. Then, check to see if the backup file exists before you open it. If you can't open either, display a message somewhere that the file was unavailable.