Discussion :

[chuspyto]

bonjour,

une petite question peut on remplacer un dlookup par un recordset sachant que comme critere je n'ai que réfproduit?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nomduproduit = DLookup("[NomProduit]", "Produits", "[réfProduit]= RéfProduit.Value")

[Pepito78]

On peut ouvrir un Recordset avec les mêmes critères que DLookup

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim recX as recordsset
Set rec = currentdb.openrecordset("SELECT NomProduit FROM Produits WHERE RéfProduit=" & cstr(RéfProduit.Value),dbOpenDynaset)

Comme je vous l'avais signalé sur l'autre fil, il me semble que que la syntaxe de votre DLookUp est fausse. "[réfProduit]= RéfProduit.Value" ne pointe pas vers la valeur du champ de formulaire RefProduit

Cordialement,

[chuspyto]

bonjour,
ma lignene pose pas de probleme,juste que je préfère avoir une autre option le cas écheant.
j'ai essayé l'option du recordset mais pas de résultat positif j'ai un probleme avec cette partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cstr(RéfProduit.Value)

merci

[Pepito78]

Si RéfProduit ou RefProduit est un champ de votre formulaire ou vous saisissez le code produit,et que le code est bien exécuté depuis votre formulaire, votre recordset devrait contenir un champ (NomProduit) et une ligne.

Maintenant, ce que vous voulez faire de ce recordset...

[chuspyto]

je ne saisi pas la valeur du réfproduit dans mon formulaire,qand je vais chercher le nom du produit le champ réfproduit se remplit automatiquement.

[Pepito78]

je ne saisi pas la valeur du réfproduit dans mon formulaire,qand je vais chercher le nom du produit le champ réfproduit se remplit automatiquement.

Bon ok, le RéfProduit est bien rempli. Quel est le problème avec cstr(RefProduit.value) ?

[chuspyto]

bonjour,

il me donne une erreur disant "qualificateur incorrect"

[Pepito78]

Depuis quel procédure appelez vous nomduproduit = DLookup.... ?

[chuspyto]

mon dlookup se trouve dans une procedure public fonction

[Flyoss]

Bonjour Chuspyto, Pepito,
Je me permet de m'immiscer dans cette discussion afin de signaler une petite erreur il me semble.

Soit la référence est de type string (ce qui devrait normalement être le cas, on évite les références numérique généralement) et dans ce cas il ne faut pas oublier les quotes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set rec = currentdb.openrecordset("SELECT NomProduit FROM Produits WHERE RéfProduit='" & cstr(RéfProduit.Value) & "'" ,dbOpenDynaset) 
 
 
 
DLookup("[NomProduit]", "Produits", "[réfProduit]= '" & cstr(RéfProduit).Value & "'")

Soit les références sont numériques, et dans ce cas on enlève la fonction cstr(), voir même la remplacer par la fonction val()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set rec = currentdb.openrecordset("SELECT NomProduit FROM Produits WHERE RéfProduit=" & val(RéfProduit.Value)  ,dbOpenDynaset) 
 
 
 
DLookup("[NomProduit]", "Produits", "[réfProduit]= " & val(RéfProduit).Value)

Personnellement même en cas de chaine j'essaye de dimensionner correctement mes champs pour avoir des strings dès le départ et je n'ai donc pas besoin de la fonction cstr (Peut-être est-ce un tort mais bon....)

[chuspyto]

en prenant cette option car j'ai bien une valeur numérique j'ai toujours la meme erreur(qualificateur incorrect)quelque soit la ligne!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set rec = currentdb.openrecordset("SELECT NomProduit FROM Produits WHERE RéfProduit=" & val(RéfProduit.Value)  ,dbOpenDynaset) 
 
 
 
DLookup("[NomProduit]", "Produits", "[réfProduit]= " & val(RéfProduit).Value)

[Flyoss]

Et si on corrige mon erreur de frappe (ou de copier-coller, va savoir)?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DLookup("[NomProduit]", "Produits", "[réfProduit]= " & val(RéfProduit.Value))

(la parenthèse)

[chuspyto]

désolé cela ne marche pas non plus (qualificateur incorrect)
par contre cela fonctionne.
est ce que cela peut etre stable??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Nomduproduit = DLookup("[NomProduit]", "Produits", "[réfProduit]= Val(RéfProduit.Value)")

[Flyoss]

Pour tout te dire je ne comprend même pas comment cela peut fonctionner ....

C'est quoi le RéfProduit du RéfProduit.Value ?
C'est pas un contrôle formulaire?

[chuspyto]

le réfproduit est une zone texte qui se trouve sur un formulaire ,et dans la table il a une valeur auto numerique .sa valeur est rattachée automatiquement des creation d'un nouveau produit,et s'affiche également automatiquement des saisie du produit concerné.

[Pepito78]

Pour tout te dire je ne comprend même pas comment cela peut fonctionner ....

Je crois que cela peut fonctionner car dans l'expression "[réfProduit]= Val(RéfProduit.Value)", Access interprète le RefProduit.Value comme un champ de table. En gros RefProduit=RefProduit, cela "fonctionne" car c'est toujours vrai , mais est-ce que cela "fonctionne" au point de toujours donner le résultat escompté.

Tant qu'on y est, quand l'erreur se produit, vous pouvez taper dans la fenêtre de Debogage (CTRL+G)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ? RéfProduit.Value

et nous communiquer le résultat.

De plus, on ne sait toujours pas où est cette fonction. Il se peut qu'elle soit dans un sous formulaire X et que le textbox RéfValue soit dans le formulaire principal Y, ou même qu'elle soit dans un module indépendant.

Comment cette fonction est appelée ?
Dans quel évènement ?
A quel moment (création d'enregistrement, modification...)
Est-ce qu'il existe des formulaires / sous-formulaires ?

Quel est le but final recherché avec le plus de précisions possibles (description des fenêtres, est-ce que cela doit afficher quelque chose,...)!

PS : La question sur le but final vous a déjà été posé http://www.developpez.net/forums/d12...lecture-table/