Erreur de Null
Le
Ayrton
Bonjour à tous ,
Voilà, j'ai une petite appli qui fonctionne bien et qui m'affiche des images
stokées dans un autre repertoire ( qui n'est pas dans ma base ).
Tout se passe bien sauf que quand j'arrive à la dernière image affichée et
que je vaux passer à un nouvel enregistrement, un message d'erreur arrive e
nme disant : "Erreur d'execution 94 ; utilisation incorrecte de Null"
Voici mon code dans Eévènement du formulaire :
Private Sub Form_Current()
Dim strChemin As String
strChemin = DLookup("[Chemin]", "tblParametres")
On Error Resume Next
If IsNull(Me!Chemin) Then
Me!ImgApercu.Picture = ""
Else
' Charger l'image
Me!ImgApercu.Picture = strChemin & "\" & Me!NomImage
End If
End Sub
Quand je vais sur OK de l'erreur de deboguage, ma ligne :strChemin =
DLookup("[Chemin]", "tblParametres") est surlignée de jaune.
Franchement , je ne trouve pas où peut être l'erreur.
Merci de votre aide .
Bonne soirée à vous tous
--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer
Voilà, j'ai une petite appli qui fonctionne bien et qui m'affiche des images
stokées dans un autre repertoire ( qui n'est pas dans ma base ).
Tout se passe bien sauf que quand j'arrive à la dernière image affichée et
que je vaux passer à un nouvel enregistrement, un message d'erreur arrive e
nme disant : "Erreur d'execution 94 ; utilisation incorrecte de Null"
Voici mon code dans Eévènement du formulaire :
Private Sub Form_Current()
Dim strChemin As String
strChemin = DLookup("[Chemin]", "tblParametres")
On Error Resume Next
If IsNull(Me!Chemin) Then
Me!ImgApercu.Picture = ""
Else
' Charger l'image
Me!ImgApercu.Picture = strChemin & "\" & Me!NomImage
End If
End Sub
Quand je vais sur OK de l'erreur de deboguage, ma ligne :strChemin =
DLookup("[Chemin]", "tblParametres") est surlignée de jaune.
Franchement , je ne trouve pas où peut être l'erreur.
Merci de votre aide .
Bonne soirée à vous tous
--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer
Poser une question
Il faut que tu corriges ton code au niveau de :
strChemin = DLookup("[Chemin]", "tblParametres")
car si Dlookup ne trouve pas il retourne Null et il n'est pas possible
d'affecter une valeur Null à une variable définie comme String.
Donc tu devrais mettre
If Not isnull(DLookup("[Chemin]", "tblParametres")) then
Strchemin= DLookup("[Chemin]", "tblParametres")
Me!ImgApercu.Picture = strChemin & "" & Me!NomImage
else
Me!ImgApercu.Picture = ""
End If
et tu supprimes:
strChemin = DLookup("[Chemin]", "tblParametres")
On Error Resume Next
If IsNull(Me!Chemin) Then
Me!ImgApercu.Picture = ""
Else
' Charger l'image
Me!ImgApercu.Picture = strChemin & "" & Me!NomImage
End If
ps1: Autre solution, tu ne types pas strChemin car seule une variable de
type Variant peut recevoir une valeur Null. Dans ce cas là, tu ne changes
rien sauf que le On error n'est plus nécesssaire.
ps2:
Teste en 1er le IsNull(Me!Chemin), et en fonction tu charges l'image.
Rem:C'est désordonné mais je suis parti sur l'erreur sans lire tout le
post. Ce qui donne:
If isnull(me!Chemin) then
Me!ImgApercu.Picture = ""
else
Me!ImgApercu.Picture = DLookup("[Chemin]", "tblParametres") & "" &
Me!NomImage
end if
la déclaration et l'affectation à strChemin deviennent inutiles
A+
Eric
"Ayrton" news::
Ce Dimanche 11 Juillet... Eric... clavier
Mercic beaucoup pour ce coup de main ; ça marche super bien ;-))
Encore merci et bonne soirée
--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer