Discussion :

[icecube216]

Bonsoir à tous,

Voilà, j'ai une simple table : [NOM] [PRENOM] [MATRICULE] [ADRESSE] par exemple
J'ai créé un Report m'affichant tout cela.
Maintenant je voudrais avoir sur un formulaire différentes CheckBox avec mes champs de ma table pour rendre visible ou non l'affichage sur le report.
Je m'explique :
J'ai une CheckBox_NOM, CheckBox_PRENOM....
Si deux de mes 4 CheckBox sont cochées, lorsque j'appui sur le bouton qui donne un Preview de mon Report, je ne verrai dans celui ci que ces 2 champs et pas les autres.
Bref, je voudrais rendre mon Report, dépendant des CheckBox de mon Formulaire.
Suivant ce que le Client demande d'afficher ou non.
Est-ce possible ? Et de quelle maniere dois je proceder ?
MErci d'avance.

Ps : Le report est deja créé. Il suffit de dire quels sont les élément visible ou invisible.

[LaBelette]

C'est possible.

De mémoire...

Code :

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

1
2
3
4
Private Sub Report_Open(Cancel As Integer)
    me.[NOM].visible = Forms!NomFormulaire!CheckBox_NOM
    ...
End Sub

[icecube216]

hélàs, cela ne donne rien, a moins que je m'y prends comme un manche...

[icecube216]

il me dit :

erreur d'éxecution '13'

incompatibilité de type

[icecube216]

Personne n'a d'idées ???

[icecube216]

J'ai même essayé avec .InSelection ou .Value mais rien.... :'(

me.[NOM].visible = Forms!NomFormulaire!CheckBox_NOM.InSelection

me.[NOM].visible = Forms!NomFormulaire!CheckBox_NOM.Value

J'avoue que là je bloque à m'en arracher des cheveux ...

[Lou Pitchoun]

Salut,

C'est possible.

De mémoire...

Code :

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

1
2
3
4
Private Sub Report_Open(Cancel As Integer)
    me.[NOM].visible = Forms!NomFormulaire!CheckBox_NOM
    ...
End Sub

Ceci ne risque pas de fonctionner. La propriété visible attend un booléen.

Essaie plutôt quelque chose comme ceci :

Code :

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

1
2
3
If Forms![NomFormulaire]![NomCheckBox] Then
    Me.Nom.Visible = True
End If

[LaBelette]

Salut,

Ceci ne risque pas de fonctionner. La propriété visible attend un booléen.

Essaie plutôt quelque chose comme ceci :

Code :

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

1
2
3
If Forms![NomFormulaire]![NomCheckBox] Then
    Me.Nom.Visible = True
End If

Tu marque s un point, mais If aussi attends un booléen...

C'est pourquoi je crois qu'il est nécessaire d'utiliser une fonction de conversion, ici.

Code :

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

1
2
3
4
Private Sub Report_Open(Cancel As Integer)
    me.[NOM].visible = CBool(Forms!NomFormulaire!CheckBox_NOM.Value)
    ...
End Sub

[Lou Pitchoun]

Tu marque s un point, mais If aussi attends un booléen...

C'est pourquoi je crois qu'il est nécessaire d'utiliser une fonction de conversion, ici.

Code :

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

1
2
3
4
Private Sub Report_Open(Cancel As Integer)
    me.[NOM].visible = CBool(Forms!NomFormulaire!CheckBox_NOM.Value)
    ...
End Sub

Je marque 2 points. Essaie mon code et tu verras que ça fonctionne
Sans rancune.

[icecube216]

cela ne marche helas pas :'(

Cela me fait une erreur '438'
propriété ou méthode non gérée par cet objet

Une base exemple est disponible ici

[LaBelette]

J'ai regardé ta BD et trouvé 2 erreurs :
1- Tes cases à cocher s'appellent Cocher1, Cocher2, Cocher3, Cocher4. Ce sont les étiquettes qui portent le bon nom!
2- Le code suivant ne fonctionne pas. Il assigne Vrai à la propriété Visible du controle lorsqu'il doit l'afficher, mais il n'assigne pas Faux lorsqu'il doit le cacher.

Code :

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

1
2
3
If Forms!Formulaire1!checkbox_nom Then
    Me.nom.Visible = True
End If

Essaie à la place :

Code :

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

Me.nom.Visible = Forms!Formulaire1!checkbox_nom

Utilise aussi le même code pour cacher l'entête de ta colonne dans le rapport.

[icecube216]

Rolalalalalaaaa quel tête de linotte je suis :S
Effectivement je ne sais pas pourquoi je me suis borner a renommer les étiquettes et non pas les cases.
Le c** !
Merci a toi
=>Résolu !!!