[AC-2007] Requete dans un lien hypertexte [Résolu]

[Bubulle232]

Bonjour,

Je souhaite créer un lien qui lorsque l'on clique dessus ouvre une photo.

Code :

1
2
3
4
5
6
7
 
Private Sub Étiquette95_Click()
 
uSQL = "SELECT [Reference_Fournisseur] FROM Produit where Reference= Z1 "
 
'C:\Users\Moi\Desktop\photos\uSQL.jpg
End Sub

on renseigne une réference produit dans un champs de texte z1.

Puis je recherche sa ref fournisseur en fonction de cette reference car la photo s'appelle reffournisseur.jpg

Une idée de comment je pourrais executer mon code ?

Merci d'avance

[jpcheck]

hello,

je ne comprends pas le lien (sic) entre ton titre, ton énoncé et ta question

Peux-tu être plus précis stp ?

[Bubulle232]

En fait j'ai une zone de texte où l'on saisie une référence d'un produit.Elle s'appelle z1.

A coté, je voudrais créer un lien comme un lien hypertexte ou au pire utiliser un bouton qui lorsque l'on clique dessus,ouvre la visionneuse de photo windows pour afficher mon image.

Mon image : son nom est le même que la réference fournisseur sauf pour l'extension jpeg que je dois rajouter. C'est pour cela que je fais une requete pour récuperer la reference fournisseur du produit qui vient d'être saisi.

Code :

1
2
 
 uSQL = "SELECT [Reference_Fournisseur] FROM Produit where Reference= Z1 "

Ensuite le chemin de mon image est donc:

Code :

1
2
 C:\Users\Moi\Desktop\photos\uSQL.jpeg

Mon résultat de requete.jpeg

Et donc je voudrais afficher cette image. Quel commande puis je utiliser pour ouvrir mon image avec le chemin d'image ci_dessus ?

[jpcheck]

OK,
c'est dejà plus calir ainsi

En condensant le code, on peut avoir une syntaxe proche de celle-ci:

Code :

path_image ="C:\Users\Moi\Desktop\photos\" & Dlookup("Reference_Fournisseur","Produit","Reference=" & Z1) & ".jpeg"

Attention au type de champ qu'est reference (texte ? numérique ?) et a la façon dont tu relies le resultat généré à ton image

[Bubulle232]

Merci pour votre réponse

J'ai l'erreur suivante :

Erreur d'execution '3075'
Erreur de syntaxe (opérateur absent) dans l'expression : "Reference="

[jpcheck]

Ton champs reférence est de quel type ?
Texte ? il faut ajouter les quotes ' '

[Bubulle232]

Oui il est de type texte.

J'ai modifié et il me dit erreur de syntaxe expression: attendu

Edit:
J'ai fais ça :

Code :

1
2
3
 
 
path_image = "C:\Users\Moi\Desktop\photos\" & DLookup("Reference_Fournisseur", "Produit", "Reference=z7") & ".jpeg"

Plus de message d'erreur mais il m'ouvre que le dossier photo et non pas la photo

En fait il n'execute que ça :

Code :

1
2
 
path_image = "C:\Users\Moi\Desktop\photos\"

Et il ne prend pas en considération la requete

[jpcheck]

attention,
tu sembles confondre z7 ton objet du formulaire et la chaine de caractere "z7".

Si il s'agit bien d'un Control de ton formulaire tu peux reprendre mon code et faire référence à celui-la :

Code :

path_image = "C:\Users\Moi\Desktop\photos\" & DLookup("Reference_Fournisseur", "Produit", "Reference='" & Me.Z7.value & "'") & ".jpeg"

[Bubulle232]

Merci de prendre le temps de me répondre

Donc j'ai repris votre code mais cette fois ci rien ne se passe, lorsque je clique sa efface ma référence produit de ma zone de texte z7 et c'est tout.
Je ne comprend pas du tout ce qui bloque....

[Bubulle232]

Quand je teste la requete toute seule et que je stocke le résultatdans une variable pour l'afficher , cela me retourne une erreur et me dit "propriété ou méthode non géré par cet objet(erreur 438) "

[jpcheck]

Alors commençons par le plus simple,

que t'affiche :

Code :

Msgbox DLookup("Reference_Fournisseur", "Produit", "Reference='" & Me.Z7.value & "'")

?

[Bubulle232]

erreur 94 : utilisation incorrecte de null

[jpcheck]

Ok, donc ici tu as choisi une valeur de Z7 qui ne retourne aucune valeur, est-ce le cas dans la table ?

tu peux retourner une valeur par défaut en cas de valeur Null avec la fonctio Nz()

à utiliser comme ceci :

Code :

MsgBox Nz(DLookup("Reference_Fournisseur", "Produit", "Reference='" & Me.Z7.value & "'"),"valeur par defaut")

[Bubulle232]

En effet il me retourne valeur par défaut.
Or ma reference "COU0001.RG" doit me retourner la reference fournisseur suivante : 604R

Tout mes produits ont forcement une reference et une reference fournisseur donc il n'est pas censé me retourner null

[jpcheck]

Ok,

alors peux-tu stp me dire ce qu'affiche :

Code :

Msgbox Me.Z7.value

[Bubulle232]

Il me redit : erreur 94 : utilisation incorrecte de null

Mais bonne nouvelle : j'ai trouvé ce qui cause toutes les erreurs.

Dans ma table produit, j'ai modifié ma référence "COU0001.RG" en "COU0001RG"

Et là j'ai executé ce code :

Code :

1
2
3
4
5
 
a = DLookup("[Reference_Fournisseur]", "[Produit]", _
      "[Reference]='" & [z7] & "'")
 
MsgBox a

Et là, il me retourne bien ma reference fournisseur à savoir 604R

Donc comment puis je faire pour qu'il n'y ait pas d'erreur sur le point de mes références ?car j'ai 1200 produits et je ne me vois pas les modifier un par un

Merci de votre aide

[jpcheck]

bon, c'est déjà ca, tu souhaites enelver les "." de tes valeurs ?
Un UPDATE dans ta table avec un Replace() fera l'affaire

[Bubulle232]

Bon le problème est toujours le même : mon image ne s'affiche pas....

J'ai pensé à une solution intermediaire : en sélectionnant la référence dans une liste déroulante, j'afficherai l'image correspondante dans un logo

Autrement, je ne vois pas comment faire

[jpcheck]

Peux-tu me donner le code que tu utilises pour dire à l'image de prendre le path généré stp ?
Je ne le vois pas dans notre historique de CODE

[Bubulle232]

Le code est celui_ci:

Code :

path_image = "C:\Users\Moi\Desktop\photos\" & DLookup("Reference_Fournisseur", "Produit", "Reference='" & Me.Z7.value & "'") & ".jpeg"

Actuellement j'utilise comme je l'avais dis,ma liste déroulante et mon logo avec ce code :

Code :

1
2
3
4
5
6
7
8
 
 
Private Sub Modifiable0_AfterUpdate()
 
photo.Picture = "C:\Users\clément\Desktop\photos\" & DLookup("[Reference_Fournisseur]", "[Produit]", _
      "[Reference]='" & [Modifiable0] & "'") & ".jpg"
 
End Sub

ça fonctionne bien mais si vous avez une idée pour généré la photo dans la visionneuse windows sa m'interesse