bonjour j'ai ecrit ce bout de code pour imrpimer un etat
Le souci c'est que lorsque je met la varible en "dur"=20
comme ci-dessous c'est ok cela marche.
Mais je n'arrive pas =E0 la remplacer par le d=E9claration de=20
mon recordset, il ne me le prends pas
j'ai essay=E9 :
DoCmd.OpenReport "etat1", acViewPreview, , "[N=B0_compte]
=3D'" & rs!N=B0_compte & "'" mais cela ne marche pas
Ou est ce que je me plante
Merci
Mon bout de code :
Option Compare Database
Private Sub OuverturerecordSet()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db =3D CurrentDb
Set Rs =3D Db.OpenRecordset("SELECT* FROM Rq_recordset",=20
dbOpenForwardOnly, dbReadOnly)
=20
Do While Not Rs.EOF
DoCmd.OpenReport "etat1", acViewPreview, , "[N=B0_compte]
=3D'80355603111'"
Rs.MoveNext
Loop
=20
Exit_Sub:
Rs.Close
Set Rs =3D Nothing
Set Db =3D Nothing
End Sub
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
Logipro
Bonjour,
Dans les chaînes de caractères c'est une chose qui se produit à l'occasion, insère seulement un Trim(rs!N°_compte) dans ta clause where et ton problème devrais être corriger.
Salutation !
Robert Simard Logipro
"bxman" a écrit dans le message de news:2ade501c46854$438de210$ bonjour j'ai ecrit ce bout de code pour imrpimer un etat Le souci c'est que lorsque je met la varible en "dur" comme ci-dessous c'est ok cela marche. Mais je n'arrive pas à la remplacer par le déclaration de mon recordset, il ne me le prends pas j'ai essayé : DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='" & rs!N°_compte & "'" mais cela ne marche pas Ou est ce que je me plante
Merci
Mon bout de code :
Option Compare Database
Private Sub OuverturerecordSet() Dim Db As DAO.Database Dim Rs As DAO.Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("SELECT* FROM Rq_recordset", dbOpenForwardOnly, dbReadOnly)
Do While Not Rs.EOF DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='80355603111'" Rs.MoveNext Loop
Exit_Sub: Rs.Close Set Rs = Nothing Set Db = Nothing End Sub
Bonjour,
Dans les chaînes de caractères c'est une chose qui se produit à l'occasion,
insère seulement un Trim(rs!N°_compte) dans ta clause where et ton problème
devrais être corriger.
Salutation !
Robert Simard
Logipro
"bxman" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2ade501c46854$438de210$a601280a@phx.gbl...
bonjour j'ai ecrit ce bout de code pour imrpimer un etat
Le souci c'est que lorsque je met la varible en "dur"
comme ci-dessous c'est ok cela marche.
Mais je n'arrive pas à la remplacer par le déclaration de
mon recordset, il ne me le prends pas
j'ai essayé :
DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte]
='" & rs!N°_compte & "'" mais cela ne marche pas
Ou est ce que je me plante
Merci
Mon bout de code :
Option Compare Database
Private Sub OuverturerecordSet()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT* FROM Rq_recordset",
dbOpenForwardOnly, dbReadOnly)
Do While Not Rs.EOF
DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte]
='80355603111'"
Rs.MoveNext
Loop
Exit_Sub:
Rs.Close
Set Rs = Nothing
Set Db = Nothing
End Sub
Dans les chaînes de caractères c'est une chose qui se produit à l'occasion, insère seulement un Trim(rs!N°_compte) dans ta clause where et ton problème devrais être corriger.
Salutation !
Robert Simard Logipro
"bxman" a écrit dans le message de news:2ade501c46854$438de210$ bonjour j'ai ecrit ce bout de code pour imrpimer un etat Le souci c'est que lorsque je met la varible en "dur" comme ci-dessous c'est ok cela marche. Mais je n'arrive pas à la remplacer par le déclaration de mon recordset, il ne me le prends pas j'ai essayé : DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='" & rs!N°_compte & "'" mais cela ne marche pas Ou est ce que je me plante
Merci
Mon bout de code :
Option Compare Database
Private Sub OuverturerecordSet() Dim Db As DAO.Database Dim Rs As DAO.Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("SELECT* FROM Rq_recordset", dbOpenForwardOnly, dbReadOnly)
Do While Not Rs.EOF DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='80355603111'" Rs.MoveNext Loop
Exit_Sub: Rs.Close Set Rs = Nothing Set Db = Nothing End Sub
bxman
merci, j'avais trouvé ma bourde, j'ecrivais rs au lieu de Rs; donc voila cela a eu marché, hier tout fonctionnait nickel. mais je veux réutilisé le biniou, et la erreur 3265: element non trouvé dans cette collection !!!!!!!! snif je cherche pourquoi mais je trouve pas.
-----Message d'origine----- Bonjour,
Dans les chaînes de caractères c'est une chose qui se produit à l'occasion,
insère seulement un Trim(rs!N°_compte) dans ta clause where et ton problème
devrais être corriger.
Salutation !
Robert Simard Logipro
"bxman" a écrit dans le message de
news:2ade501c46854$438de210$ bonjour j'ai ecrit ce bout de code pour imrpimer un etat Le souci c'est que lorsque je met la varible en "dur" comme ci-dessous c'est ok cela marche. Mais je n'arrive pas à la remplacer par le déclaration de mon recordset, il ne me le prends pas j'ai essayé : DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='" & rs!N°_compte & "'" mais cela ne marche pas Ou est ce que je me plante
Merci
Mon bout de code :
Option Compare Database
Private Sub OuverturerecordSet() Dim Db As DAO.Database Dim Rs As DAO.Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("SELECT* FROM Rq_recordset", dbOpenForwardOnly, dbReadOnly)
Do While Not Rs.EOF DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='80355603111'" Rs.MoveNext Loop
Exit_Sub: Rs.Close Set Rs = Nothing Set Db = Nothing End Sub
.
merci, j'avais trouvé ma bourde, j'ecrivais rs au lieu de
Rs;
donc voila cela a eu marché, hier tout fonctionnait nickel.
mais je veux réutilisé le biniou, et la erreur 3265:
element non trouvé dans cette collection !!!!!!!!
snif
je cherche pourquoi mais je trouve pas.
-----Message d'origine-----
Bonjour,
Dans les chaînes de caractères c'est une chose qui se
produit à l'occasion,
insère seulement un Trim(rs!N°_compte) dans ta clause
where et ton problème
devrais être corriger.
Salutation !
Robert Simard
Logipro
"bxman" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:2ade501c46854$438de210$a601280a@phx.gbl...
bonjour j'ai ecrit ce bout de code pour imrpimer un etat
Le souci c'est que lorsque je met la varible en "dur"
comme ci-dessous c'est ok cela marche.
Mais je n'arrive pas à la remplacer par le déclaration de
mon recordset, il ne me le prends pas
j'ai essayé :
DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte]
='" & rs!N°_compte & "'" mais cela ne marche pas
Ou est ce que je me plante
Merci
Mon bout de code :
Option Compare Database
Private Sub OuverturerecordSet()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT* FROM Rq_recordset",
dbOpenForwardOnly, dbReadOnly)
Do While Not Rs.EOF
DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte]
='80355603111'"
Rs.MoveNext
Loop
Exit_Sub:
Rs.Close
Set Rs = Nothing
Set Db = Nothing
End Sub
merci, j'avais trouvé ma bourde, j'ecrivais rs au lieu de Rs; donc voila cela a eu marché, hier tout fonctionnait nickel. mais je veux réutilisé le biniou, et la erreur 3265: element non trouvé dans cette collection !!!!!!!! snif je cherche pourquoi mais je trouve pas.
-----Message d'origine----- Bonjour,
Dans les chaînes de caractères c'est une chose qui se produit à l'occasion,
insère seulement un Trim(rs!N°_compte) dans ta clause where et ton problème
devrais être corriger.
Salutation !
Robert Simard Logipro
"bxman" a écrit dans le message de
news:2ade501c46854$438de210$ bonjour j'ai ecrit ce bout de code pour imrpimer un etat Le souci c'est que lorsque je met la varible en "dur" comme ci-dessous c'est ok cela marche. Mais je n'arrive pas à la remplacer par le déclaration de mon recordset, il ne me le prends pas j'ai essayé : DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='" & rs!N°_compte & "'" mais cela ne marche pas Ou est ce que je me plante
Merci
Mon bout de code :
Option Compare Database
Private Sub OuverturerecordSet() Dim Db As DAO.Database Dim Rs As DAO.Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("SELECT* FROM Rq_recordset", dbOpenForwardOnly, dbReadOnly)
Do While Not Rs.EOF DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='80355603111'" Rs.MoveNext Loop
Exit_Sub: Rs.Close Set Rs = Nothing Set Db = Nothing End Sub
.
Eric
Bonjour,
tu as ce message car le champ N°_Compte n'existe pas dans ta requête Rq_recordset
(Pour mémoire:) Set Rs = Db.OpenRecordset("SELECT * FROM Rq_recordset",dbOpenForwardOnly, dbReadOnly)
Ouvres Rq_recordset pour vérifier
A+ Eric
"bxman" écrivait news:2c44c01c46921 $279c2bc0$:
merci, j'avais trouvé ma bourde, j'ecrivais rs au lieu de Rs; donc voila cela a eu marché, hier tout fonctionnait nickel. mais je veux réutilisé le biniou, et la erreur 3265: element non trouvé dans cette collection !!!!!!!! snif je cherche pourquoi mais je trouve pas.
-----Message d'origine----- Bonjour,
Dans les chaînes de caractères c'est une chose qui se produit à l'occasion,
insère seulement un Trim(rs!N°_compte) dans ta clause where et ton problème
devrais être corriger.
Salutation !
Robert Simard Logipro
"bxman" a écrit dans le message de
news:2ade501c46854$438de210$ bonjour j'ai ecrit ce bout de code pour imrpimer un etat Le souci c'est que lorsque je met la varible en "dur" comme ci-dessous c'est ok cela marche. Mais je n'arrive pas à la remplacer par le déclaration de mon recordset, il ne me le prends pas j'ai essayé : DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='" & rs!N°_compte & "'" mais cela ne marche pas Ou est ce que je me plante
Merci
Mon bout de code :
Option Compare Database
Private Sub OuverturerecordSet() Dim Db As DAO.Database Dim Rs As DAO.Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("SELECT* FROM Rq_recordset", dbOpenForwardOnly, dbReadOnly)
Do While Not Rs.EOF DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='80355603111'" Rs.MoveNext Loop
Exit_Sub: Rs.Close Set Rs = Nothing Set Db = Nothing End Sub
.
Bonjour,
tu as ce message car le champ N°_Compte n'existe pas dans ta requête
Rq_recordset
(Pour mémoire:)
Set Rs = Db.OpenRecordset("SELECT * FROM Rq_recordset",dbOpenForwardOnly,
dbReadOnly)
merci, j'avais trouvé ma bourde, j'ecrivais rs au lieu de
Rs;
donc voila cela a eu marché, hier tout fonctionnait nickel.
mais je veux réutilisé le biniou, et la erreur 3265:
element non trouvé dans cette collection !!!!!!!!
snif
je cherche pourquoi mais je trouve pas.
-----Message d'origine-----
Bonjour,
Dans les chaînes de caractères c'est une chose qui se
produit à l'occasion,
insère seulement un Trim(rs!N°_compte) dans ta clause
where et ton problème
devrais être corriger.
Salutation !
Robert Simard
Logipro
"bxman" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:2ade501c46854$438de210$a601280a@phx.gbl...
bonjour j'ai ecrit ce bout de code pour imrpimer un etat
Le souci c'est que lorsque je met la varible en "dur"
comme ci-dessous c'est ok cela marche.
Mais je n'arrive pas à la remplacer par le déclaration de
mon recordset, il ne me le prends pas
j'ai essayé :
DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte]
='" & rs!N°_compte & "'" mais cela ne marche pas
Ou est ce que je me plante
Merci
Mon bout de code :
Option Compare Database
Private Sub OuverturerecordSet()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT* FROM Rq_recordset",
dbOpenForwardOnly, dbReadOnly)
Do While Not Rs.EOF
DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte]
='80355603111'"
Rs.MoveNext
Loop
Exit_Sub:
Rs.Close
Set Rs = Nothing
Set Db = Nothing
End Sub
tu as ce message car le champ N°_Compte n'existe pas dans ta requête Rq_recordset
(Pour mémoire:) Set Rs = Db.OpenRecordset("SELECT * FROM Rq_recordset",dbOpenForwardOnly, dbReadOnly)
Ouvres Rq_recordset pour vérifier
A+ Eric
"bxman" écrivait news:2c44c01c46921 $279c2bc0$:
merci, j'avais trouvé ma bourde, j'ecrivais rs au lieu de Rs; donc voila cela a eu marché, hier tout fonctionnait nickel. mais je veux réutilisé le biniou, et la erreur 3265: element non trouvé dans cette collection !!!!!!!! snif je cherche pourquoi mais je trouve pas.
-----Message d'origine----- Bonjour,
Dans les chaînes de caractères c'est une chose qui se produit à l'occasion,
insère seulement un Trim(rs!N°_compte) dans ta clause where et ton problème
devrais être corriger.
Salutation !
Robert Simard Logipro
"bxman" a écrit dans le message de
news:2ade501c46854$438de210$ bonjour j'ai ecrit ce bout de code pour imrpimer un etat Le souci c'est que lorsque je met la varible en "dur" comme ci-dessous c'est ok cela marche. Mais je n'arrive pas à la remplacer par le déclaration de mon recordset, il ne me le prends pas j'ai essayé : DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='" & rs!N°_compte & "'" mais cela ne marche pas Ou est ce que je me plante
Merci
Mon bout de code :
Option Compare Database
Private Sub OuverturerecordSet() Dim Db As DAO.Database Dim Rs As DAO.Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("SELECT* FROM Rq_recordset", dbOpenForwardOnly, dbReadOnly)
Do While Not Rs.EOF DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='80355603111'" Rs.MoveNext Loop
Exit_Sub: Rs.Close Set Rs = Nothing Set Db = Nothing End Sub
.
bxman
merci c'est cela "Eric" a écrit dans le message de news:
Bonjour,
tu as ce message car le champ N°_Compte n'existe pas dans ta requête Rq_recordset
(Pour mémoire:) Set Rs = Db.OpenRecordset("SELECT * FROM Rq_recordset",dbOpenForwardOnly, dbReadOnly)
Ouvres Rq_recordset pour vérifier
A+ Eric
"bxman" écrivait news:2c44c01c46921 $279c2bc0$:
merci, j'avais trouvé ma bourde, j'ecrivais rs au lieu de Rs; donc voila cela a eu marché, hier tout fonctionnait nickel. mais je veux réutilisé le biniou, et la erreur 3265: element non trouvé dans cette collection !!!!!!!! snif je cherche pourquoi mais je trouve pas.
-----Message d'origine----- Bonjour,
Dans les chaînes de caractères c'est une chose qui se produit à l'occasion,
insère seulement un Trim(rs!N°_compte) dans ta clause where et ton problème
devrais être corriger.
Salutation !
Robert Simard Logipro
"bxman" a écrit dans le message de
news:2ade501c46854$438de210$ bonjour j'ai ecrit ce bout de code pour imrpimer un etat Le souci c'est que lorsque je met la varible en "dur" comme ci-dessous c'est ok cela marche. Mais je n'arrive pas à la remplacer par le déclaration de mon recordset, il ne me le prends pas j'ai essayé : DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='" & rs!N°_compte & "'" mais cela ne marche pas Ou est ce que je me plante
Merci
Mon bout de code :
Option Compare Database
Private Sub OuverturerecordSet() Dim Db As DAO.Database Dim Rs As DAO.Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("SELECT* FROM Rq_recordset", dbOpenForwardOnly, dbReadOnly)
Do While Not Rs.EOF DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='80355603111'" Rs.MoveNext Loop
Exit_Sub: Rs.Close Set Rs = Nothing Set Db = Nothing End Sub
.
merci
c'est cela
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de
news:XnF9525F226AC742fframZZhotmailcom@207.46.248.16...
Bonjour,
tu as ce message car le champ N°_Compte n'existe pas dans ta requête
Rq_recordset
(Pour mémoire:)
Set Rs = Db.OpenRecordset("SELECT * FROM Rq_recordset",dbOpenForwardOnly,
dbReadOnly)
merci, j'avais trouvé ma bourde, j'ecrivais rs au lieu de
Rs;
donc voila cela a eu marché, hier tout fonctionnait nickel.
mais je veux réutilisé le biniou, et la erreur 3265:
element non trouvé dans cette collection !!!!!!!!
snif
je cherche pourquoi mais je trouve pas.
-----Message d'origine-----
Bonjour,
Dans les chaînes de caractères c'est une chose qui se
produit à l'occasion,
insère seulement un Trim(rs!N°_compte) dans ta clause
where et ton problème
devrais être corriger.
Salutation !
Robert Simard
Logipro
"bxman" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:2ade501c46854$438de210$a601280a@phx.gbl...
bonjour j'ai ecrit ce bout de code pour imrpimer un etat
Le souci c'est que lorsque je met la varible en "dur"
comme ci-dessous c'est ok cela marche.
Mais je n'arrive pas à la remplacer par le déclaration de
mon recordset, il ne me le prends pas
j'ai essayé :
DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte]
='" & rs!N°_compte & "'" mais cela ne marche pas
Ou est ce que je me plante
Merci
Mon bout de code :
Option Compare Database
Private Sub OuverturerecordSet()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT* FROM Rq_recordset",
dbOpenForwardOnly, dbReadOnly)
Do While Not Rs.EOF
DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte]
='80355603111'"
Rs.MoveNext
Loop
Exit_Sub:
Rs.Close
Set Rs = Nothing
Set Db = Nothing
End Sub
merci c'est cela "Eric" a écrit dans le message de news:
Bonjour,
tu as ce message car le champ N°_Compte n'existe pas dans ta requête Rq_recordset
(Pour mémoire:) Set Rs = Db.OpenRecordset("SELECT * FROM Rq_recordset",dbOpenForwardOnly, dbReadOnly)
Ouvres Rq_recordset pour vérifier
A+ Eric
"bxman" écrivait news:2c44c01c46921 $279c2bc0$:
merci, j'avais trouvé ma bourde, j'ecrivais rs au lieu de Rs; donc voila cela a eu marché, hier tout fonctionnait nickel. mais je veux réutilisé le biniou, et la erreur 3265: element non trouvé dans cette collection !!!!!!!! snif je cherche pourquoi mais je trouve pas.
-----Message d'origine----- Bonjour,
Dans les chaînes de caractères c'est une chose qui se produit à l'occasion,
insère seulement un Trim(rs!N°_compte) dans ta clause where et ton problème
devrais être corriger.
Salutation !
Robert Simard Logipro
"bxman" a écrit dans le message de
news:2ade501c46854$438de210$ bonjour j'ai ecrit ce bout de code pour imrpimer un etat Le souci c'est que lorsque je met la varible en "dur" comme ci-dessous c'est ok cela marche. Mais je n'arrive pas à la remplacer par le déclaration de mon recordset, il ne me le prends pas j'ai essayé : DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='" & rs!N°_compte & "'" mais cela ne marche pas Ou est ce que je me plante
Merci
Mon bout de code :
Option Compare Database
Private Sub OuverturerecordSet() Dim Db As DAO.Database Dim Rs As DAO.Recordset Set Db = CurrentDb Set Rs = Db.OpenRecordset("SELECT* FROM Rq_recordset", dbOpenForwardOnly, dbReadOnly)
Do While Not Rs.EOF DoCmd.OpenReport "etat1", acViewPreview, , "[N°_compte] ='80355603111'" Rs.MoveNext Loop
Exit_Sub: Rs.Close Set Rs = Nothing Set Db = Nothing End Sub
