dans un module VBA, je veux définir 7 variables du style :
Dim V(1 to 7) as string
Selon la procédure je veux pouvoir utiliser de V1 à V7 en fonction du nombre
d'enregistrements traités avec (x) que j'augmente de 1 à chaque boucle
Do while .....
V(x) = rst![valeur] qui veux dire V1 puis à l'enregistrment
suivant V2 etc...
x = x + 1
rst.movenext
Loop
et ensuite pouvoir écrire le contenu des variables V1 à V7 dans une table
rst2.edit
rst2![champ1] = V1: rst2![champ2] = V2 etc..
rst2.update
J'ai du mal à écrire la procédure qui pemet d'augmenter la valeur de la
variable de 1 à chaque boucle.
Si quelqu'un peut m'aider ?
Merci
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
3stone
Salut,
"DS" a écrit: | et ensuite pouvoir écrire le contenu des variables V1 à V7 dans une table | rst2.edit | rst2![champ1] = V1: rst2![champ2] = V2 etc.. | rst2.update
Dim i as integer
for i = 1 to 7
rst2!("champ") & i = v(i)
next i
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
Salut,
"DS" <aaa@news.fr> a écrit:
| et ensuite pouvoir écrire le contenu des variables V1 à V7 dans une table
| rst2.edit
| rst2![champ1] = V1: rst2![champ2] = V2 etc..
| rst2.update
Dim i as integer
for i = 1 to 7
rst2!("champ") & i = v(i)
next i
--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
"DS" a écrit: | et ensuite pouvoir écrire le contenu des variables V1 à V7 dans une table | rst2.edit | rst2![champ1] = V1: rst2![champ2] = V2 etc.. | rst2.update
Dim i as integer
for i = 1 to 7
rst2!("champ") & i = v(i)
next i
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
Merci beaucoup ! Ca marche bien amicalement
Didier
Dim i as integer
for i = 1 to 7
rst2!("champ") & i = v(i)
next i
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
.
Merci beaucoup !
Ca marche bien
amicalement
Didier
Dim i as integer
for i = 1 to 7
rst2!("champ") & i = v(i)
next i
--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
