Récupération du contenu d'une reqûete (partie 2)

Le
jobardu92
Bonjour!

Alors voilà, j'ai progressé dans mon code VBA pour me permettre de
récupérer le résultat d'une requête qui s'appelle "essai", et qui
dispose de 8 paramètres
==
==
==
Dim rcs As DAO.Recordset
Dim qdf As DAO.QueryDef

Set qdf = CurrentDb.QueryDefs("essai")
qdf.Parameters("zone_de_saisie") = zone_de_saisie.Value
qdf.Parameters("bannir_client1") = element_selectionne
qdf.Parameters("bannir_client2") = element_selectionne2
qdf.Parameters("bannir_client3") = element_selectionne3
qdf.Parameters("bannir_client4") = element_selectionne4
qdf.Parameters("bannir_client5") = element_selectionne5
qdf.Parameters("bannir_client6") = element_selectionne6
qdf.Parameters("bannir_client7") = element_selectionne7

qdf.OpenRecordset
Set rcs = qdf.OpenRecordset
message = rcs("Lib_client")

Set qdf = Nothing
==
==
==

Quand j'exécute, il me met "aucun enregistrement en cours" à la ligne:
=
message = rcs("Lib_client")
=
Mes paramètres recoivent bien tous les champs de mon formulaire (j'ai
vérifié).

Aurais-je inversé des éléments dans mon code? Qu'est ce qui cloche?

Je voudrais en fait qu'une variable puisse stocker le ou les résultats
de ma requête d'ou le code VBA:

==

message = rcs("Lib_client")
==
==

Mais ca ne fonctionne pas

Merci!!!
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thierry (ze Titi)
Le #6380281
Hello jobardu92 !

As-tu vérifié que la requête avec les paramètres correctement
renseignés ramenait bien quelque chose ?
Par ailleurs, si elle ramène plusieurs enregistrements, il serait bon
de les parcourir. Quoiqu'il en soit:

qdf.OpenRecordset
Set rcs = qdf.OpenRecordset
rcs.MoveLast
rcs.MoveFirst
message = rcs("Lib_client")


En ce jour mémorable du mercredi 14/11/2007, tu as émis l'idée
suivante:
Bonjour!

Alors voilà, j'ai progressé dans mon code VBA pour me permettre de
récupérer le résultat d'une requête qui s'appelle "essai", et qui
dispose de 8 paramètres...
====================================================== > Dim rcs As DAO.Recordset
Dim qdf As DAO.QueryDef

Set qdf = CurrentDb.QueryDefs("essai")
qdf.Parameters("zone_de_saisie") = zone_de_saisie.Value
qdf.Parameters("bannir_client1") = element_selectionne
qdf.Parameters("bannir_client2") = element_selectionne2
qdf.Parameters("bannir_client3") = element_selectionne3
qdf.Parameters("bannir_client4") = element_selectionne4
qdf.Parameters("bannir_client5") = element_selectionne5
qdf.Parameters("bannir_client6") = element_selectionne6
qdf.Parameters("bannir_client7") = element_selectionne7

qdf.OpenRecordset
Set rcs = qdf.OpenRecordset
message = rcs("Lib_client")

Set qdf = Nothing
========================================================= >
Quand j'exécute, il me met "aucun enregistrement en cours" à la ligne:
====== > message = rcs("Lib_client")
====== > Mes paramètres recoivent bien tous les champs de mon formulaire (j'ai
vérifié).

Aurais-je inversé des éléments dans mon code? Qu'est ce qui cloche?

Je voudrais en fait qu'une variable puisse stocker le ou les résultats
de ma requête d'ou le code VBA:

============================== > message = rcs("Lib_client")
============================= >
Mais ca ne fonctionne pas...

Merci!!!


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info

jobardu92
Le #6380221
On 14 nov, 14:01, Thierry (ze Titi) wrote:
Hello jobardu92 !

As-tu vérifié que la requête avec les paramètres correctement
renseignés ramenait bien quelque chose ?
Par ailleurs, si elle ramène plusieurs enregistrements, il serait bon
de les parcourir. Quoiqu'il en soit:

qdf.OpenRecordset
Set rcs = qdf.OpenRecordset
rcs.MoveLast
rcs.MoveFirst
message = rcs("Lib_client")

En ce jour mémorable du mercredi 14/11/2007, tu as émis l'idée
suivante:



Bonjour!

Alors voilà, j'ai progressé dans mon code VBA pour me permettre de
récupérer le résultat d'une requête qui s'appelle "essai", et q ui
dispose de 8 paramètres...
======================= ========================= =======
Dim rcs As DAO.Recordset
Dim qdf As DAO.QueryDef

Set qdf = CurrentDb.QueryDefs("essai")
qdf.Parameters("zone_de_saisie") = zone_de_saisie.Value
qdf.Parameters("bannir_client1") = element_selectionne
qdf.Parameters("bannir_client2") = element_selectionne2
qdf.Parameters("bannir_client3") = element_selectionne3
qdf.Parameters("bannir_client4") = element_selectionne4
qdf.Parameters("bannir_client5") = element_selectionne5
qdf.Parameters("bannir_client6") = element_selectionne6
qdf.Parameters("bannir_client7") = element_selectionne7

qdf.OpenRecordset
Set rcs = qdf.OpenRecordset
message = rcs("Lib_client")

Set qdf = Nothing
======================= ========================= ==========

Quand j'exécute, il me met "aucun enregistrement en cours" à la lig ne:
=======
message = rcs("Lib_client")
=======
Mes paramètres recoivent bien tous les champs de mon formulaire (j'ai
vérifié).

Aurais-je inversé des éléments dans mon code? Qu'est ce qui cloch e?

Je voudrais en fait qu'une variable puisse stocker le ou les résultats
de ma requête d'ou le code VBA:

======================= ========
message = rcs("Lib_client")
======================= =======

Mais ca ne fonctionne pas...

Merci!!!


--
Cordialement,
Thierry

Tout pour réussir avec Access :http://www.mpfa.info


Salut Thierry!

Effectivement, lorsque j'exécute ce code et que l'erreur se produit,
en mode débugage, quand je survole mes paramètres, ils sont renseignés
par les zones que j'ai saisi dans le formulaire.

Dans le cas où les client à bannir ne sont que 2 au lieu de 8, les 6
autres ont comme valeur "NULL".

Il me manque quelque chose mais quoi? Mystère...

Merci!!!

Pierrick


Thierry (ze Titi)
Le #6380211
As-tu vérifié que la requête avec les paramètres correctement
renseignés ramenait bien quelque chose ?
Par ailleurs, si elle ramène plusieurs enregistrements, il serait bon
de les parcourir. Quoiqu'il en soit:

qdf.OpenRecordset
Set rcs = qdf.OpenRecordset
rcs.MoveLast
rcs.MoveFirst
message = rcs("Lib_client")

En ce jour mémorable du mercredi 14/11/2007, tu as émis l'idée
suivante:
Il me manque quelque chose mais quoi? Mystère...



Set qdf = CurrentDb.QueryDefs("essai")
qdf.Parameters("zone_de_saisie") = zone_de_saisie.Value
qdf.Parameters("bannir_client1") = Nz(element_selectionne,"")
qdf.Parameters("bannir_client2") = Nz(element_selectionne2,"")
qdf.Parameters("bannir_client3") = Nz(element_selectionne3,"")
qdf.Parameters("bannir_client4") = Nz(element_selectionne4,"")
qdf.Parameters("bannir_client5") = Nz(element_selectionne5,"")
qdf.Parameters("bannir_client6") = Nz(element_selectionne6,"")
qdf.Parameters("bannir_client7") = Nz(element_selectionne7,"")
qdf.OpenRecordset
Set rcs = qdf.OpenRecordset
rcs.MoveFirst
message = rcs("Lib_client")

A noter: si les paramètres sont des champs numériques, retire les "".

--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info


jobardu92
Le #6380191
On 14 nov, 14:37, Thierry (ze Titi) wrote:
As-tu vérifié que la requête avec les paramètres correctement
renseignés ramenait bien quelque chose ?
Par ailleurs, si elle ramène plusieurs enregistrements, il serait bon
de les parcourir. Quoiqu'il en soit:

qdf.OpenRecordset
Set rcs = qdf.OpenRecordset
rcs.MoveLast
rcs.MoveFirst
message = rcs("Lib_client")

En ce jour mémorable du mercredi 14/11/2007, tu as émis l'idée
suivante:
Il me manque quelque chose mais quoi? Mystère...



Set qdf = CurrentDb.QueryDefs("essai")
qdf.Parameters("zone_de_saisie") = zone_de_saisie.Value
qdf.Parameters("bannir_client1") = Nz(element_selectionne,"")
qdf.Parameters("bannir_client2") = Nz(element_selectionne2,"")
qdf.Parameters("bannir_client3") = Nz(element_selectionne3,"")
qdf.Parameters("bannir_client4") = Nz(element_selectionne4,"")
qdf.Parameters("bannir_client5") = Nz(element_selectionne5,"")
qdf.Parameters("bannir_client6") = Nz(element_selectionne6,"")
qdf.Parameters("bannir_client7") = Nz(element_selectionne7,"")
qdf.OpenRecordset
Set rcs = qdf.OpenRecordset
rcs.MoveFirst
message = rcs("Lib_client")

A noter: si les paramètres sont des champs numériques, retire les "".

--
Cordialement,
Thierry

Tout pour réussir avec Access :http://www.mpfa.info


AH...J'ai déjà trouvé un COUAC ^^.

déjà quand je mets ceci:
========================= ===============
qdf.Parameters("bannir_client1") = bannir_client1.Value
========================= ===============
il me met la valeur du champs comme = "PRIMAGAZ" à la place de NULL
^^!

Par contre ça bloque toujours... dès que j'appelle la variable RCS sur
la fin qui lui pose problème.
il m'indique l'erreur ici a chaque fois comme "aucun enregistrement en
cours" :
========================= ==============
rcs.MoveFirst
========================= ==============

il y a peut etre une boucle a indiquer comme un "wile not
rcs.eof....."

Merci!



Fabien
Le #6379961
On 14 nov, 14:37, Thierry (ze Titi) wrote:
As-tu vérifié que la requête avec les paramètres correctement
renseignés ramenait bien quelque chose ?
Par ailleurs, si elle ramène plusieurs enregistrements, il serait bon
de les parcourir. Quoiqu'il en soit:
qdf.OpenRecordset
Set rcs = qdf.OpenRecordset
rcs.MoveLast
rcs.MoveFirst
message = rcs("Lib_client")
En ce jour mémorable du mercredi 14/11/2007, tu as émis l'idée
suivante:
Il me manque quelque chose mais quoi? Mystère...

Set qdf = CurrentDb.QueryDefs("essai")

qdf.Parameters("zone_de_saisie") = zone_de_saisie.Value
qdf.Parameters("bannir_client1") = Nz(element_selectionne,"")
qdf.Parameters("bannir_client2") = Nz(element_selectionne2,"")
qdf.Parameters("bannir_client3") = Nz(element_selectionne3,"")
qdf.Parameters("bannir_client4") = Nz(element_selectionne4,"")
qdf.Parameters("bannir_client5") = Nz(element_selectionne5,"")
qdf.Parameters("bannir_client6") = Nz(element_selectionne6,"")
qdf.Parameters("bannir_client7") = Nz(element_selectionne7,"")
qdf.OpenRecordset
Set rcs = qdf.OpenRecordset
rcs.MoveFirst
message = rcs("Lib_client")

A noter: si les paramètres sont des champs numériques, retire les "".

--
Cordialement,
Thierry

Tout pour réussir avec Access :http://www.mpfa.info


AH...J'ai déjà trouvé un COUAC ^^.

déjà quand je mets ceci:
======================================= > qdf.Parameters("bannir_client1") = bannir_client1.Value
======================================= > il me met la valeur du champs comme = "PRIMAGAZ" à la place de NULL
^^!

Par contre ça bloque toujours... dès que j'appelle la variable RCS sur
la fin qui lui pose problème.
il m'indique l'erreur ici a chaque fois comme "aucun enregistrement en
cours" :
====================================== > rcs.MoveFirst
====================================== >
il y a peut etre une boucle a indiquer comme un "wile not
rcs.eof....."

Merci!

Salut,

dans ton précédent post je te proposais de regarder le contenu de ta
requete en mode debug lors du plantage.
debug.print qdf.sql
Ca donne quoi ?




Fabien
Le #6379931
On 14 nov, 14:37, Thierry (ze Titi) wrote:
As-tu vérifié que la requête avec les paramètres correctement
renseignés ramenait bien quelque chose ?
Par ailleurs, si elle ramène plusieurs enregistrements, il serait bon
de les parcourir. Quoiqu'il en soit:
qdf.OpenRecordset
Set rcs = qdf.OpenRecordset
rcs.MoveLast
rcs.MoveFirst
message = rcs("Lib_client")
En ce jour mémorable du mercredi 14/11/2007, tu as émis l'idée
suivante:
Il me manque quelque chose mais quoi? Mystère...

Set qdf = CurrentDb.QueryDefs("essai")

qdf.Parameters("zone_de_saisie") = zone_de_saisie.Value
qdf.Parameters("bannir_client1") = Nz(element_selectionne,"")
qdf.Parameters("bannir_client2") = Nz(element_selectionne2,"")
qdf.Parameters("bannir_client3") = Nz(element_selectionne3,"")
qdf.Parameters("bannir_client4") = Nz(element_selectionne4,"")
qdf.Parameters("bannir_client5") = Nz(element_selectionne5,"")
qdf.Parameters("bannir_client6") = Nz(element_selectionne6,"")
qdf.Parameters("bannir_client7") = Nz(element_selectionne7,"")
qdf.OpenRecordset
Set rcs = qdf.OpenRecordset
rcs.MoveFirst
message = rcs("Lib_client")

A noter: si les paramètres sont des champs numériques, retire les "".

--
Cordialement,
Thierry

Tout pour réussir avec Access :http://www.mpfa.info


AH...J'ai déjà trouvé un COUAC ^^.

déjà quand je mets ceci:
======================================= > qdf.Parameters("bannir_client1") = bannir_client1.Value
======================================= > il me met la valeur du champs comme = "PRIMAGAZ" à la place de NULL
^^!

Par contre ça bloque toujours... dès que j'appelle la variable RCS sur
la fin qui lui pose problème.
il m'indique l'erreur ici a chaque fois comme "aucun enregistrement en
cours" :
====================================== > rcs.MoveFirst
====================================== >
il y a peut etre une boucle a indiquer comme un "wile not
rcs.eof....."

Merci!

Suite de la réponse sur le fil précédent ....


Ps : evite deux post sur le même sujet, surtout quant tu as des réponses
sur le premier




Publicité
Poster une réponse
Anonyme