Créer des zones de texte dynamiquement

Salut à tous,

je cherche à créer des zones de texte en fonction de ce qu'il y a dans un tableau.
J'ai un tableau (qui n'a pas toujours le même nombre de cases remplies), et ce que je veux, c'est créer autant de zones de texte que de cases remplies.

Au début j'étais parti pour créer plein de zones de textes et les rendre visible en fonction de la demande mais ce n'est vraiment pas pratique car ça m'oblige à construire des centaines de zones de texte qui ne serviront jamais a rien !
Merci d'avance pour votre aide.

bonjour,
est-ce que l'exemple de la FAQ te donne des idées ?
http://access.developpez.com/faq/?pa...#formdynamique

Merci jpcheck !
J'ai copié exactement le contenu du code de la FAQ et j'ai crée un bouton :

Code:

---

1 2 3 4

Private Sub Commande3_Click() create_form ("SELECT * FROM _TRAVAIL") End Sub

---

Mais j'ai droit à un message d'erreur :
''Le nom du formulaire F_AFFICHAGE est mal ortographié ou fait référence à un dictionnair non existat''

as-tu déjà un formulaire F_AFFICHAGE ?

Citation:

---

Dans cet exemple nous utilisons un formulaire existant soit "F_AFFICHAGE" que nous modifions à notre guise.

---

En effet...
J'ai maintenant un formulaire F_AFFICHAGE, avec un bouton, et le code de la faq, quand je clique sur le bouton ça donne :
"L'action ou méthode n'est pas valide car le formulaire ou l'état n'est pas lié à une table ou une requête"

:(

Bon, j'ai trouvé un autre code que voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub NewControls() Dim frm As Form Dim ctlLabel As Control, ctlText As Control Dim intDataX As Integer, intDataY As Integer Dim intLabelX As Integer, intLabelY As Integer   ' Create new form with Orders table as its record source. Set frm = CreateForm frm.RecordSource = "Orders" ' Set positioning values for new controls. intLabelX = 100 intLabelY = 100 intDataX = 1000 intDataY = 100 ' Create unbound default-size text box in detail section. Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _ intDataX, intDataY) ' Create child label control for text box. Set ctlLabel = CreateControl(frm.Name, acLabel, , _ ctlText.Name, "NewLabel", intLabelX, intLabelY) ' Restore form. DoCmd.Restore End Sub

---

Ce code crée un nouveau formulaire, l'ouvre en mode création et met ce que l'on veut dedans, ici en l'occurrence un textbox et son label.
Ce que je voudrai, c'est connaitre le code pour fermer ce nouveau formulaire une fois qu'il a été crée ! Là ça fait "sal", au milieu de mon programme un formulaire qui s'ouvre en mode création...
Merci donc de me donner le code pour enregistrer et fermer ce nouveau formulaire. :P

Qu'est-ce que tu veux dire par enregistrer ? mettre les valeurs du formulaire dans une table? ALors renseigne toi sur les Recordsets. Et pour fermer le formulaire : Docmd.close

Il te suffit de continuer ton code aprés le Restore

Merci SnakeCharmer, ça fonctionne !
J'arrive à créer le nouveau form, et à l'enregistrer et le fermer.
Mon seul problème concerne le nom du formlulaire généré, comment le définir ?
Existe-t-il une commande du genre Docmd.SaveAs ?