J'ai créé une requete utilisant un paramètre [Index]. Le résultat me donne
une valeur que je souhaiterais ensuite afficher dans une zone de texte....
Set frm = Forms!FormChoixQuestionnaire
Set ctl = frm!ListeMatieres
For Each varItm In ctl.ItemsSelected
'' J'AI DONC OBTENU LE PARAMETRE DE MA REQUETE
'' (La valeur de la colonne 1 de la zone de liste)
Index = ctl.Column(1, varItm)
''JE LANCE MA REQUETE
>> Mais il ne prend pas en compte le parametre [Index] !!!!
DoCmd.OpenQuery "RequeteNbrQuestions", acViewNormal
>> Et le résultat (CompteDeCompteurMat) ne renvoi rien
Me.Texte37.Value = DLookup("CompteDeCompteurMat",
"RequeteNbrQuestions")
Next varItm
Pouvez-vous me dire comment faire svp ?
Merci
*** POUR INFO, MA REQUETE EST LA SUIVANTE ***
SELECT Count(*) AS CompteDeCompteurMat FROM MATIERES as MATIERES INNER JOIN
QUESTIONNAIRE as QUESTIONNAIRE ON MATIERES.CompteurMat =
QUESTIONNAIRE.CompteurMat WHERE (((MATIERES.CompteurMat)=[Index]))
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
Oblers
Je viens de voir cette méthode qui me serait (je pense) très utile, mais j'ai un problème dans l'exécution :
Dim dbsCurrent As DAO.Database Dim Qdf As DAO.QueryDef Set dbsCurrent = CurrentDb() Set Qdf = dbsCurrent.QueryDefs("RequeteNbrQuestions") Qdf.Parameters("Index") = ctl.Column(1, varItm) Qdf.Execute Me.Texte37.Value = DLookup("CompteDeCompteurMat", "RequeteNbrQuestions")
Ca bloque à la premiere ligne : Type défini par l'utilisateur indéfini ! Kezako ? Merci
Je viens de voir cette méthode qui me serait (je pense) très utile, mais
j'ai un problème dans l'exécution :
Dim dbsCurrent As DAO.Database
Dim Qdf As DAO.QueryDef
Set dbsCurrent = CurrentDb()
Set Qdf = dbsCurrent.QueryDefs("RequeteNbrQuestions")
Qdf.Parameters("Index") = ctl.Column(1, varItm)
Qdf.Execute
Me.Texte37.Value = DLookup("CompteDeCompteurMat", "RequeteNbrQuestions")
Ca bloque à la premiere ligne : Type défini par l'utilisateur indéfini !
Kezako ?
Merci
Je viens de voir cette méthode qui me serait (je pense) très utile, mais j'ai un problème dans l'exécution :
Dim dbsCurrent As DAO.Database Dim Qdf As DAO.QueryDef Set dbsCurrent = CurrentDb() Set Qdf = dbsCurrent.QueryDefs("RequeteNbrQuestions") Qdf.Parameters("Index") = ctl.Column(1, varItm) Qdf.Execute Me.Texte37.Value = DLookup("CompteDeCompteurMat", "RequeteNbrQuestions")
Ca bloque à la premiere ligne : Type défini par l'utilisateur indéfini ! Kezako ? Merci
Gilbert
Bonsoir,
Ajoute la référence Microsoft DAO 3.x Object Library (x en fonction de ta version)
Gilbert
"Oblers" a écrit dans le message de news:44abf3e7$0$859$
Je viens de voir cette méthode qui me serait (je pense) très utile, mais j'ai un problème dans l'exécution :
Dim dbsCurrent As DAO.Database Dim Qdf As DAO.QueryDef Set dbsCurrent = CurrentDb() Set Qdf = dbsCurrent.QueryDefs("RequeteNbrQuestions") Qdf.Parameters("Index") = ctl.Column(1, varItm) Qdf.Execute Me.Texte37.Value = DLookup("CompteDeCompteurMat", "RequeteNbrQuestions")
Ca bloque à la premiere ligne : Type défini par l'utilisateur indéfini ! Kezako ? Merci
Bonsoir,
Ajoute la référence Microsoft DAO 3.x Object Library (x en fonction de ta
version)
Gilbert
"Oblers" <oblers@hotmail.com> a écrit dans le message de
news:44abf3e7$0$859$ba4acef3@news.orange.fr...
Je viens de voir cette méthode qui me serait (je pense) très utile, mais
j'ai un problème dans l'exécution :
Dim dbsCurrent As DAO.Database
Dim Qdf As DAO.QueryDef
Set dbsCurrent = CurrentDb()
Set Qdf = dbsCurrent.QueryDefs("RequeteNbrQuestions")
Qdf.Parameters("Index") = ctl.Column(1, varItm)
Qdf.Execute
Me.Texte37.Value = DLookup("CompteDeCompteurMat", "RequeteNbrQuestions")
Ca bloque à la premiere ligne : Type défini par l'utilisateur indéfini !
Kezako ?
Merci
Ajoute la référence Microsoft DAO 3.x Object Library (x en fonction de ta version)
Gilbert
"Oblers" a écrit dans le message de news:44abf3e7$0$859$
Je viens de voir cette méthode qui me serait (je pense) très utile, mais j'ai un problème dans l'exécution :
Dim dbsCurrent As DAO.Database Dim Qdf As DAO.QueryDef Set dbsCurrent = CurrentDb() Set Qdf = dbsCurrent.QueryDefs("RequeteNbrQuestions") Qdf.Parameters("Index") = ctl.Column(1, varItm) Qdf.Execute Me.Texte37.Value = DLookup("CompteDeCompteurMat", "RequeteNbrQuestions")
Ca bloque à la premiere ligne : Type défini par l'utilisateur indéfini ! Kezako ? Merci
Oblers
Merci.....
Maintenant la référence ajoutée, il refuse ma requête sélection.... C'est très suceptible Access....
Merci.....
Maintenant la référence ajoutée, il refuse ma requête sélection....
C'est très suceptible Access....