Discussion :

[Hele_Jdsonnevil6259]

Bonjour à tous, j'ai un problème avec ma base de donné Access et la gestion de mes formulaires.
Voici la situation:
J'ai deux champs , un [Défaut] qui se remplie grâce à une liste déroulante et le second [Hauteur ceinture bande avant x0] qui lui est une valeur numérique.

Dans un formulaire, je souhaite que si dans le champ [Défaut] on sélectionne la valeur PAT, le champ [Hauteur ceinture bande avant x0] soit visible et si la valeur est autre que PAT , le champ [Hauteur ceinture bande avant x0] ne soit pas visible.
J'ai mis ce code.

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
Private Sub Défaut_BeforeUpdate(Cancel As Integer)
    If Me.Défaut = "PAT" Then
        Me.Hauteur_ceinture_bande_avant_x0.Visible = True
    Else
        Me.Hauteur_ceinture_bande_avant_x0.Visible = False
    End If
End Sub
 
Private Sub Form_AfterUpdate()
 If Me.Défaut = "PAT" Then
        Me.Hauteur_ceinture_bande_avant_x0.Visible = True
    Else
        Me.Hauteur_ceinture_bande_avant_x0.Visible = False
    End If
End Sub

mais ça ne marche pas... Quand je sélectionne PAT une première fois le champ est visible, si je sélectionne autre chose il disparait , mais si je resélectionne PAT, il ne revient pas.
Il me marque qu'il y a un problème avec cette partie: " Me.Hauteur_ceinture_bande_avant_x0.Visible = False"
Avez-vous des piste pour ce problème? ou un autre moyen d'obtenir le résultat que je souhaite s'il vous plait ?
Bonne journée

[User]

Bonjour,

Il faudrait mettre le code sur l'événement "après-maj" (afterupdate) de la liste de choix, et sur l'événement "sur activation" (current) du formulaire.

Cdlt,

[Hele_Jdsonnevil6259]

Bonjour, j'ai pas tout compris .

Si j'ai bien compris, j'ai mis le code afterupdate dans le code VBA du formulaire et je l'ai rempli aussi dans les propriétés du champs (dans la table).
Mais ça ne fonctionne pas, le champ [Hauteur ceinture bande avant x0] reste masqué quelque soit le choix dans le champs [Défaut].

J'ai du mal comprendre vos instructions, puis-je avoir plus de détail s'il vous plait?

Bonne journée

[User]

Bonjour,

Il faudrait remplacer le code de votre 1er message, par celui-ci :

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
Private Sub Défaut_AfterUpdate()
    If Me.Défaut = "PAT" Then
        Me.Hauteur_ceinture_bande_avant_x0.Visible = True
    Else
        Me.Hauteur_ceinture_bande_avant_x0.Visible = False
    End If
End Sub
 
Private Sub Form_Current()
    If Me.Défaut = "PAT" Then
        Me.Hauteur_ceinture_bande_avant_x0.Visible = True
    Else
        Me.Hauteur_ceinture_bande_avant_x0.Visible = False
    End If
End Sub

Cdlt,

[Hele_Jdsonnevil6259]

Re,

Merci pour le détail, mais ça ne marche toujours pas.

il y a 3 situations:
- si c'est un nouveau enregistrement : le champs Hauteur_ceinture_bande_avant_x0 ne s'affiche pas
- s'il y a déjà un enregistrement est que défaut= PAT : le champs Hauteur_ceinture_bande_avant_x0 est visible
- s'il y a déjà un enregistrement est que défaut= autre que PAT : le champs Hauteur_ceinture_bande_avant_x0 ne s'affiche pas

il doit y avoir un problème avec l'actualisation des données, mais je ne trouve pas où

[hyperion13]

Salut
Peut-être devriez-vous essayer avec une mise en forme conditionnelle.

[User]

C'est possible de joindre votre fichier ?