Erreur sans message d'erreur

Le
moromain
Bonjour,

J'utilise la procédure suivante pour afficher une image en fonction de
son chemin d'accès sur le disque.
Si le chemin n'est pas valide, j'ai une erreur (2220) et AfficheCarteV
= faux.
L'image ne s'affiche pas.
Or, quand le chemin est valide, une erreur est détectée. J'ai testé en
supprimant le "On error" et le "Erreur:" pour connaître l'erreur.
Et dans ce cas, je n'ai pas d'erreur et l'image s'affiche.
J'ai rajouté un MsgBox (Err.Description) : la boîte de dialogue est
vide.

Private Sub AfficheCarte()
Dim AfficheCarteV As Boolean
On Error GoTo Erreur
AfficheCarteV = True
Forms!F_MG_1_2.Form!sF_MG_1_20.Form!.ImageCarte.Picture = Forms!
F_MG_1_2.Form!sF_MG_1_20.Form!.TextCheminCarte.Value
Erreur: AfficheCarteV = False
Me.Form!sF_MG_1_20.Form!.ImageCarte.Visible = AfficheCarteV
End Sub

Quelqu'un pourrait-il m'expliquer ce qui se passe ?
J'ai compacté la base. J'ai fermé et rouvert Access.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thierry (ze Titi)
Le #6329631
Hello moromain !

Private Sub AfficheCarte()
Dim AfficheCarteV As Boolean
On Error GoTo Erreur
AfficheCarteV = True
Forms!F_MG_1_2.Form!sF_MG_1_20.Form!.ImageCarte.Picture = Forms!F_MG_1_2.Form!sF_MG_1_20.Form!.TextCheminCarte.Value
Exit Sub
Erreur:
AfficheCarteV = False
Me.Form!sF_MG_1_20.Form!.ImageCarte.Visible = AfficheCarteV
End Sub

J'ai juste rajouté le "Exit Sub" avant la procédure d'erreur, je ne serai pas surpris que ça soit juste cela qui t'envoyait dans le mur...
Comprends-tu pourquoi ?

En ce jour mémorable du jeudi 08/11/2007, tu as émis l'idée suivante:
Private Sub AfficheCarte()
Dim AfficheCarteV As Boolean
On Error GoTo Erreur
AfficheCarteV = True
Forms!F_MG_1_2.Form!sF_MG_1_20.Form!.ImageCarte.Picture = Forms!
F_MG_1_2.Form!sF_MG_1_20.Form!.TextCheminCarte.Value
Erreur: AfficheCarteV = False
Me.Form!sF_MG_1_20.Form!.ImageCarte.Visible = AfficheCarteV
End Sub


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info

Publicité
Poster une réponse
Anonyme