Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
765 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°160728
Gwendal
Posté le 17-06-2002 à 13:07:57  profilanswer
 

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

mood
Publicité
Posté le 17-06-2002 à 13:07:57  profilanswer
 

n°160737
mareek
Et de 3 \o/
Posté le 17-06-2002 à 13:14:08  profilanswer
 

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
n°160749
Loom the G​loom
Even coders get the blues...
Posté le 17-06-2002 à 13:36:13  profilanswer
 

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


---------------
Music|Market|Feed|Loom|DVD
n°161592
Bolino
Posté le 18-06-2002 à 11:20:39  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
PHPBB [Newbie inside][newbie][C] pb avec scanf
de l'aide pour un newbie sivouplé[Visual C++] Incrémenter le numero de version automatiquement
Petite aide pour un newbiefonction javascript pour cocher tout les checkbox d'un form ?
I am 100% newbie, kel language apprendre???[VBS] Retour d'une fonction (Attention Newbie)
Gros Newbie interesse[access] changer des cases a cocher en "oui" /"non" dans un etat ?!?
Plus de sujets relatifs à : Cocher automatiquement une case si d'autres sont cochées ! [Newbie !]


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR