Discussion :

[fellower]

Bonjour à tous,

j'ai un problème lors de la création d'un état, j'ai plusieurs zone de texte superposée, dans ces zones de textes superposées, je les rends toutes invisible avec la fonction "visible" sauf 1. Mon problème est que quand je rend toute les zone de texte invisible, même celle qui est sensée rester visible disparait... je pensais que c'était peut-être parce que cette zone de texte n'est pas en premier plan, existe-t-'il une façon, en VBA, de mettre une zone de texte en premier plan ?

merci.

[fellower]

après avoir testé plusieurs truc, je me rend compte en faite que ça vient des zones de texte que je cache... mais je ne comprend pas pourquoi...

voici un exmple de code que j'ai testé :

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
31
32
33
34
35
36
37
38
39
40
41
    If IsNull(Me![NIV2.Référence externe]) Then
        Me![QN2].Visible = False
        Me![NIV2.Unité].Visible = False
        Me![NIV2.Référence externe].Visible = False
        Me![NIV2.Quantité par unité].Visible = False
    End If
 
    If IsNull(Me![NIV3.Référence externe]) Then
        Me![QN3].Visible = False
        Me![NIV3.Unité].Visible = False
        Me![NIV3.Référence externe].Visible = False
        Me![NIV3.Quantité par unité].Visible = False
    End If
 
    If IsNull(Me![NIV4.Référence externe]) Then
        Me![QN4].Visible = False
        Me![NIV4.Unité].Visible = False
        Me![NIV4.Référence externe].Visible = False
        Me![NIV4.Quantité par unité].Visible = False
    End If
 
    If IsNull(Me![NIV5.Référence externe]) Then
        Me![QN5].Visible = False
        Me![NIV5.Unité].Visible = False
        Me![NIV5.Référence externe].Visible = False
        Me![NIV5.Quantité par unité].Visible = False
    End If
 
    If IsNull(Me![NIV6.Référence externe]) Then
        Me![QN6].Visible = False
        Me![NIV6.Unité].Visible = False
        Me![NIV6.Référence externe].Visible = False
        Me![NIV6.Quantité par unité].Visible = False
    End If
 
    If IsNull(Me![NIV7.Référence externe]) Then
        Me![QN7].Visible = False
        Me![NIV7.Unité].Visible = False
        Me![NIV7.Référence externe].Visible = False
        Me![NIV7.Quantité par unité].Visible = False
    End If

ce n'est que des bêtes if qui teste si une zone de texte est null, si elle est null, je met les propriétés visible de chaque zone de texte constituant la ligne à false... donc j'ai testé, par exemple NIV5.Référence externe non null, que j'exécute, le if ne passe pas et donc les propriétés ne changent pas, et pourtant il est invisible...

[fellower]

j'ai trouvé, je dois repréciser à chaque fois la propriété visible à trur même si elle l'était déjà par défaut...