Code sous Access2007

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:

---

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