Discussion :

[Humanisto]

Bonjour tout le monde,

Encore bravo pour ce site/Forume/FAQ très intéressant sur le VBA et Access.

Mais voici ma question :
J'ai trouvé le moyen de créer des contrôles dans un formulaire directement en passant par du code VBA (pour info, il faut utiliser CreateControl).
Malheureusement, je n'ai pas trouvé de moyen mettre mes contrôles (plusieurs labels et textbox reliés deux à deux) en format tabulaire. Je suis obligé de le faire manuellement.

Quelqu'un aurait une idée à me proposer ?

Un grand merci par avance...

[loufab]

Bonjour,

Qui dit tabulaire dit coordonnées lignes et colonnes préfixées.

Left pour les colonnes

et Top+Height+ecart pour les lignes.

Note que ces valeurs (comme width) doivent être fournie à CreateControl, donc gère-les avec des variables.

Personnellement j'évite cette méthode, cela oblige à livrer une appli non compilée, donc ouverte aux quatre vents.

Cordialement,

[Humanisto]

Bonjour,

Merci de m'avoir apporter une réponse... Malheureusement (et ce n'est pas faute de le vouloir !), je n'ai pas compris comment mettre ça en place ?

Voici un exemple de programmation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim CtrlTxt As Control, CtrlLbl As Control
 
    'Création des textbox
    Set CtrlTxt = CreateControl("Mon_Formulaire", acTextBox, acDetail, , Champ1, 70, 950, 1670, 315)
    CtrlTxt.Name = "Champ1"
 
    'Création des labels
    Set CtrlLbl = CreateControl("Mon_Formulaire", acLabel, acHeader, "Champ1", , 70, 475, 1670, 315)
    CtrlLbl.Name = "Tri_Champ1"
    CtrlLbl.Caption = "Etiquette Champ1"

Ce code fonctionne très bien. Malheureusement, pas moyen de mettre ces deux contrôles sous forme tabulaire.
Saurais-tu m'indiquer comment tu procéderais avec ce code pour les mettre en tabulaire ?

Un grand merci


PS : Je comprends tout à fait qu'avec ce type de code, ce n'est pas compilé (mais est-ce si génant ?). Mais il s'avère que ce code, je l'intègre dans un fichier Excel qui me paramètre automatiquement ceci (et bien d'autres choses) selon des champs préremplis. En fait, j'ai fait un programme qui fait des programmes (chaque fois que je fais une BDD access, le formulaire de consultation a toujours la même forme, d'où le fait d'automatiser la création des contrôles...)

[loufab]

Voici un exemple :

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
Dim CtrlTxt As Control, CtrlLbl As Control
 DoCmd.OpenForm "formulaire1", acDesign
    'Création des textbox
    Dim lLeft As Long
    Dim lTop As Long
    Dim lWidth As Long
    Dim lHeight As Long
    Dim lEcart As Long
 
    lLeft = 70
    lTop = 950
    lWidth = 1670
    lHeight = 315
    lEcart = 70
 
    Set CtrlTxt = CreateControl("formulaire1", acTextBox, acDetail, , "Nom", lLeft + lWidth + lEcart, lTop, lWidth, lHeight)
    CtrlTxt.Name = "Champ1"
 
    'Création des labels
    Set CtrlLbl = CreateControl("formulaire1", acLabel, acHeader, "Champ1", , lLeft, lTop, lWidth, lHeight)
    CtrlLbl.Name = "Tri_Champ1"
    CtrlLbl.Caption = "Etiquette Champ1"

Je pense que tu auras mieux cerné la manière de faire évoluer ton code.

Ce n'est pas dérangeant, il faut simplement savoir les inconvénients de ce type de commande.

Cordialement,

[Humanisto]

Merci pour ces infos.
Malheureusement, les contrôles n'apparaissent pas en position tabulaire. Ils sont placés l'un à côté de l'autre, comme si je les avais créer manuellement dans l'interface graphique (ce qui est déjà pas mal, soit dit en passant...).

Mais c'est quand même la position tabulaire qui m'intéresserait ? C'est-à-dire dans le cas où le label est positionné dans la partie Entête et la textbox qui y est liée dans la partie Détail, le tout lié par une "sorte" de tableau (l'augmentation de la largeur de l'un modifiant obligatoirement la largeur de l'autre).

Une autre idée ?

Merci

[Tofalu]

Il suffit pourtant de définir vos propres coordonnées dans l'exemple de loufab.

Logiquement, si vous avez bien mixé acHeader et acDetail, les deux contrôles ne peuvent pas être dans la même section.