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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour Ayrton
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" écrivait news::
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
Bonjour Ayrton
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
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
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" écrivait news::
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
Bonjour Eric,
Ce Dimanche 11 Juillet... Eric... Tapottait sur son clavier
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
Mercic beaucoup pour ce coup de main ; ça marche super bien ;-))
la déclaration et l'affectation à strChemin deviennent inutiles
Je le saurai pour une prochaine fois !
Encore merci et bonne soirée
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
"Ayrton" écrivait news::
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
Bonjour Eric,
Ce Dimanche 11 Juillet... Eric... <f_framZZ@hotmail.com> Tapottait sur son
clavier
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
Mercic beaucoup pour ce coup de main ; ça marche super bien ;-))
la déclaration et l'affectation à strChemin deviennent inutiles
Je le saurai pour une prochaine fois !
Encore merci et bonne soirée
--
@+
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
Ce Dimanche 11 Juillet... Eric... Tapottait sur son clavier
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
Mercic beaucoup pour ce coup de main ; ça marche super bien ;-))
la déclaration et l'affectation à strChemin deviennent inutiles
Je le saurai pour une prochaine fois !
Encore merci et bonne soirée
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
"Ayrton" écrivait news::
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
