Disposition tabulaire des contrôles en passant par du code VBA

Version imprimable

08/10/2013, 19h00
Humanisto

Disposition tabulaire des contrôles en passant par du code VBA

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...
08/10/2013, 21h28
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,

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:

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...)

Voici un exemple :

Code:

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,

09/10/2013, 09h58
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
09/10/2013, 13h30
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.
09/10/2013, 13h49
Humanisto

Dans la mesure où les contrôles sont liés, je n'arrive pas à en mettre un dans l'entête et l'autre dans le détail (j'ai bien fait attention de mettre les bonnes coordonnées en fonction de chaque partie du formulaire). Ils apparaissent tous les deux dans le détail (là où doit se trouver seulement la Textbox).

Il semble que cela vienne du fait que les deux contrôles sont liés (lors de la création du label, je le lie à la textbox). Si je ne les lie pas, j'arrive à faire apparaître le label dans l'entête et la textbox dans le détail.

Toutefois, même dans ce cas, ces deux contrôles ne sont pas sous forme tabulaire. Ils en ont juste l'apparence. Si je modifie la largeur de l'un, ça n'a aucun impact sur l'autre.

Une meilleure idée ?

Merci
10/10/2013, 06h22
ClaudeLELOUP

Bonjour,

Citation:

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...)

Si j’ai bien compris ta démarche, tu crées d’abord ton formulaire « brut » et ensuite tu déplaces les zones de texte et tu voudrais que leurs étiquettes s’ajustent suite à tes modifications.

Si c’est ça, tu pourrais :

1er temps : créer le formulaire seulement avec les zones de texte ;
2e temps : tu retouches la position des zones de texte ;
3e temps : tu exécutes un programme qui — pour chaque zone de texte — crée une étiquette ad hoc qui dépend des propriétés actuelles de la zone de texte (Nom, droite, longueur).
10/10/2013, 15h28
Humanisto

1 pièce(s) jointe(s)

Effectivement, ça pourrait fonctionner. Toutefois, les contrôles ne seraient pas sous forme tabulaire. Ce qui fait qu'à chaque modification de la largeur d'un contrôle, il faudrait que je modifie celle de tous les autres contrôles...

J'ai mis ci-dessous une image de ce que donne la position tabulaire et comment on l'obtient dans l'interface graphique.
Pièce jointe 128443

Je voudrais réussir à réaliser exactement ça mais en passant par le VBA au lieu de faire un clic droit sur les contrôles, de sélectionner dans le menu contextuel 'Disposition' puis 'Tabulaire'.

Est-ce impossible à réaliser en VBA ?

Merci
10/10/2013, 17h09
loufab
Bonjour,

Tu devrais indiquer que tu travailles en version 2007 (au moins) car cette fonctionnalité n'est dispo qu'à partir de cette version.

Pour appliquer le mode Tabulaire voici comment procéder :
Code:

1 2 3 4 CtrlTxt.InSelection = True CtrlLbl.InSelection = True ... DoCmd.RunCommand acCmdTabularLayout
InSelection est une méthode/propriété qui permet de sélectionner des contrôles en mode Création.
Puis tu appliques le mode tabulaire avec le runcommand.

Cordialement,
10/10/2013, 21h57
Humanisto

C’est exactement ce dont j'avais besoin pour que cela fonctionne !
C'est parfait.

Un grand merci d'avoir pris le temps de m'aider. C'est très sympa. J'indique que mon problème est résolu.
26/04/2017, 09h53
MisterBI

Complément

Bonjour
je reprends le fil de la discussion car je cherche à en savoir un peu plus sur les options de disposition tabulaire et empilée.
Est-il de possible de savoir à quelle disposition est associé un Control et d'agir en vba sur la position du controle dans cette disposition
Exemple trois champs en disposition tabulaire:
en tete dans le header, valeur dans le détail
je cherche à agir sur l'ordre dans la disposition
as t on une position ligne colonne pour chaque ctrl?
je ne trouve pas de propriété ni sur le control, ni d'objet tableau (qui comme une section regrouperait des controls)
et cela me semble compromis à cette heure ;-)
Est-ce que les tableaux sont "transparents" au niveau objet et sont simplement des "tableaux" à un sens proche d'un tableau HTML ?

merci d'avance pour vos lumières