Dim rs As DAO.Recordset
Dim dbs As Database
Dim Commune, Code As String
Set dbs =3D CurrentDb
Code =3D "SELECT first(CommuneStation) FROM R_ChercheCommune"
Set rs =3D dbs.OpenRecordset(Code)
Et l'erreur : [Erreur d'ex=E9cution '3061' : Trop peu de param=E8tres. 1
attendu]
Le code VBA de "Code" est copi=E9 depuis une requ=EAte cr=E9=E9e avec
l'assistant.
Je vous fourni le SQL de R_ChercheCommune (au cas o=F9 !) :
SELECT R_ChoixStation.NomCommune AS CommuneStation,
R_ChoixStation.Riviere
FROM R_ChoixStation
GROUP BY R_ChoixStation.NomCommune, R_ChoixStation.Riviere
HAVING (((R_ChoixStation.Riviere)=3D[choixriviere].[value]))
ORDER BY R_ChoixStation.NomCommune;
J'ai test=E9 les r=E9ponses propos=E9es sur le forum, suite au m=EAme messa=
ge
d'erreur. Sans succ=E8s.
Des id=E9es ?
Merci !
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
Thierry (ze Titi)
Bonjour moromain !
As-tu essayé de simplement changer le nom de ta variable ? Je me demande si Code n'est pas un mot réservé du VBA (mais ça demande confirmation).
Message du samedi 27/10/2007
Bonjour,
J'ai le code VBA suivant :
Dim rs As DAO.Recordset Dim dbs As Database Dim Commune, Code As String Set dbs = CurrentDb Code = "SELECT first(CommuneStation) FROM R_ChercheCommune" Set rs = dbs.OpenRecordset(Code)
Et l'erreur : [Erreur d'exécution '3061' : Trop peu de paramètres. 1 attendu]
Le code VBA de "Code" est copié depuis une requête créée avec l'assistant. Je vous fourni le SQL de R_ChercheCommune (au cas où !) : SELECT R_ChoixStation.NomCommune AS CommuneStation, R_ChoixStation.Riviere FROM R_ChoixStation GROUP BY R_ChoixStation.NomCommune, R_ChoixStation.Riviere HAVING (((R_ChoixStation.Riviere)=[choixriviere].[value])) ORDER BY R_ChoixStation.NomCommune;
J'ai testé les réponses proposées sur le forum, suite au même message d'erreur. Sans succès. Des idées ? Merci !
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info
Bonjour moromain !
As-tu essayé de simplement changer le nom de ta variable ? Je me
demande si Code n'est pas un mot réservé du VBA (mais ça demande
confirmation).
Message du samedi 27/10/2007
Bonjour,
J'ai le code VBA suivant :
Dim rs As DAO.Recordset
Dim dbs As Database
Dim Commune, Code As String
Set dbs = CurrentDb
Code = "SELECT first(CommuneStation) FROM R_ChercheCommune"
Set rs = dbs.OpenRecordset(Code)
Et l'erreur : [Erreur d'exécution '3061' : Trop peu de paramètres. 1
attendu]
Le code VBA de "Code" est copié depuis une requête créée avec
l'assistant.
Je vous fourni le SQL de R_ChercheCommune (au cas où !) :
SELECT R_ChoixStation.NomCommune AS CommuneStation,
R_ChoixStation.Riviere
FROM R_ChoixStation
GROUP BY R_ChoixStation.NomCommune, R_ChoixStation.Riviere
HAVING (((R_ChoixStation.Riviere)=[choixriviere].[value]))
ORDER BY R_ChoixStation.NomCommune;
J'ai testé les réponses proposées sur le forum, suite au même message
d'erreur. Sans succès.
Des idées ?
Merci !
--
Cordialement,
Thierry
Tout pour réussir avec Access :
http://www.mpfa.info
As-tu essayé de simplement changer le nom de ta variable ? Je me demande si Code n'est pas un mot réservé du VBA (mais ça demande confirmation).
Message du samedi 27/10/2007
Bonjour,
J'ai le code VBA suivant :
Dim rs As DAO.Recordset Dim dbs As Database Dim Commune, Code As String Set dbs = CurrentDb Code = "SELECT first(CommuneStation) FROM R_ChercheCommune" Set rs = dbs.OpenRecordset(Code)
Et l'erreur : [Erreur d'exécution '3061' : Trop peu de paramètres. 1 attendu]
Le code VBA de "Code" est copié depuis une requête créée avec l'assistant. Je vous fourni le SQL de R_ChercheCommune (au cas où !) : SELECT R_ChoixStation.NomCommune AS CommuneStation, R_ChoixStation.Riviere FROM R_ChoixStation GROUP BY R_ChoixStation.NomCommune, R_ChoixStation.Riviere HAVING (((R_ChoixStation.Riviere)=[choixriviere].[value])) ORDER BY R_ChoixStation.NomCommune;
J'ai testé les réponses proposées sur le forum, suite au même message d'erreur. Sans succès. Des idées ? Merci !
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info
Je n'avais pas détaillé ta requête, c'est là que se situe le problème !
SELECT R_ChoixStation.NomCommune AS CommuneStation, R_ChoixStation.Riviere FROM R_ChoixStation GROUP BY R_ChoixStation.NomCommune, R_ChoixStation.Riviere HAVING (((R_ChoixStation.Riviere)=[choixriviere].[value])) ORDER BY R_ChoixStation.NomCommune;
[choixriviere].[value] seul ne donnera rien, il te faut spécifier le formulaire sur lequel se situe le contrôle en question.
En ce jour mémorable du lundi 29/10/2007, tu as émis l'idée suivante:
J'ai essayé, mais l'erreur reste la même.
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info
Je n'avais pas détaillé ta requête, c'est là que se situe le problème !
SELECT R_ChoixStation.NomCommune AS CommuneStation,
R_ChoixStation.Riviere
FROM R_ChoixStation
GROUP BY R_ChoixStation.NomCommune, R_ChoixStation.Riviere
HAVING (((R_ChoixStation.Riviere)=[choixriviere].[value]))
ORDER BY R_ChoixStation.NomCommune;
[choixriviere].[value] seul ne donnera rien, il te faut spécifier le
formulaire sur lequel se situe le contrôle en question.
En ce jour mémorable du lundi 29/10/2007, tu as émis l'idée suivante:
J'ai essayé, mais l'erreur reste la même.
--
Cordialement,
Thierry
Tout pour réussir avec Access :
http://www.mpfa.info
Je n'avais pas détaillé ta requête, c'est là que se situe le problème !
SELECT R_ChoixStation.NomCommune AS CommuneStation, R_ChoixStation.Riviere FROM R_ChoixStation GROUP BY R_ChoixStation.NomCommune, R_ChoixStation.Riviere HAVING (((R_ChoixStation.Riviere)=[choixriviere].[value])) ORDER BY R_ChoixStation.NomCommune;
[choixriviere].[value] seul ne donnera rien, il te faut spécifier le formulaire sur lequel se situe le contrôle en question.
En ce jour mémorable du lundi 29/10/2007, tu as émis l'idée suivante:
J'ai essayé, mais l'erreur reste la même.
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info
moromain
A la place de [choixriviere].[value], j'ai utilisé le renvoi d'une variable que j'utilise dans d'autres modules. Et ça marche.
Une question cependant : pourquoi les requêtes créées dans ACCESS fonctionnent-elles, alors quelles plantent en VBA ?
A la place de [choixriviere].[value], j'ai utilisé le renvoi d'une
variable que j'utilise dans d'autres modules. Et ça marche.
Une question cependant : pourquoi les requêtes créées dans ACCESS
fonctionnent-elles, alors quelles plantent en VBA ?