Discussion :

[santacrus]

bonjour a tous

J'aimerais dans mon formulaire qu'une etiquette devienne visible sur click d'une case a cocher.
J'ai essayé le code suivant:

Code :

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

1
2
3
4
5
6
7
Private Sub bouton1_click()
If Me.bouton1.Value = False Then
Me.Etiquette38.Visible = False
Else
Me.Etiquette38.Visible = True
End If
End Sub

Le code fonctionne bien une fois le formulaire ouvert.Par contre a l'ouverture, l'etiquette est presente quoi qu'il arrive.(J'aimerais qu'elle soit invisible par defaut)
J'ai tenté de changer les valeurs par defaut, mais ca ne fonctionna pas.

Merci de votre aide

[Jean-Philippe André]

salut,
une petite optimisation du code :

Code :

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

1
2
3
4
5
Private Sub bouton1_click()
 
Me.Etiquette38.Visible = Me.bouton1.Value
 
End Sub

et tu peux ajouter dans l'évènement Form_Open

Code :

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

Me.Etiquette38.Visible = False

[santacrus]

merci pour l'aide

J'avais deja essayé la partie de code a l'ouverture du form,mais je recoit tjs le meme message d'erreur:

Voici le message d'aide d'access:


Cette erreur se produit lorsqu'un événement ne peut pas être exécuté parce que Microsoft Office Access ne peut pas détecter l'emplacement de la logique correspondante. Par exemple, si la propriété OnOpen d'un formulaire est définie sur la valeur =[Field], cette erreur se produit car Access s'attend à ce qu'un nom de macro ou d'événement soit exécuté lors du déclenchement de l'événement.

???????

[francishop]

Bonsoir,

On peut essayer tout en mettant cette étiquette visible à non :

Code :

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

1
2
3
4
5
6
7
Private Sub bouton1_Click()
 If Me.Etiquette38.Visible = False Then
    Me.Etiquette38.Visible = True
 Else
    Me.Etiquette38.Visible = False
 End If
End Sub

Cordialement.

[santacrus]

Ca marche!
Mais je ne sais pas pq!!!
J'ai supprimé toutes les lignes de codes et recommencé avec les memes.
Ca fonctionne maintenant.

Merci a tous!