Cocher automatiquement une case si d'autres sont cochées ! [Newbie !] - VB/VBA/VBS - Programmation
Marsh Posté le 17-06-2002 à 13:14:08
ben tu fais pareil pour toutes les autres cases, je vois pas où est le problème ?
Marsh Posté le 18-06-2002 à 11:20:39
Gwendal a écrit a écrit : Dans un formulaire Access, j'ai 4 cases ! Case 1; Case 2; Case 3; Case 4 Je voudrais que la case une soit cocher si une des autres cases l'est ! |
Salut !
voici un code qui marche: dès qu'une des cases 2, 3 ou 4 est "cochée", la case 1 est aussi "cochée".
Tu créés une procédure qui fait ce controle, elle sera appelée à chaque click sur les cases 2 , 3 ou 4:
---------------
Private Sub case_2_Click()
Call teste_case
End Sub
------------------
Private Sub case_3_Click()
Call teste_case
End Sub
------------------
Private Sub case_4_Click()
Call teste_case
End Sub
-------------------
Private Sub teste_case()
If case_2.Value = True Then
case_1.Value = True
ElseIf case_3.Value = True Then
case_1.Value = True
ElseIf case_4.Value = True Then
case_1.Value = True
Else: case_1.Value = False
End If
End Sub
----------------------
Voili voilou
Marsh Posté le 17-06-2002 à 13:07:57
Dans un formulaire Access, j'ai 4 cases !
Case 1; Case 2; Case 3; Case 4
Je voudrais que la case une soit cocher si une des autres cases l'est !
Je connais
_________
Private Sub case1_AfterUpdate()
Case2.Value = case1.Value
End Sub
_____________
Ici la case 2 est cochée si la case une l'est !
Merci d'avance !
Gwendal