Discussion :

[tomas]

Bonjour,

J'ai réalisé un formulaire de recherche multi critères sur base de l'aide de cafeine trouvé sur ce site.

Ce qui m'à été bien utile étant un débutant.

Sur le modèle de Cafeine, il faut décocher les cases à cocher pour afficher les listes de choix.

Comment puis - je modifier le code pour qu 'à l'ouverture du formulaire, toutes les cases à cocher soient vide et les listes masquées.

Je souhaite que l'utilisateur sélectionne lui même les listes avec lesquelles il veut faire une recherche.

Merci pour votre aide

tomas

[Moyaku]

essaie de changer la valeur de tes ctl "chk" "txt" et "cmb" un peu comme ca

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For Each ctl In Form_Multi_Criteres.controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = 0
        Case "txt"
            ctl.Visible = False
        Case "cmb"
            ctl.Visible = False
    End Select

donc au lieu de -1 tu met 0 et false au lieu de true.

[tomas]

merci pour ta réponce,

j'ai essayé avec le 0 à la place du -1, cela me vide bien mes cases à cocher.

Seulement, quant je les séléctionne, rien ne se passe, il faut que je les désélectionne pour que les listes déroulantes s'affichent.

Que faire?

[Moyaku]

si tu veux bien poster ton code je vais regarder

tu as bien passé les "true" à "false" en meme temps ?

[tomas]

oui,
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = 0
 
        Case "lbl"
            ctl.Caption = "- * - * -"
 
 
        Case "cmb"
            ctl.Visible = False
 
    End Select

Ne dois je pas chahger le code des cases à cocher?
As tu assé de détails ou veux tu tous le code de la base

[cafeine]

oui,
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = 0
 
        Case "lbl"
            ctl.Caption = "- * - * -"
 
 
        Case "cmb"
            ctl.Visible = False
 
    End Select

Ne dois je pas chahger le code des cases à cocher?
As tu assé de détails ou veux tu tous le code de la base

Hello,

merci d'utiliser les balises CODE (bouton #) et d'autre part est-ce que les contrôles ont été correctement nommés ?

sinon voici un code un peu plus mature qui s'affranchit du nom des contrôles ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each ctl In Me.Controls
    Select Case ctl.ControlType
        Case acCheckBox
            ctl.Value = 0
        
        Case acLabel
            ctl.Caption = "- * - * -"

     
        Case acComboBox
            ctl.Visible = False
            
    End Select

[Maxence HUBICHE]

Cafeine... je pense que tu vas avoir matière à faire une FAQ sur ton article