Cocher automatiquement une case si d'autres sont cochées ! [Newbie !]

Cocher automatiquement une case si d'autres sont cochées ! [Newbie !] - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 17-06-2002 à 13:07:57   

Reply

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 ?


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 17-06-2002 à 13:36:13    

:??:  :??:  :lol:  :lol:


---------------
Music|Market|Feed|Loom|DVD
Reply

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


Message édité par Bolino le 18-06-2002 à 11:21:15
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed