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.

[samloba]

Remplace le code par celui ci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Détail_Format(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

Ton état a plusieurs sections, place le code dans l'événement "sur formatage" de la section où se trouve tes controls "Stato_giuridico" et autres.
Si tu peux exporter l'état dans une base vide tu me l'envoies pour que je vois

[Daniela]

j'ai mis le code mais ne marche pas. je t'envoi la base, si tu veux on peut parler via msn. merci beaucoup

[hocine]

Salut, Daniela
votre application marche très très bien sur mon pc
Ciao, Daniela
la vostra applicazione funziona molto molto bene sul mio pc
Grazie

[Daniela]

Chez moi ne marche pas....

[samloba]

Salut, Daniela
votre application marche très très bien sur mon pc
Ciao, Daniela

Je suis bien curieux de voir d'autant plus que sa section détail n'est pas nommée "Détail" mais "Corpo"

Le code juste doit donc être

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Corpo_Format(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

ciao dani

[Daniela]

marche tres bien merci merci merci....

j'ai juste une derniere question: comment je fais a partir d'une form, ouvrir un etat avec seulement le record selectionnée dans la form?

[samloba]

s'il te plait mets le tag résolu et ouvre une nouvelle discussion

pour afficher l'enregistrement courant dans l'état, modifie le code sous le bouton qui lance ton etat comme suit (complete seulement la ligne qui commence par Docmd.OpenForm)

Code :

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

DoCmd.OpenReport stDocName, acPreview, , "IDOrganismo=" & Me.IDOrganismo

ça marche dans la base que tu as envoyée

[Daniela]

ok je vais essayer... merci merci pour tout :-)

[hocine]

salut daniela,

Code :

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

1
2
 
DoCmd.OpenReport stDocName, acPreview, , "IDOrganismo=" & Me.IDOrganismo

reamarque stDocName est le nom de l'état que vous souhaiteriez ouvrir
Bonne chance.
Merci.