j'aimerais lire dans le champ d'une table chaque valeur puis en fonction de
cette variable, adapter la suite de la procédure.
Pour la deuxième partie, je me sens capable de m'en sortir, mais c'est la
première partie qui coince.
Dans XL, je saurais faire, mais ici, ne sais pas comment passer en revue les
enregistrements.
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
Bonjour Essaye ceci :
Sub fParcourirtable()
Dim dbs As DAO.Database Dim rst As DAO.Recordset Set dbs = Application.CurrentDb Set rst = dbs.OpenRecordset("LaTable") rst.MoveLast rst.MoveFirst Do While Not rst.EOF 'La Procédure liée à la valeur du champ LeChampTexte ici 'exemple : MsgBox rst("LeChampTexte") rst.MoveNext Loop rst.Close dbs.Close Set rst = Nothing set dbs = Nothing
End Sub
a+ -- Arnaud --------------------------------------------- infos, conseils et liens : http://www.mpfa.info ---------------------------------------------
"Jac" a écrit dans le message de news: 448b7330$0$2113$
Bonjour à tous,
j'aimerais lire dans le champ d'une table chaque valeur puis en fonction de cette variable, adapter la suite de la procédure. Pour la deuxième partie, je me sens capable de m'en sortir, mais c'est la première partie qui coince. Dans XL, je saurais faire, mais ici, ne sais pas comment passer en revue les enregistrements.
Merci d'avance à qui me mettra sur la voie.
Jac
Bonjour
Essaye ceci :
Sub fParcourirtable()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = Application.CurrentDb
Set rst = dbs.OpenRecordset("LaTable")
rst.MoveLast
rst.MoveFirst
Do While Not rst.EOF
'La Procédure liée à la valeur du champ LeChampTexte ici
'exemple : MsgBox rst("LeChampTexte")
rst.MoveNext
Loop
rst.Close
dbs.Close
Set rst = Nothing
set dbs = Nothing
End Sub
a+
--
Arnaud
---------------------------------------------
infos, conseils et liens : http://www.mpfa.info
---------------------------------------------
"Jac" <Jsansp@mfra.net> a écrit dans le message de news: 448b7330$0$2113$636a55ce@news.free.fr...
Bonjour à tous,
j'aimerais lire dans le champ d'une table chaque valeur puis en fonction de cette variable, adapter la suite de la procédure.
Pour la deuxième partie, je me sens capable de m'en sortir, mais c'est la première partie qui coince.
Dans XL, je saurais faire, mais ici, ne sais pas comment passer en revue les enregistrements.
Dim dbs As DAO.Database Dim rst As DAO.Recordset Set dbs = Application.CurrentDb Set rst = dbs.OpenRecordset("LaTable") rst.MoveLast rst.MoveFirst Do While Not rst.EOF 'La Procédure liée à la valeur du champ LeChampTexte ici 'exemple : MsgBox rst("LeChampTexte") rst.MoveNext Loop rst.Close dbs.Close Set rst = Nothing set dbs = Nothing
End Sub
a+ -- Arnaud --------------------------------------------- infos, conseils et liens : http://www.mpfa.info ---------------------------------------------
"Jac" a écrit dans le message de news: 448b7330$0$2113$
Bonjour à tous,
j'aimerais lire dans le champ d'une table chaque valeur puis en fonction de cette variable, adapter la suite de la procédure. Pour la deuxième partie, je me sens capable de m'en sortir, mais c'est la première partie qui coince. Dans XL, je saurais faire, mais ici, ne sais pas comment passer en revue les enregistrements.
