Discussion :

[enkoder]

Bonjour à toutes et tous,

Je suis en train de créer un formulaire Access dans lequel j'ai des critères sous forme de cases à cocher.
Ce que je voudrais c'est récupérer dans un seul et même champ texte la valeur de chaque case (son libellé) quand elle est True.
Cela fonctionne très bien quand j'active une seule case, mais je bloque pour que cela fonctionne quand je sélectionne deux, voire trois cases.
Voici ce que j'ai fait :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Private Sub chk_Critere1_AfterUpdate()
If Me.chk_Critere1 = True Then
Me.Criteres.Visible = True
Me.Criteres = "Corrosion"
Me.Criteres.SetFocus
 
Else:
Me.titre.SetFocus
 
Me.Criteres.Visible = False
Me.Criteres = Null
End If
 
End Sub
 
Private Sub chk_Critere2_AfterUpdate()
If Me.chk_Critere2 = True Then
Me.Criteres.Visible = True
Me.Criteres = "Dispatch"
Me.Criteres.SetFocus
 
Else:
Me.titre.SetFocus
 
Me.Criteres.Visible = False
Me.Criteres = Null
End If
 
End Sub

Criteres = nom de ma zone de texte dans laquelle le libellé de la case séléctionnée s'affiche.

Par avance merci de votre aide.

[Jean-Philippe André]

salut enkoder,
bienvenue sur DVP
tu peux concaténer le contenu des cases, mais si tu décoches, on doit le retirer aussi je suppose ?
auquel cas, voici une idée de code :

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
16
Private Sub chk_Critere1_AfterUpdate()
If Me.chk_Critere1 = True Then
   Me.Criteres.Visible = True
   Me.Criteres = Me.Criteres & "Corrosion " 
   Me.Criteres.SetFocus
 
Else
   Me.titre.SetFocus
 
'Me.Criteres.Visible = False
'Me.Criteres = Null
   Me.Criteres = Replace(Me.Criteres,"Corrosion ","")
 
End If
 
End Sub

[enkoder]

Salut jpcheck,

merci pour ta réponse rapide !
Effectivement, on doit retirer le contenu en cas de décochage.
Merci pour la proposition de code ; j'ai essayé avec ton code tel quel, mais dès que j'active une deuxième case, j'ai l'impression que cela écrase le libellé de la première dans mon champ. Dois-je répéter le code pour chacune des cases à cocher ?
Petite précision, les cases à cocher sont indépendantes et non pas dans un groupe d'option ; cela doit jouer sur leurs comportements non ?

[Jean-Philippe André]

ca ne l'écrase pas, ca le complète, non ?

[enkoder]

woops!! je m'étais un peu rippé à la saisie du code (oui je sais, j'aurais tout aussi bien fait de copier-coller, mais j'essaie quand même de comprendre un minimum ce qui se passe !)...
Donc effectivement, cela complète le champ texte, mais en revanche quand je décoche un des critères, rien ne se passe... est-ce normal ?
Pour info, je n'ai appliqué ta solution que sur le premier critère ; dois-je répéter le code sur chaque critère ?
Merci.

[Jean-Philippe André]

oui
pour éviter de recopier 10 fois le même code, tu n'as qu'a créer une fonction avec en paramètre le numéro ou le nom du control mis à jour

[enkoder]

merci, cela confirme ce que je pensais faire.
Et après relecture du code, le "replace" fonctionne à merveille !! en fait j'avais oublié un espace dans

Code :

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

Me.Criteres = Me.Criteres & "Corrosion "

Bon, ben il ne me reste plus qu'à faire la fonction et ce sera nickel !
Encore merci pour ton aide !