Discussion :

[supertoms]

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.

[Jean-Philippe André]

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

[supertoms]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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''

[Jean-Philippe André]

as-tu déjà un formulaire F_AFFICHAGE ?

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

[supertoms]

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"

[supertoms]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SnakeCharmer]

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

[supertoms]

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 ?