OVH Cloud OVH Cloud

Mode feuille de données

4 réponses
Avatar
jeorme
Bonjour à tous,

J'ai une petite question:

J'ai un formulaire sans données sources , je veux faire dans mon code
VBA à l'ouverture une boucle qui ajoute une ligne enregistrement sans
données.
Par exemple si ma boucle est de 8 , je voudrais faire

Tant que X < 8

ajout d'une ligne de plus sur le formulaire

fin tant que


Mais je ne trouve pas la commande

4 réponses

Avatar
3stone
Salut,

"jeorme"
J'ai un formulaire sans données sources , je veux faire dans mon code
VBA à l'ouverture une boucle qui ajoute une ligne enregistrement sans
données.



Pas très clair ce que tu cherche ;-)


Dans un formulaire "sans source", tu ne saura pas ajouter *des* enregistrements...

et des enregistrements sans données... ne sont pas des enregistrements ;-)
tu aura au minimum un champ clé primaire, numauto ou autre...



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
jeorme
en fait j'ai un recordset en ADO,

Je voudrais faire ça:

rs.movefirst
do while not rs.eof

me.MonChamp = rs(MaColonne)

''ajout de ma nouvelle ligne dans le form --> C'est là que je sèche

rs.movenext
loop

Si tu voix mon souci


"3stone" a écrit dans le message news:

Salut,

"jeorme"
J'ai un formulaire sans données sources , je veux faire dans mon
code


VBA à l'ouverture une boucle qui ajoute une ligne enregistrement sans
données.



Pas très clair ce que tu cherche ;-)


Dans un formulaire "sans source", tu ne saura pas ajouter *des*
enregistrements...


et des enregistrements sans données... ne sont pas des enregistrements
;-)

tu aura au minimum un champ clé primaire, numauto ou autre...



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------








Avatar
3stone
re,

"jeorme"
en fait j'ai un recordset en ADO,

Je voudrais faire ça:

rs.movefirst
do while not rs.eof

me.MonChamp = rs(MaColonne)

''ajout de ma nouvelle ligne dans le form --> C'est là que je sèche

rs.movenext
loop



Tu peux baser ton formulaire continu sur une table temporaire...
et pousser tes lignes du recorset dans cette table!



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
jeorme
Je pense que c'est la seule solution hélas !


"3stone" a écrit dans le message news:

re,

"jeorme"
en fait j'ai un recordset en ADO,

Je voudrais faire ça:

rs.movefirst
do while not rs.eof

me.MonChamp = rs(MaColonne)

''ajout de ma nouvelle ligne dans le form --> C'est là que je
sèche



rs.movenext
loop



Tu peux baser ton formulaire continu sur une table temporaire...
et pousser tes lignes du recorset dans cette table!



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------