Discussion :

[Daniela]

Bonjour a tous, moi j'ai un probleme avec code vba a mettre dans un etat. moi je voudrais que lorque dans le champ stato_giudirico il y a la valeur "Altro" moi je voudrais visualiser le champ stato_giudirico_precisa et le champ stato_giurdico doit etre invisible.

comment je peux faire?

moi j'ai fais ce code mais ne marche pas

Code :

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

1
2
3
4
5
6
Private Sub Stato_giuridico_lista_BeforeUpdate(Cancel As Integer)
If Me.Stato_giuridico_lista.Value = "Altro" Then
Me.CasellaCombinata96.Visible = True
Else: Me.CasellaCombinata96.Visible = False
End If
End Sub

[samloba]

Tout ce que tu décris là concerne un formulaire et non un état
Essai de décrire mieux ton problème

[Daniela]

Tout ce que tu décris là concerne un formulaire et non un état
Essai de décrire mieux ton problème

Desolée si j'ecrit mal j'esseie de mieux m'expliquer: alors dans mon etat j'ai le champ "stato" et un champ "precisa". moi je voudrais que chaque fois qu'il y a dans le champ "stato" la valeur "altro", rend visible le champ "precisa" sinon rien.

comment je peux faire?

[hocine]

Salut Daniela,

samloba
Tout ce que tu décris là concerne un formulaire et non un état

le code que vous avez donner dans votre message est vrai sur un formulaire mais sur un état c'est une autre méthode, vous devriez travaillez avec événement "sur impression" "au formatage" de la section où vous avez déposer votre zone de texte et sur cette section vous allez effectuer vos condition.
Bonne Chance.
MERCI.

[samloba]

tu places le code sur l'événement de la section qui contient tes controls
pour la section Détail tu auras:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    'si stato=altro
    If Me!stato = "altro" Then
        Me!precisa.Visible = True       'precisa est visible
    Else
        Me!precisa.Visible = False      'sinon il n'est pas visible
    End If
End Sub

si ce bout de code règle ton problème n'oublie pas le tag "Résolu"

[Daniela]

derriere le champ "stato_giuridico_precisa" j'ai mis ce code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Stato_giuridico_precisa(Cancel As Integer, FormatCount As Integer)
    'si stato=altro
    If Me!Stato_giuridico = "Altro" Then
        Me!Stato_giuridico_precisa.Visible = True       'precisa est visible
        Me!Stato_giuridico.Visible = False
    Else
        Me!Stato_giuridico_precisa.Visible = False      'sinon il n'est pas visible
    End If
End Sub

mais ne marche pas.