Code pour boucle de choix de combobox

bedoom65 Messages postés 2 Date d'inscription vendredi 13 mai 2011 Statut Membre Dernière intervention 16 juin 2011 - 13 juin 2011 à 21:53
bedoom65 Messages postés 2 Date d'inscription vendredi 13 mai 2011 Statut Membre Dernière intervention 16 juin 2011 - 16 juin 2011 à 14:47
Bonjour,
j'ai monter une mini base de donnée Access et dans cette base de donnée j'ai 3 champs de poids différents dedans (Acier, Inoxydable et Aluminium). Combobox #1 pour l'acier, Combobox #2 pour l'inoxydable et Combobox #3 pour l'aluminium. il faut que je choisisse 1 des 3 Combobox pour mon calcul. Je voudrais que dans l'interface je ne puisse choisir qu'un seul des trois combobox et que le code fasse une boucle en regardant si le CB#1 est selectioner ensuite si le CB#2 et pour finir le CB#3. Une fois qu'il aurait trouver lequel est sélectionner effectuer le calcul et sortir de la boucle. Auriez-vous quelques chose à proposer? j'espère avoir été clair dans mes explications.

Bonne fin de journée

Fred.

2 réponses

nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 37
14 juin 2011 à 00:02
Salut,

Pas besoin de boucle

Algo du Bouton valider
private sub Valid_clic(sender as object, e as eventargs)

'controle des combo
dim i as integer
if(combo1.value <> "") then
  i = i+1
end if
if(combo1.value <> "") then
i = i+1
end if
...
'cas combo 1
if(i >1) then

      messagebox.show("il doit y avoir qu'une combo de selectionée")
else if i = 1 then
    'calcul
    if(combo1.value <> "") then
        calculacier()
    end if 

end if

end sub
0
bedoom65 Messages postés 2 Date d'inscription vendredi 13 mai 2011 Statut Membre Dernière intervention 16 juin 2011
16 juin 2011 à 14:47
Est-ce que je met la boucle if avant, après ou à même ma ligne de calcul qui est :

'Section calcul pour ligne de plaque
poidsindplaque = Math.Round((Val(TBplaque2.Text) * Val(TBplaque3.Text)) * (CBplaque.SelectedValue / 144), 4)
TBplaque4.Text = poidsindplaque


poidstotplaque = Math.Round(Val(TBplaque1.Text) * ((Val(TBplaque2.Text) * Val(TBplaque3.Text)) * (CBplaque.SelectedValue / 144)), 4)
TBplaque5.Text = poidstotplaque

Merci de votre réponse
0
Rejoignez-nous