fejl ved load piture gå videre til næste

Private Sub LoadCover ()
  On Local Error Resume Next

  baccover.Picture = LoadPicture(rs("frontcover"))
  If Not Err Then Exit Sub

  baccover.Picture = LoadPicture(rs("baccover"))
  If Not Err Then Exit Sub

  baccover.Picture = LoadPicture(rs("dvdcover"))
  If Not Err Then Exit Sub
End Sub

Er umiddelbart det nemmeste jeg kan komme på ... ud over selvfølgeligt at checke for om filen eksisterer med

If Dir$(Rs("frontcover")) Then .Picture = .. : Exit Sub

eller endnu bedre hvis man kan checke om feltet er tomt ?

det virker ikke.

Det kan enhver jo sige ..

Hvad er det de rikke virker ? .. hvad er det du vil?
Hvad indeholder rs("dvdcover") ? og "frontcover" osv.

Private Sub LoadCover()
  On Error GoTo ErrH

  Dim fejl As Boolean
 
  fejl = False

  baccover.Picture = LoadPicture(rs("frontcover"))
  If Not fejl Then Exit Sub
  fejl = False
 
  baccover.Picture = LoadPicture(rs("baccover"))
  If Not fejl Then Exit Sub
  fejl = False

  baccover.Picture = LoadPicture(rs("dvdcover"))
  If Not fejl Then Exit Sub
'  fejl = False
 
  MsgBox "Der var fejl under indlæsning ved alle forsøg!"

  Exit Sub
ErrH:
  fejl = True
  Err.Clear
  Resume Next
End Sub

jobb: Fundet ud af noget !?

Undskyld jeg har været så længe om at svare men jeg har fundet ud af det jeg deler point mellem jer takker for indlægende.

Alright ..