Salut tout le monde,

J'ai un petit souci sous Access 2007. J'ai créé une base de données pour gérer ma vidéothèque.
Pour la gestion des informations concernant mes films, tout est ok, mais je souhaite également gérer les affiches pour chaque film. Mais là, mon code VBA ne fonctionne pas, en n'affichant pas les images souhaitées.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Chemin_AfterUpdate()
 
Dim strChemin As String
 
On Error Resume Next
If IsNull(Me!Chemin) Then
Me!imgApercu.Picture = ""
Else
' Chemin d'accès à l'image = Répertoire de base + Nom de l'image
strChemin = Me!txtRepBase & "\" & Me!Chemin
 
' Charger l'image
Me!imgApercu.Picture = strChemin
End If
 
 
End Sub
Pouvez-vous me dire s'il contient des erreurs ?

Je vous en remercie.

Pegasus