Discussion :

[Vieuxcruton]

Bonjour,
J'ai créé un formulaire pour afficher des données de joueurs, comportant les champs Nom, Prénom et Alias.
Entre Prénom et Alias, j'ai créé une étiquette "dit".
Je cherche à rendre cette étiquette invisible lorsque le champ Alias est vide.
J'ai donc écrit (sur chargement du formulaire):

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)

If me.Alias = « "" » then
Me.Etiquette39.visible = false
Else
Me.etiquette39.visible = true
End if

End Sub

Je suis très très fier de ce travail qui ne produit absolument rien.
"dit" apparait toujours.
Donc je me suis planté.
Quelqu'un peut-il me donner une piste?
Merci

[hyperion13]

Salut
Les chevrons sont pour André.

Code :

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

1
2
3
4
5
6
7
If me.Alias = "" then
Me.Etiquette39.visible = false
Else
Me.etiquette39.visible = true
End if
 
End Sub

[Vieuxcruton]

Salut hyperion13 et merci.

Bon, même en rendant les chevrons à leur propriétaire, rien n'y fait.
Ce qui m'étonne c'est qu'Access ne mette pas de message d'erreur. Il n'y a aucune action...?

[hyperion13]

re
Cet Event Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer),n'existe pas dans les forms mais dans les reports !
Utilisez plus tôt Private Sub Form_Current(),ou Private Sub Form_Load().

[Vieuxcruton]

Bonjour et désolé de cette attente, ce n'est pas de la négligence mais un manque total de temps…
J'ai modifié en plaçant la commande sur le champs "NOM" de mon formulaire puisque l'action est déclenchée à chaque changement:

Private Sub NOM_Change()
If Me.Alias = "" Then
Me.Étiquette39.Visible = False
Else
Me.Étiquette39.Visible = True
End If
End Sub

Mais en fait rien ne se passe , l'étiquette est toujours visible que Alias soit vide ou non. Je n'arrive pas à trouver l'erreur, c'est boulesque...
Ce code serait-il plus sûr?

Private Sub NOM_Change()
If Nz(Alias.Value, "") <> "" Then
Étiquette39.Visible = True
Else
Étiquette39.Visible = False
End If
End Sub

[micniv]

il faut placer le code

Code :

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

1
2
 
Me.Étiquette39.Visible = NOT (nz(me.Alias) ="")

... dans le code Alias_AfterUpdate()
et dans le code de Form_current()

[Vieuxcruton]

Merci micniv, et hyperion13 !

Pour être tout à fait honnête, ça ne marche pas. Je vais laisser tomber et ça me gonfle parce que même si ce n'est pas important, je suis incapable de trouver la logique de mon erreur.
Et j'ai pas fini de bâtir cette Bd...

[hyperion13]

Étonnant !

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current() ' frm_test1
If IsNull(Me.txt2) Then
Me.txt2_Étiquette.Visible = False
Else
Me.txt2_Étiquette.Visible = True
End If
End Sub

Par contre si vous êtes en affichage Formulaire continus, ce que je soupçonne, alors

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load() ' frm_test2
If DCount("[txt2]", "[tbl_test2]", IsNull([txt2])) = 0 Then
    Me.txt2_Étiquette.Visible = False
Else
    Me.txt2_Étiquette.Visible = True
End If
End Sub

[Vieuxcruton]

Merci mille fois hyperion13 !
J'en ai les larmes aux yeux. Comme vous dites, ce qui est étonnant : c'est moi, et pas dans le sens le plus flatteur. Mais je le sais.
Le premier code fonctionne parfaitement (le formulaire n'était pas en mode continu), et j'opte plutôt pour un mauvais emplacement de la commande. (je vais vérifier sur une copie, je suis têtu comme un....âne!).
Par contre depuis l'activation réussie de ce code le fond des champs (transparents) du formulaire se grisent lors de l'affichage des enregistrements une fois sur deux. Relation de cause à effet normale ou dois-je chercher ailleurs?