koutb
Messages postés21Date d'inscriptionmercredi 2 avril 2003StatutMembreDernière intervention17 mai 2008
-
19 juil. 2007 à 11:04
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
19 juil. 2007 à 17:28
Bonjour a tous,
bon voila j'ai un proble et je sais pas comment le resoudre c'est pour ca que je poste.
bon voila j'ai 5 checkbox et j'ai un choix multiple donc je sais pas comment savoir celui qui est checked
ca fait 2 jours que je suis dessus et je m'ensort vraiment pas
(je sais pas mais j'ai trouve plus de 9*16 possiblité c'est enorme et je me dit qu'il ya un probleme)
koutb
Messages postés21Date d'inscriptionmercredi 2 avril 2003StatutMembreDernière intervention17 mai 2008 19 juil. 2007 à 11:28
je reexplique et merci pour les deux reponses,
bon mon probleme:
j'ai 5 checkbox
si je click sur le premier et le 3eme je sais que :
CheckBox1.Checked True and CheckBox3.Checked True and CheckBox2.Checked = false.....
mais le probleme c'est que quand j'active le checkbox2= true et le numero 3 checkbox3=false et j'active aussi le 5 checkbox5=trueje voudrai eviter de faire trop de if end if ou select case.... ya pas une solution simple
Sub
'---------------------------------------------------------------
Public
Sub active_btn_requete()
If
Me.CheckBox1.Checked =
True
Or
Me.CheckBox2.Checked =
True
Or
Me.CheckBox3.Checked =
True
Or
Me.CheckBox4.Checked =
True
Or
Me.CheckBox5.Checked =
True
Then
Me.Button5.Enabled =
True
Else
Me.Button5.Enabled =
False
End
If
End
Sub
'-----------------------------------
public sub traitement()
If
Me.req_dom =
"1"
Then
If
Me.req_cat =
"1"
Then
Me.la_solution =
"dc"
If
Me.req_mode =
"1"
Then
Me.la_solution =
"dmc"
If
Me.req_region =
"1"
Then
Me.la_solution =
"drmc"
If
Me.req_type =
"1"
Then
Me.la_solution =
"dtrmc"
End
If
End
If
If
Me.req_type =
"1"
Then
Me.la_solution =
"dtmc"
End
If
Else
If
Me.req_region =
"1"
Then
Me.la_solution =
"drc"
If
Me.req_type =
"1"
Then
Me.la_solution =
"dtrc"
End
If
Else
If
Me.req_type =
"1"
Then
Me.la_solution =
"dtc"
End
If
End
If
End
If
End
If
end sub
c'est pas une facon de programmer mais bon j'apprend
merci de votre aide si c'est pas encore comprehensible je reexplique un peu plus