Discussion :

[ROUSSIGNE]

Bonjour

Dans un état sur la proprieté au formatage

j'ai ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim strChemin As String
 
On Error Resume Next
If IsNull(Me!Photo) Then
    Me!imgApercu.Picture = ""
Else
 
strChemin = Me.Photo
Me.imgApercu.Picture = strChemin
End If
End Sub

qui me permet de récuper une photo

dans cet état j'ai aussi un champs texte que je souhaite rendre visible ou pas en fonction de certaine condition

mais je ne vois pas comment indiquer ca a la suite du code ci dessus

cordialement

[jeanpierre78]

Bonjour,

Tu as deux solutions :

• soit par code :

Code :

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

Me.[Nom_du_champ].Visible = True   (ou False)

• soit par une macro :

Code :

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

1
2
3
    Action:       Définir valeur   
    Elément:      Formulaires![Nom_Formulaire]![Nom_champ].Visible 
    Expression:   Oui    (ou Non)

Jean-Pierre

[ROUSSIGNE]

Bonsoir jean pierre

si j'utilise la solution code que tu m'a indiqué ,par apport au code existant joint à ma demande , je le saisie à la suite ?

A+

[zoom61]

Salut,

Oui tu le mets à la suite de ton code, en mettant tes conditions :

Code :

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

1
2
3
4
5
If conditions = True then
   Me.[Nom_du_champ].Visible = True
   Else
   Me.[Nom_du_champ].Visible = False
End If

@+.

[dok flint]

Bonjour,
En complement des reponses,je crois que ton code devrait etre :

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étail_Format(Cancel As Integer, FormatCount As Integer)
Dim strChemin As String
 
On Error Resume Next
If IsNull(Me!Photo) Then
    Me!imgApercu.Picture = ""
    Me.[Nom_du_champ].Visible = False
Else
 
strChemin = Me.Photo
Me.imgApercu.Picture = strChemin
Me.[Nom_du_champ].Visible = True
End If
End Sub

A+

[ROUSSIGNE]

Bonjour à tous

et merci beaucoup ca fonctionne

a+