Bonjour,

dans un formulaire access, j'affiche un bouton supplémentaire en fonction d'un paramétrage spécifique de l'outil.
Ce bouton devant se situer dans un cadre de fond coloré, je souhaite pouvoir redimensionner ce cadre en fonction de la présence ou de l'absence du bouton.
J'ai donc mis un bout de code lors du chargement du formulaire, qui teste le paramétrage, affiche ou cache le bouton, et redimensionne le cadre
Seulement, si l'affichage ou non du bouton est OK, dans tous les cas de figure, le cadre est totalement invisible.....

Quelqu'un aurait il une suggestion à me faire

Ci-dessous mon code (j'ai mis des lignes "Visible" pour essayer, mais ça ne change rien)
Si je mets en commentaire les lignes Cadre...., les cadres réapparaissent à leur dimension définie dans les paramètres du formulaire

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
25
26
27
28
29
30
Private Sub Form_Load()
    '   On regarde si la case "Cadres dirigeants" est cochée
    Dim Db As DAO.Database
    Dim rc As DAO.Recordset
    Set Db = CurrentDb
    DoCmd.SetWarnings False
    requete = "SELECT T_Paramétrage.[Cadres dirigeants] FROM T_Paramétrage;"
    Set rc = Db.OpenRecordset(requete)
    '   Chargement du tableau des identifiants
    If Not rc.EOF Then
        cadre_dir = rc.Fields(0).Value
    End If
    '   On teste si c'est à true
    If cadre_dir = True Then
        '   On rend le bouton visible
        Me!B_chargement_OF.Visible = True
        '   On augmente la taille des cadres
        Me!Cadre_chargement.Height = 3.4
        Me!Cadre_edition.Height = 3.3
    Else
        Me!B_chargement_OF.Visible = False
        '   On réduit la taille des cadres
        Me!Cadre_chargement.Height = 2
        Me!Cadre_chargement.Visible = True
        Me!Cadre_edition.Height = 2
        Me!Cadre_edition.Visible = True
    End If
    Me.Repaint
 
End Sub