Bonsoir
Je voudrais écrire en VBA une procédure me permettant de lire tous les
enregistrements d'une table (T-Produits) .
Cette table contient les rubriques (Reference, Libelle, Stock). Les 2
premieres texte et la derniere numerique.
Merci de votre aide
jcp
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
Fabien
jcp66 a écrit :
Bonsoir Je voudrais écrire en VBA une procédure me permettant de lire tous les enregistrements d'une table (T-Produits) . Cette table contient les rubriques (Reference, Libelle, Stock). Les 2 premieres texte et la derniere numerique. Merci de votre aide jcp
Salut, Avec quelque chose comme Dim Rst_Produit as dao.recordset set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock from [T-Produits]")
while not Rst_Produit.eof 'Ici le code que tu veux 'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant Wend Rst_Produit.close Rst_Produit=nothing
@+
jcp66 a écrit :
Bonsoir
Je voudrais écrire en VBA une procédure me permettant de lire tous les
enregistrements d'une table (T-Produits) .
Cette table contient les rubriques (Reference, Libelle, Stock). Les 2
premieres texte et la derniere numerique.
Merci de votre aide
jcp
Salut,
Avec quelque chose comme
Dim Rst_Produit as dao.recordset
set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock
from [T-Produits]")
while not Rst_Produit.eof
'Ici le code que tu veux
'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant
Wend
Rst_Produit.close
Rst_Produit=nothing
Bonsoir Je voudrais écrire en VBA une procédure me permettant de lire tous les enregistrements d'une table (T-Produits) . Cette table contient les rubriques (Reference, Libelle, Stock). Les 2 premieres texte et la derniere numerique. Merci de votre aide jcp
Salut, Avec quelque chose comme Dim Rst_Produit as dao.recordset set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock from [T-Produits]")
while not Rst_Produit.eof 'Ici le code que tu veux 'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant Wend Rst_Produit.close Rst_Produit=nothing
@+
Eric
Fabien a écrit :
jcp66 a écrit :
Bonsoir Je voudrais écrire en VBA une procédure me permettant de lire tous les enregistrements d'une table (T-Produits) . Cette table contient les rubriques (Reference, Libelle, Stock). Les 2 premieres texte et la derniere numerique. Merci de votre aide jcp
Salut, Avec quelque chose comme Dim Rst_Produit as dao.recordset set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock from [T-Produits]")
while not Rst_Produit.eof 'Ici le code que tu veux 'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant Wend Rst_Produit.close Rst_Produit=nothing
@+
Bonjour Fabien,
Il manquerait pas SET devant rst_Produit = Nothing
;-) -- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Fabien a écrit :
jcp66 a écrit :
Bonsoir
Je voudrais écrire en VBA une procédure me permettant de lire tous les
enregistrements d'une table (T-Produits) .
Cette table contient les rubriques (Reference, Libelle, Stock). Les 2
premieres texte et la derniere numerique.
Merci de votre aide
jcp
Salut,
Avec quelque chose comme
Dim Rst_Produit as dao.recordset
set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock
from [T-Produits]")
while not Rst_Produit.eof
'Ici le code que tu veux
'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant
Wend
Rst_Produit.close
Rst_Produit=nothing
@+
Bonjour Fabien,
Il manquerait pas SET devant rst_Produit = Nothing
;-)
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir Je voudrais écrire en VBA une procédure me permettant de lire tous les enregistrements d'une table (T-Produits) . Cette table contient les rubriques (Reference, Libelle, Stock). Les 2 premieres texte et la derniere numerique. Merci de votre aide jcp
Salut, Avec quelque chose comme Dim Rst_Produit as dao.recordset set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock from [T-Produits]")
while not Rst_Produit.eof 'Ici le code que tu veux 'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant Wend Rst_Produit.close Rst_Produit=nothing
@+
Bonjour Fabien,
Il manquerait pas SET devant rst_Produit = Nothing
;-) -- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Fabien
Eric a écrit :
Fabien a écrit :
jcp66 a écrit :
Bonsoir Je voudrais écrire en VBA une procédure me permettant de lire tous les enregistrements d'une table (T-Produits) . Cette table contient les rubriques (Reference, Libelle, Stock). Les 2 premieres texte et la derniere numerique. Merci de votre aide jcp
Salut, Avec quelque chose comme Dim Rst_Produit as dao.recordset set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock from [T-Produits]")
while not Rst_Produit.eof 'Ici le code que tu veux 'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant Wend Rst_Produit.close Rst_Produit=nothing
@+
Bonjour Fabien,
Il manquerait pas SET devant rst_Produit = Nothing
;-)
Mais bon sang, c'est bien sur ;-)
Eric a écrit :
Fabien a écrit :
jcp66 a écrit :
Bonsoir
Je voudrais écrire en VBA une procédure me permettant de lire tous
les enregistrements d'une table (T-Produits) .
Cette table contient les rubriques (Reference, Libelle, Stock). Les 2
premieres texte et la derniere numerique.
Merci de votre aide
jcp
Salut,
Avec quelque chose comme
Dim Rst_Produit as dao.recordset
set rst_Produit=currentdb.openrecordset("Select
reference,libelle,stock from [T-Produits]")
while not Rst_Produit.eof
'Ici le code que tu veux
'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant
Wend
Rst_Produit.close
Rst_Produit=nothing
@+
Bonjour Fabien,
Il manquerait pas SET devant rst_Produit = Nothing
Bonsoir Je voudrais écrire en VBA une procédure me permettant de lire tous les enregistrements d'une table (T-Produits) . Cette table contient les rubriques (Reference, Libelle, Stock). Les 2 premieres texte et la derniere numerique. Merci de votre aide jcp
Salut, Avec quelque chose comme Dim Rst_Produit as dao.recordset set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock from [T-Produits]")
while not Rst_Produit.eof 'Ici le code que tu veux 'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant Wend Rst_Produit.close Rst_Produit=nothing
@+
Bonjour Fabien,
Il manquerait pas SET devant rst_Produit = Nothing
;-)
Mais bon sang, c'est bien sur ;-)
jcp66
Merci pour ce code. Mais j'ai encore un pb. La ligne Set Rst_Produit = CurrentDb.OpenRecordset("Select reference,libelle,stock from [T-Produits]") me donne le message Erreur 3061 Trop peu de parametres 1 attendu a+ jcp
"Fabien" a écrit dans le message de news:
Eric a écrit :
Fabien a écrit :
jcp66 a écrit :
Bonsoir Je voudrais écrire en VBA une procédure me permettant de lire tous les enregistrements d'une table (T-Produits) . Cette table contient les rubriques (Reference, Libelle, Stock). Les 2 premieres texte et la derniere numerique. Merci de votre aide jcp
Salut, Avec quelque chose comme Dim Rst_Produit as dao.recordset set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock from [T-Produits]")
while not Rst_Produit.eof 'Ici le code que tu veux 'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant Wend Rst_Produit.close Rst_Produit=nothing
@+
Bonjour Fabien,
Il manquerait pas SET devant rst_Produit = Nothing
;-)
Mais bon sang, c'est bien sur ;-)
Merci pour ce code.
Mais j'ai encore un pb.
La ligne
Set Rst_Produit = CurrentDb.OpenRecordset("Select reference,libelle,stock
from [T-Produits]")
me donne le message Erreur 3061 Trop peu de parametres 1 attendu
a+
jcp
"Fabien" <UrbaniakFabienxxxx@Neuf.fr> a écrit dans le message de news:
O6bcDRKnJHA.1252@TK2MSFTNGP03.phx.gbl...
Eric a écrit :
Fabien a écrit :
jcp66 a écrit :
Bonsoir
Je voudrais écrire en VBA une procédure me permettant de lire tous les
enregistrements d'une table (T-Produits) .
Cette table contient les rubriques (Reference, Libelle, Stock). Les 2
premieres texte et la derniere numerique.
Merci de votre aide
jcp
Salut,
Avec quelque chose comme
Dim Rst_Produit as dao.recordset
set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock
from [T-Produits]")
while not Rst_Produit.eof
'Ici le code que tu veux
'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant
Wend
Rst_Produit.close
Rst_Produit=nothing
@+
Bonjour Fabien,
Il manquerait pas SET devant rst_Produit = Nothing
Merci pour ce code. Mais j'ai encore un pb. La ligne Set Rst_Produit = CurrentDb.OpenRecordset("Select reference,libelle,stock from [T-Produits]") me donne le message Erreur 3061 Trop peu de parametres 1 attendu a+ jcp
"Fabien" a écrit dans le message de news:
Eric a écrit :
Fabien a écrit :
jcp66 a écrit :
Bonsoir Je voudrais écrire en VBA une procédure me permettant de lire tous les enregistrements d'une table (T-Produits) . Cette table contient les rubriques (Reference, Libelle, Stock). Les 2 premieres texte et la derniere numerique. Merci de votre aide jcp
Salut, Avec quelque chose comme Dim Rst_Produit as dao.recordset set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock from [T-Produits]")
while not Rst_Produit.eof 'Ici le code que tu veux 'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant Wend Rst_Produit.close Rst_Produit=nothing
@+
Bonjour Fabien,
Il manquerait pas SET devant rst_Produit = Nothing
;-)
Mais bon sang, c'est bien sur ;-)
Fabien
jcp66 a écrit :
Merci pour ce code. Mais j'ai encore un pb. La ligne Set Rst_Produit = CurrentDb.OpenRecordset("Select reference,libelle,stock from [T-Produits]") me donne le message Erreur 3061 Trop peu de parametres 1 attendu a+ jcp
"Fabien" a écrit dans le message de news:
Eric a écrit :
Fabien a écrit :
jcp66 a écrit :
Bonsoir Je voudrais écrire en VBA une procédure me permettant de lire tous les enregistrements d'une table (T-Produits) . Cette table contient les rubriques (Reference, Libelle, Stock). Les 2 premieres texte et la derniere numerique. Merci de votre aide jcp
Salut, Avec quelque chose comme Dim Rst_Produit as dao.recordset set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock from [T-Produits]")
while not Rst_Produit.eof 'Ici le code que tu veux 'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant Wend Rst_Produit.close Rst_Produit=nothing
@+
Bonjour Fabien,
Il manquerait pas SET devant rst_Produit = Nothing
;-)
Mais bon sang, c'est bien sur ;-)
Bonjour, Un nom de champ mal orthographié ? @+
jcp66 a écrit :
Merci pour ce code.
Mais j'ai encore un pb.
La ligne
Set Rst_Produit = CurrentDb.OpenRecordset("Select reference,libelle,stock
from [T-Produits]")
me donne le message Erreur 3061 Trop peu de parametres 1 attendu
a+
jcp
"Fabien" <UrbaniakFabienxxxx@Neuf.fr> a écrit dans le message de news:
O6bcDRKnJHA.1252@TK2MSFTNGP03.phx.gbl...
Eric a écrit :
Fabien a écrit :
jcp66 a écrit :
Bonsoir
Je voudrais écrire en VBA une procédure me permettant de lire tous les
enregistrements d'une table (T-Produits) .
Cette table contient les rubriques (Reference, Libelle, Stock). Les 2
premieres texte et la derniere numerique.
Merci de votre aide
jcp
Salut,
Avec quelque chose comme
Dim Rst_Produit as dao.recordset
set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock
from [T-Produits]")
while not Rst_Produit.eof
'Ici le code que tu veux
'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant
Wend
Rst_Produit.close
Rst_Produit=nothing
@+
Bonjour Fabien,
Il manquerait pas SET devant rst_Produit = Nothing
Merci pour ce code. Mais j'ai encore un pb. La ligne Set Rst_Produit = CurrentDb.OpenRecordset("Select reference,libelle,stock from [T-Produits]") me donne le message Erreur 3061 Trop peu de parametres 1 attendu a+ jcp
"Fabien" a écrit dans le message de news:
Eric a écrit :
Fabien a écrit :
jcp66 a écrit :
Bonsoir Je voudrais écrire en VBA une procédure me permettant de lire tous les enregistrements d'une table (T-Produits) . Cette table contient les rubriques (Reference, Libelle, Stock). Les 2 premieres texte et la derniere numerique. Merci de votre aide jcp
Salut, Avec quelque chose comme Dim Rst_Produit as dao.recordset set rst_Produit=currentdb.openrecordset("Select reference,libelle,stock from [T-Produits]")
while not Rst_Produit.eof 'Ici le code que tu veux 'Pour acceder aux données : Reference_lue=Rst_Produit("reference")
Rst_Produit.Movenext 'Pour passer a l'enreg suivant Wend Rst_Produit.close Rst_Produit=nothing
@+
Bonjour Fabien,
Il manquerait pas SET devant rst_Produit = Nothing
