Discussion :

[ancel17]

J'ai un petit souci avec vba :

Le but est d'ouvrir un recordset basé sur la requête SQL suivante :

Code :

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

1
2
3
4
 
SELECT *
FROM R_valeurs_fourchette
WHERE R_valeurs_fourchette.n°arrete = forms.F_arrete_client![n°arrete];

Ceci fonctionne très bien dans une requête ACCESS, mais pas dans OpenRecordset.

Pourquoi ?

Voici les différents codes tentés :

Code :

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

1
2
 
Set rst = CurrentDb.OpenRecordset("SELECT * FROM R_valeurs_fourchette WHERE R_valeurs_fourchette.n°arrete = forms.F_arrete_client![n°arrete];")

et

Code :

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

1
2
 
Set rst = CurrentDb.OpenRecordset("SELECT * FROM R_valeurs_fourchette WHERE R_valeurs_fourchette.n°arrete = Me.n°arrete;")

sans succès...
Le message d'erreur est le suivant : Trop peu de paramètre. 1 attendu.

La solution est de faire une nouvelle requête ACCESS vu que cela fonctionne dans une requête, et de basé mon OpenRecordset sur cette nouvelle requête, mais j'aimerais savoir quel est le souci et comment le résoudre !

A+

[ancel17]

En fait, créer une nouvelle requête, c'est pas la solution non plus, parce que ça ne marche pas plus !

[Heureux-oli]

c'est dans la définition de ta chaîne SQL que tu as un problème.

Il faut la définir avant

Code :

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

1
2
3
4
5
6
7
 
Dim stSQL as String
 
stSQL = "SELECT * FROM R_valeurs_fourchette " & _
"WHERE R_valeurs_fourchette.n°arrete =  " &  Forms.F_arrete_client![n°arrete] & ";"
 
set rst = currentdb.openrecordset (stSQL)

[ancel17]

Merci beaucoup !
ça fonctionne au poil...