[BASIC DB ACCESS] Percorso immagine

[nman]

Pero cosi e ancor meglio

Private Sub Form_Current()

On Error GoTo Foto0

Dim perc As String ' Il percorso della catrella delle foto
perc = "C:\Database_COSOV\Foto\"

    Me.Foto.Picture = perc & Me.IdGiocatore & ".jpg"
    
Exxit:
Exit Sub

Foto0:
    If Err.Number = 2220 Then  ' errore 2220 = manca foto
        Me.Foto.Picture = perc & "0.jpg"
    Else
        MsgBox Err.Description & "    n° " & Err.Number
    End If
    Resume Exxit
End Sub