[AC-2003] Case à cocher visible suivant critère

[maringot]

Bonjour,

Dans ma fiche client, j'ai un champ qui détermine le nombre de visite annuelle (liste déroulante T-Typecontrat).
J'ai également des cases à cocher V1, V2, V3, V4, V5 et V6 que je coche au fur et à mesure que la fiche de visite est créée. Ces cases ont été créées dans la T-Client au format oui/non

J'aimerais savoir s'il est possible de masquer les cases à cocher suivant le nombre de visite. C'est à dire si mon client à 2 visites par an, j'aimerais que seulement les cases V1 et V2 apparaissent.

Est-ce possible ? peut-être en VAB ?

Merci pour vos infos

[GAYOT]

Bonjour
C'est possible
Pour faire simple par exemple sur l'évènement "après mise à jour" de ton champ visite:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub NomControleVisite_AfterUpdate()
With Me
  Select Case .NomControleVisite.Value
    Case Is = 1
      .CaseACocher1.Visible = True
      .CaseACocher2.Visible = False
      .CaseACocher3.Visible = False
      .CaseACocher4.Visible = False
   Case  Is = 2
      .CaseACocher1.Visible = True
      .CaseACocher2.Visible = True
      .CaseACocher3.Visible = False
      .CaseACocher4.Visible = False
     .......
     .......
   End Select
 End With
End Sub

[maringot]

Bonjour Gayot,

Je vois bien l'idée. Donc j'ai adapté votre proposition à mes nom de champ et de case a cocher, ça donne :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub C_TypeContrat_AfterUpdate()
With Me
  Select Case .TypeContrat.Value
    Case Is = 1
      .C-V1.Visible = True
      .C-V2.Visible = False
      .C-V3.Visible = False
      .C-V4.Visible = False
   Case  Is = 2
      .C-V1.Visible = True
      .C-V2.Visible = True
      .C-V3.Visible = False
      .C-V4.Visible = False
   End Select
 End With
End Sub

mais çà ne fonctionne pas, le programme affiche "Erreur de compilation : Mode de méthode ou de données introuvables". Il surligne en jaune la ligne "Private sub..." et grise ".TypeContrat"

Où ai-je fait une erreur ?

Cordialement,

[GAYOT]

Si ta zone s'appelle C_TypeContrat, il faut mettre

Code :

1
2
3
4
5
6
Private Sub C_TypeContrat_AfterUpdate()
With Me
  Select Case .C_TypeContrat.Value
    Case Is = 1
      .C-V1.Visible = True
      .....

[maringot]

ça ne fonctionne pas non plus, cette fois le programme grise dans la phrase "Select Case .C - TypeContrat.Value" le ".C" en plus de surligner en jaune "Private sub..."

[dok flint]

Bonjour ,
Pourquoi ne pas récupérer la valeur du test dans un autre champs et mettre
le test sur ce champs comme ça la procédure à mettre en code est plus simple.
A+

[maringot]

Bonjour,

J'ai trouvé un code sur la base de votre exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Form_Current()
 
Select Case Me.C_TypeContrat
    Case "1"
    Me.C_V1.Visible = True
    Me.C_V2.Visible = False
    Me.C_V3.Visible = False
    Me.C_V4.Visible = False
    Me.C_V5.Visible = False
    Me.C_V6.Visible = False
    Case "2"
    Me.C_V1.Visible = True
    Me.C_V2.Visible = True
    Me.C_V3.Visible = False
    Me.C_V4.Visible = False
    Me.C_V5.Visible = False
    Me.C_V6.Visible = False
 
End Select
End Sub

Donc dans mes fiches clients n'apparaissent que les cases à cocher correspondantes au nombre de visite (je l'ai mis dans le formulaire sur évènement "sur activation").

J'ai un formulaire récapitulatif qui liste ces clients sous contrats et qui fait apparaitre: nom; adresse; Nombre de visite et case à cocher.
J'ai utilisé ce même code pour ne voir apparaître que les cases à cocher correspondantes au nombre de visite, je l'ai mis dans le formulaire sur évènement "sur ouverture"et j'ai essayé aussi "sur activation" et le résultat est identique, ça n'affiche que la première case à cocher.

Sauriez-vous me dire pourquoi ?

Merci pour vos réponses