VBA et PARAMETERS

6 réponses

jero

14/12/2009 à 09:51

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & ' ' &
[Prénom] AS Membre, False AS Sélectionné, Count(tblMembres.IdMembre) AS
NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & ' '
& [Prénom], False, fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING (((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True) AND
((tblAyantsDroits.Statut)="Enfant") AND ((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une condition
d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", " ",
0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1
SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " & SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le message
"Trop peu de paramètres, 2 attendu" (comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

6 réponses

C. ERNST

14/12/2009 à 11:57

(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle vous
avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~ a écrit dans le message de news:

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & ' '
& [Prénom] AS Membre, False AS Sélectionné, Count(tblMembres.IdMembre) AS
NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & '
' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING (((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True)
AND ((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", " ",
0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " & SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le message
"Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & ' '
& [Prénom] AS Membre, False AS Sélectionné, Count(tblMembres.IdMembre) AS
NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & '
' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING (((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True)
AND ((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", " ",
0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " & SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le message
"Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & ' '
& [Prénom] AS Membre, False AS Sélectionné, Count(tblMembres.IdMembre) AS
NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & '
' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING (((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True)
AND ((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", " ",
0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " & SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le message
"Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

jero

14/12/2009 à 14:29

Bonjour et merci de la réponse,

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" a écrit dans le message de news:
%

(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~ a écrit dans le message de news:

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & '
' & [Prénom] AS Membre, False AS Sélectionné, Count(tblMembres.IdMembre)
AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] &
' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING (((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True)
AND ((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", " ",
0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " & SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le message
"Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

Bonjour et merci de la réponse,

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" <contactnospam@micro-gestion.fr> a écrit dans le message de news:
%23ExD9wKfKHA.2596@TK2MSFTNGP04.phx.gbl...

(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~jero@jero.net> a écrit dans le message de news:
uLt0WqJfKHA.2160@TK2MSFTNGP02.phx.gbl...

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & '
' & [Prénom] AS Membre, False AS Sélectionné, Count(tblMembres.IdMembre)
AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] &
' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING (((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True)
AND ((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", " ",
0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " & SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le message
"Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour et merci de la réponse,

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" a écrit dans le message de news:
%

(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~ a écrit dans le message de news:

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & '
' & [Prénom] AS Membre, False AS Sélectionné, Count(tblMembres.IdMembre)
AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] &
' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING (((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True)
AND ((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", " ",
0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " & SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le message
"Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

C. ERNST

14/12/2009 à 16:34

Ne vous compliquez pas la vie :
Je ne connais pas exactement la structure de vos tables mais :
DIM SQL
SQL= "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) "
SQL=SQL & "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
tblMembres ...
.....
SQL=SQL & "WHERE [AgeMini] =" & AgeMinimum & " AND [Choix]=" & 1
Currentdb.execute SQL

"jero" <~ a écrit dans le message de news:

Bonjour et merci de la réponse,
Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" a écrit dans le message de
news: %
(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~ a écrit dans le message de news:

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & '
' & [Prénom] AS Membre, False AS Sélectionné, Count(tblMembres.IdMembre)
AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] &
' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING (((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True)
AND ((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", "
", 0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " & SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le message
"Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

Bonjour et merci de la réponse,

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" <contactnospam@micro-gestion.fr> a écrit dans le message de
news: %23ExD9wKfKHA.2596@TK2MSFTNGP04.phx.gbl...

(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~jero@jero.net> a écrit dans le message de news:
uLt0WqJfKHA.2160@TK2MSFTNGP02.phx.gbl...

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & '
' & [Prénom] AS Membre, False AS Sélectionné, Count(tblMembres.IdMembre)
AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] &
' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING (((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True)
AND ((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", "
", 0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " & SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le message
"Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour et merci de la réponse,
Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" a écrit dans le message de
news: %
(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~ a écrit dans le message de news:

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] & '
' & [Prénom] AS Membre, False AS Sélectionné, Count(tblMembres.IdMembre)
AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] &
' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING (((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True)
AND ((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", "
", 0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " & SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le message
"Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

jero

14/12/2009 à 17:50

Re-bonjour C. ERNST,
Oui, je suis d'accord, c'est ce que fais d'habitude mais là, ça va être un
peu plus compliqué - et moins "joli" - à cause de la fonction
fctAgeRequisEnfant() :
Public Function fctAgeRequisEnfant(DateNaissance As Date, AgeMinimum As
Single, Choix As Byte) As Boolean
Dim DateRéférenceAgeEnfant As Date, AgeRequisEnfant As Single,
tmpAgeRequisEnfant As Boolean
DateRéférenceAgeEnfant = Nz(DLookup("[DateRéférenceAgeEnfant]",
"[tblParamètresApplication]"), 0)
Select Case Choix
Case 1
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantCadeau]",
"[tblParamètresApplication]"), 0)
Case 2
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantSportLoisirs]",
"[tblParamètresApplication]"), 0)
End Select
tmpAgeRequisEnfant = DateDiff("yyyy", DateNaissance, DateRéférenceAgeEnfant)
>= AgeMinimum
tmpAgeRequisEnfant = tmpAgeRequisEnfant And DateDiff("yyyy", DateNaissance,
DateRéférenceAgeEnfant) < AgeRequisEnfant + 1
fctAgeRequisEnfant = tmpAgeRequisEnfant
End Function
car, en fait, c'est à elle que je passe les paramètres [AgeMini] et [Choix]
(HAVING fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix])=True)
Bon, je vais faire autrement...
Merci
"C. ERNST" a écrit dans le message de news:
%

Ne vous compliquez pas la vie :
Je ne connais pas exactement la structure de vos tables mais :
DIM SQL
SQL= "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) "
SQL=SQL & "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
tblMembres ...
.....
SQL=SQL & "WHERE [AgeMini] =" & AgeMinimum & " AND [Choix]=" & 1
Currentdb.execute SQL

"jero" <~ a écrit dans le message de news:

Bonjour et merci de la réponse,
Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" a écrit dans le message de
news: %
(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~ a écrit dans le message de news:

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] &
' ' & [Prénom] AS Membre, False AS Sélectionné,
Count(tblMembres.IdMembre) AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom]
& ' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING
(((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True) AND
((tblAyantsDroits.Statut)="Enfant") AND ((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", "
", 0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " & SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le message
"Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

Ne vous compliquez pas la vie :
Je ne connais pas exactement la structure de vos tables mais :
DIM SQL
SQL= "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) "
SQL=SQL & "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
tblMembres ...
.....
SQL=SQL & "WHERE [AgeMini] =" & AgeMinimum & " AND [Choix]=" & 1
Currentdb.execute SQL

"jero" <~jero@jero.net> a écrit dans le message de news:
ug4JAGMfKHA.1020@TK2MSFTNGP05.phx.gbl...

Bonjour et merci de la réponse,

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" <contactnospam@micro-gestion.fr> a écrit dans le message de
news: %23ExD9wKfKHA.2596@TK2MSFTNGP04.phx.gbl...

(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~jero@jero.net> a écrit dans le message de news:
uLt0WqJfKHA.2160@TK2MSFTNGP02.phx.gbl...

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] &
' ' & [Prénom] AS Membre, False AS Sélectionné,
Count(tblMembres.IdMembre) AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom]
& ' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING
(((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True) AND
((tblAyantsDroits.Statut)="Enfant") AND ((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", "
", 0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " & SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le message
"Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

Vous avez filtré cet utilisateur ! Consultez son message

Ne vous compliquez pas la vie :
Je ne connais pas exactement la structure de vos tables mais :
DIM SQL
SQL= "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) "
SQL=SQL & "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
tblMembres ...
.....
SQL=SQL & "WHERE [AgeMini] =" & AgeMinimum & " AND [Choix]=" & 1
Currentdb.execute SQL

"jero" <~ a écrit dans le message de news:

Bonjour et merci de la réponse,
Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" a écrit dans le message de
news: %
(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~ a écrit dans le message de news:

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] &
' ' & [Prénom] AS Membre, False AS Sélectionné,
Count(tblMembres.IdMembre) AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom]
& ' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING
(((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True) AND
((tblAyantsDroits.Statut)="Enfant") AND ((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", "
", 0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " & SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le message
"Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

C. ERNST

15/12/2009 à 10:56

Rien ne vous empêche d'écrire :

"(HAVING fctAgeRequisEnfant([DateDeNaissance]," & AgeMinimum &"," & 1 &
")=True)"

"jero" <~ a écrit dans le message de news:

Re-bonjour C. ERNST,
Oui, je suis d'accord, c'est ce que fais d'habitude mais là, ça va être un
peu plus compliqué - et moins "joli" - à cause de la fonction
fctAgeRequisEnfant() :
Public Function fctAgeRequisEnfant(DateNaissance As Date, AgeMinimum As
Single, Choix As Byte) As Boolean
Dim DateRéférenceAgeEnfant As Date, AgeRequisEnfant As Single,
tmpAgeRequisEnfant As Boolean
DateRéférenceAgeEnfant = Nz(DLookup("[DateRéférenceAgeEnfant]",
"[tblParamètresApplication]"), 0)
Select Case Choix
Case 1
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantCadeau]",
"[tblParamètresApplication]"), 0)
Case 2
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantSportLoisirs]",
"[tblParamètresApplication]"), 0)
End Select
tmpAgeRequisEnfant = DateDiff("yyyy", DateNaissance,
DateRéférenceAgeEnfant)
>= AgeMinimum
tmpAgeRequisEnfant = tmpAgeRequisEnfant And DateDiff("yyyy",
DateNaissance, DateRéférenceAgeEnfant) < AgeRequisEnfant + 1
fctAgeRequisEnfant = tmpAgeRequisEnfant
End Function
car, en fait, c'est à elle que je passe les paramètres [AgeMini] et
[Choix] (HAVING
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix])=True)
Bon, je vais faire autrement...
Merci
"C. ERNST" a écrit dans le message de
news: %
Ne vous compliquez pas la vie :
Je ne connais pas exactement la structure de vos tables mais :
DIM SQL
SQL= "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) "
SQL=SQL & "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
tblMembres ...
.....
SQL=SQL & "WHERE [AgeMini] =" & AgeMinimum & " AND [Choix]=" & 1
Currentdb.execute SQL

"jero" <~ a écrit dans le message de news:

Bonjour et merci de la réponse,
Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" a écrit dans le message de
news: %
(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~ a écrit dans le message de news:

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] &
' ' & [Prénom] AS Membre, False AS Sélectionné,
Count(tblMembres.IdMembre) AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom]
& ' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING
(((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True) AND
((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", "
", 0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits
FROM RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " &
SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le
message "Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

Rien ne vous empêche d'écrire :

"(HAVING fctAgeRequisEnfant([DateDeNaissance]," & AgeMinimum &"," & 1 &
")=True)"

"jero" <~jero@jero.net> a écrit dans le message de news:
eKOpPhWfKHA.1112@TK2MSFTNGP04.phx.gbl...

Re-bonjour C. ERNST,
Oui, je suis d'accord, c'est ce que fais d'habitude mais là, ça va être un
peu plus compliqué - et moins "joli" - à cause de la fonction
fctAgeRequisEnfant() :
Public Function fctAgeRequisEnfant(DateNaissance As Date, AgeMinimum As
Single, Choix As Byte) As Boolean
Dim DateRéférenceAgeEnfant As Date, AgeRequisEnfant As Single,
tmpAgeRequisEnfant As Boolean
DateRéférenceAgeEnfant = Nz(DLookup("[DateRéférenceAgeEnfant]",
"[tblParamètresApplication]"), 0)
Select Case Choix
Case 1
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantCadeau]",
"[tblParamètresApplication]"), 0)
Case 2
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantSportLoisirs]",
"[tblParamètresApplication]"), 0)
End Select
tmpAgeRequisEnfant = DateDiff("yyyy", DateNaissance,
DateRéférenceAgeEnfant)
>= AgeMinimum
tmpAgeRequisEnfant = tmpAgeRequisEnfant And DateDiff("yyyy",
DateNaissance, DateRéférenceAgeEnfant) < AgeRequisEnfant + 1
fctAgeRequisEnfant = tmpAgeRequisEnfant
End Function
car, en fait, c'est à elle que je passe les paramètres [AgeMini] et
[Choix] (HAVING
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix])=True)
Bon, je vais faire autrement...
Merci
"C. ERNST" <contactnospam@micro-gestion.fr> a écrit dans le message de
news: %23wTC2LNfKHA.3792@TK2MSFTNGP02.phx.gbl...

Ne vous compliquez pas la vie :
Je ne connais pas exactement la structure de vos tables mais :
DIM SQL
SQL= "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) "
SQL=SQL & "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
tblMembres ...
.....
SQL=SQL & "WHERE [AgeMini] =" & AgeMinimum & " AND [Choix]=" & 1
Currentdb.execute SQL

"jero" <~jero@jero.net> a écrit dans le message de news:
ug4JAGMfKHA.1020@TK2MSFTNGP05.phx.gbl...

Bonjour et merci de la réponse,

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" <contactnospam@micro-gestion.fr> a écrit dans le message de
news: %23ExD9wKfKHA.2596@TK2MSFTNGP04.phx.gbl...

(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~jero@jero.net> a écrit dans le message de news:
uLt0WqJfKHA.2160@TK2MSFTNGP02.phx.gbl...

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] &
' ' & [Prénom] AS Membre, False AS Sélectionné,
Count(tblMembres.IdMembre) AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom]
& ' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING
(((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True) AND
((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", "
", 0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits
FROM RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " &
SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le
message "Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

Vous avez filtré cet utilisateur ! Consultez son message

Rien ne vous empêche d'écrire :

"(HAVING fctAgeRequisEnfant([DateDeNaissance]," & AgeMinimum &"," & 1 &
")=True)"

"jero" <~ a écrit dans le message de news:

Re-bonjour C. ERNST,
Oui, je suis d'accord, c'est ce que fais d'habitude mais là, ça va être un
peu plus compliqué - et moins "joli" - à cause de la fonction
fctAgeRequisEnfant() :
Public Function fctAgeRequisEnfant(DateNaissance As Date, AgeMinimum As
Single, Choix As Byte) As Boolean
Dim DateRéférenceAgeEnfant As Date, AgeRequisEnfant As Single,
tmpAgeRequisEnfant As Boolean
DateRéférenceAgeEnfant = Nz(DLookup("[DateRéférenceAgeEnfant]",
"[tblParamètresApplication]"), 0)
Select Case Choix
Case 1
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantCadeau]",
"[tblParamètresApplication]"), 0)
Case 2
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantSportLoisirs]",
"[tblParamètresApplication]"), 0)
End Select
tmpAgeRequisEnfant = DateDiff("yyyy", DateNaissance,
DateRéférenceAgeEnfant)
>= AgeMinimum
tmpAgeRequisEnfant = tmpAgeRequisEnfant And DateDiff("yyyy",
DateNaissance, DateRéférenceAgeEnfant) < AgeRequisEnfant + 1
fctAgeRequisEnfant = tmpAgeRequisEnfant
End Function
car, en fait, c'est à elle que je passe les paramètres [AgeMini] et
[Choix] (HAVING
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix])=True)
Bon, je vais faire autrement...
Merci
"C. ERNST" a écrit dans le message de
news: %
Ne vous compliquez pas la vie :
Je ne connais pas exactement la structure de vos tables mais :
DIM SQL
SQL= "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) "
SQL=SQL & "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
tblMembres ...
.....
SQL=SQL & "WHERE [AgeMini] =" & AgeMinimum & " AND [Choix]=" & 1
Currentdb.execute SQL

"jero" <~ a écrit dans le message de news:

Bonjour et merci de la réponse,
Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" a écrit dans le message de
news: %
(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~ a écrit dans le message de news:

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom] &
' ' & [Prénom] AS Membre, False AS Sélectionné,
Count(tblMembres.IdMembre) AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom]
& ' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING
(((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True) AND
((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?", "
", 0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits
FROM RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " &
SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le
message "Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

jero

15/12/2009 à 17:51

Oui, merci.
jpg
"C. ERNST" a écrit dans le message de news:

Rien ne vous empêche d'écrire :

"(HAVING fctAgeRequisEnfant([DateDeNaissance]," & AgeMinimum &"," & 1 &
")=True)"

"jero" <~ a écrit dans le message de news:

Re-bonjour C. ERNST,
Oui, je suis d'accord, c'est ce que fais d'habitude mais là, ça va être
un peu plus compliqué - et moins "joli" - à cause de la fonction
fctAgeRequisEnfant() :
Public Function fctAgeRequisEnfant(DateNaissance As Date, AgeMinimum As
Single, Choix As Byte) As Boolean
Dim DateRéférenceAgeEnfant As Date, AgeRequisEnfant As Single,
tmpAgeRequisEnfant As Boolean
DateRéférenceAgeEnfant = Nz(DLookup("[DateRéférenceAgeEnfant]",
"[tblParamètresApplication]"), 0)
Select Case Choix
Case 1
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantCadeau]",
"[tblParamètresApplication]"), 0)
Case 2
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantSportLoisirs]",
"[tblParamètresApplication]"), 0)
End Select
tmpAgeRequisEnfant = DateDiff("yyyy", DateNaissance,
DateRéférenceAgeEnfant)
>= AgeMinimum
tmpAgeRequisEnfant = tmpAgeRequisEnfant And DateDiff("yyyy",
DateNaissance, DateRéférenceAgeEnfant) < AgeRequisEnfant + 1
fctAgeRequisEnfant = tmpAgeRequisEnfant
End Function
car, en fait, c'est à elle que je passe les paramètres [AgeMini] et
[Choix] (HAVING
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix])=True)
Bon, je vais faire autrement...
Merci
"C. ERNST" a écrit dans le message de
news: %
Ne vous compliquez pas la vie :
Je ne connais pas exactement la structure de vos tables mais :
DIM SQL
SQL= "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) "
SQL=SQL & "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
tblMembres ...
.....
SQL=SQL & "WHERE [AgeMini] =" & AgeMinimum & " AND [Choix]=" & 1
Currentdb.execute SQL

"jero" <~ a écrit dans le message de news:

Bonjour et merci de la réponse,
Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" a écrit dans le message de
news: %
(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~ a écrit dans le message de news:

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom]
& ' ' & [Prénom] AS Membre, False AS Sélectionné,
Count(tblMembres.IdMembre) AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte,
[tblMembres]![Nom] & ' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING
(((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True) AND
((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?",
" ", 0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits
FROM RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " &
SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le
message "Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

Oui, merci.
jpg
"C. ERNST" <contactnospam@micro-gestion.fr> a écrit dans le message de news:
u94BpzWfKHA.1596@TK2MSFTNGP06.phx.gbl...

Rien ne vous empêche d'écrire :

"(HAVING fctAgeRequisEnfant([DateDeNaissance]," & AgeMinimum &"," & 1 &
")=True)"

"jero" <~jero@jero.net> a écrit dans le message de news:
eKOpPhWfKHA.1112@TK2MSFTNGP04.phx.gbl...

Re-bonjour C. ERNST,
Oui, je suis d'accord, c'est ce que fais d'habitude mais là, ça va être
un peu plus compliqué - et moins "joli" - à cause de la fonction
fctAgeRequisEnfant() :
Public Function fctAgeRequisEnfant(DateNaissance As Date, AgeMinimum As
Single, Choix As Byte) As Boolean
Dim DateRéférenceAgeEnfant As Date, AgeRequisEnfant As Single,
tmpAgeRequisEnfant As Boolean
DateRéférenceAgeEnfant = Nz(DLookup("[DateRéférenceAgeEnfant]",
"[tblParamètresApplication]"), 0)
Select Case Choix
Case 1
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantCadeau]",
"[tblParamètresApplication]"), 0)
Case 2
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantSportLoisirs]",
"[tblParamètresApplication]"), 0)
End Select
tmpAgeRequisEnfant = DateDiff("yyyy", DateNaissance,
DateRéférenceAgeEnfant)
>= AgeMinimum
tmpAgeRequisEnfant = tmpAgeRequisEnfant And DateDiff("yyyy",
DateNaissance, DateRéférenceAgeEnfant) < AgeRequisEnfant + 1
fctAgeRequisEnfant = tmpAgeRequisEnfant
End Function
car, en fait, c'est à elle que je passe les paramètres [AgeMini] et
[Choix] (HAVING
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix])=True)
Bon, je vais faire autrement...
Merci
"C. ERNST" <contactnospam@micro-gestion.fr> a écrit dans le message de
news: %23wTC2LNfKHA.3792@TK2MSFTNGP02.phx.gbl...

Ne vous compliquez pas la vie :
Je ne connais pas exactement la structure de vos tables mais :
DIM SQL
SQL= "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) "
SQL=SQL & "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
tblMembres ...
.....
SQL=SQL & "WHERE [AgeMini] =" & AgeMinimum & " AND [Choix]=" & 1
Currentdb.execute SQL

"jero" <~jero@jero.net> a écrit dans le message de news:
ug4JAGMfKHA.1020@TK2MSFTNGP05.phx.gbl...

Bonjour et merci de la réponse,

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" <contactnospam@micro-gestion.fr> a écrit dans le message de
news: %23ExD9wKfKHA.2596@TK2MSFTNGP04.phx.gbl...

(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~jero@jero.net> a écrit dans le message de news:
uLt0WqJfKHA.2160@TK2MSFTNGP02.phx.gbl...

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom]
& ' ' & [Prénom] AS Membre, False AS Sélectionné,
Count(tblMembres.IdMembre) AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte,
[tblMembres]![Nom] & ' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING
(((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True) AND
((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?",
" ", 0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits
FROM RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " &
SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le
message "Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

Vous avez filtré cet utilisateur ! Consultez son message

Oui, merci.
jpg
"C. ERNST" a écrit dans le message de news:

Rien ne vous empêche d'écrire :

"(HAVING fctAgeRequisEnfant([DateDeNaissance]," & AgeMinimum &"," & 1 &
")=True)"

"jero" <~ a écrit dans le message de news:

Re-bonjour C. ERNST,
Oui, je suis d'accord, c'est ce que fais d'habitude mais là, ça va être
un peu plus compliqué - et moins "joli" - à cause de la fonction
fctAgeRequisEnfant() :
Public Function fctAgeRequisEnfant(DateNaissance As Date, AgeMinimum As
Single, Choix As Byte) As Boolean
Dim DateRéférenceAgeEnfant As Date, AgeRequisEnfant As Single,
tmpAgeRequisEnfant As Boolean
DateRéférenceAgeEnfant = Nz(DLookup("[DateRéférenceAgeEnfant]",
"[tblParamètresApplication]"), 0)
Select Case Choix
Case 1
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantCadeau]",
"[tblParamètresApplication]"), 0)
Case 2
AgeRequisEnfant = Nz(DLookup("[CritèreAgeEnfantSportLoisirs]",
"[tblParamètresApplication]"), 0)
End Select
tmpAgeRequisEnfant = DateDiff("yyyy", DateNaissance,
DateRéférenceAgeEnfant)
>= AgeMinimum
tmpAgeRequisEnfant = tmpAgeRequisEnfant And DateDiff("yyyy",
DateNaissance, DateRéférenceAgeEnfant) < AgeRequisEnfant + 1
fctAgeRequisEnfant = tmpAgeRequisEnfant
End Function
car, en fait, c'est à elle que je passe les paramètres [AgeMini] et
[Choix] (HAVING
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix])=True)
Bon, je vais faire autrement...
Merci
"C. ERNST" a écrit dans le message de
news: %
Ne vous compliquez pas la vie :
Je ne connais pas exactement la structure de vos tables mais :
DIM SQL
SQL= "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) "
SQL=SQL & "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits FROM
tblMembres ...
.....
SQL=SQL & "WHERE [AgeMini] =" & AgeMinimum & " AND [Choix]=" & 1
Currentdb.execute SQL

"jero" <~ a écrit dans le message de news:

Bonjour et merci de la réponse,
Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......

Non, mais comment "exécuter" une requête sélection ?
Quelle est alors la solution ?

"C. ERNST" a écrit dans le message de
news: %
(comme si les 2 lignes Qry.Parameters...
"ne servaient" à rien)

Effectivement !

Le problème est que vous n'exécutez pas la requête (Qry) pour laquelle
vous avez fourni les paramètres......
Vous exécutez "SqlInsert" comprenant "SqlSelect"
Donc Sqlselect réclamera les paramètres...

"jero" <~ a écrit dans le message de news:

Bonjour à tous,
J'ai une requête (RqListeMembres) avec 2 paramètres AgeMini et Choix
Code SQL :
PARAMETERS [AgeMini] Single, [Choix] Byte;
SELECT tblMembres.IdMembre, tblMembres.NumCompte, [tblMembres]![Nom]
& ' ' & [Prénom] AS Membre, False AS Sélectionné,
Count(tblMembres.IdMembre) AS NbAyantsDroits
FROM tblMembres INNER JOIN tblAyantsDroits ON tblMembres.IdMembre =
tblAyantsDroits.IdMembre
GROUP BY tblMembres.IdMembre, tblMembres.NumCompte,
[tblMembres]![Nom] & ' ' & [Prénom], False,
fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]),
tblAyantsDroits.Statut, tblAyantsDroits.Droit
HAVING
(((fctAgeRequisEnfant([DateDeNaissance],[AgeMini],[Choix]))=True) AND
((tblAyantsDroits.Statut)="Enfant") AND
((tblAyantsDroits.Droit)=True))
ORDER BY tblMembres.IdMembre;
Note : la fonction fctAgeRequisEnfant() permet de vérifier si une
condition d'âge est satisfaite ou non.
Pas de pb. en mode "Access"
J'utilise cette requête dans le code suivant :
....
NomRequête = "RqListeMembres"
Set Qry = CurrentDb.QueryDefs(NomRequête)
AgeMinimum = Nz(Val(InputBox("Quel est l'âge minimum de l'enfant ?",
" ", 0)), 0)
Qry.Parameters("AgeMini") = AgeMinimum
Qry.Parameters("Choix") = 1

SqlSelect = "SELECT IdMembre,NumCompte,Membre,False,NbAyantsDroits
FROM RqListeMembres"
SqlInsert = "INSERT INTO _tblMembresSélectionnés
(IdMembre,CompteMembre,Membre,Sélectionné,NbAyantsDroits) " &
SqlSelect
'et à l'exécution de la ligne ci-dessous, j'ai à chaque fois le
message "Trop peu de paramètres, 2 attendu" (comme si les 2 lignes
Qry.Parameters... "ne servaient" à rien)
CurrentDb.Execute SqlStr

Par contre, la requête RqListeMembresAgeRequisEnfant renvoie bien les
enregistrements, je l'ai testée avec :
Set Rst = Qry.OpenRecordset(dbOpenSnapshot)
? Rst.RecordCount

Si vous avez une idée...
Merci d'avance.

VBA et PARAMETERS

6 réponses

Veuillez sélectionner un problème