Discussion :

[glooping]

Je souhaite que dans un formulaire suite à un changement dans une zone de liste déroulante il affiche une valeur dans le formulaire, valeur qu'il va chercher dans une table faite pour cela mais il me donne un message
"Erreur de compilation : Attendu : fin d'instruction"

Code :

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

1
2
 
Set rstS = CurrentDb.OpenRercordset(Select " & [Modifiable6] & " as cquifau from [Tarifs] where [Tarifs]![Type] = "Piècesupp";

J'ai copié une formule que j'avais faite pour une autre zone de texte et il me met ce message : j'ai essayé en enlevant ou rajoutant des parenthèses ou en enlevant le point virgule de fin mais rien n'y fait.
Que faire?
Merci

[Jean-Philippe André]

Bonjour déjà

essaye avec cette syntaxe :

Code :

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

Set rstS = CurrentDb.OpenRecordset("Select " & [Modifiable6] & " as cquifau from [Tarifs] where [Tarifs]![Type] = 'Piècesupp';")

[glooping]

Oui, bonjour!
Le message qu'il me met maintenant est le suivant :
"Erreur d'éxécution '3625':
Elément non trouvé dans cette collection."
[Edit]
J'ai trouvé finalement après le changement c'était du à un problème de variable!
[/Edit]
[re-Edit]
J'ai copié ma formule où je mets un champ précis cela donne :

Code :

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

1
2
 
Set Rst = CurrentDb.OpenRecordset("Select 'Gaz' as cquifaut From Tarifs where [Tarifs]![Type]='PieceSupp';")

Mais le résultat donne "Gaz" autrement dit il me prend l'entête de colonne de ma table...
[/Re-Edit]
Que faire?

[fgiambelluco]

Bonjour
A priori un problème de transcription de la réponse faite par jpcheck
Essaye :

Code :

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

Set Rst = CurrentDb.OpenRecordset("Select [Gaz] as cquifaut From Tarifs where [Tarifs]![Type]='PieceSupp';")

[glooping]

Il me mets :
"Erreur d'éxécution '3061':
Trop peu de paramètres. 1 attendu."

[Jean-Philippe André]

salut,
et en utilisant le . au lieu du ! :

Code :

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

Set Rst = CurrentDb.OpenRecordset("Select [Gaz] as cquifaut From Tarifs where [Tarifs].[Type]='PieceSupp';")