Addition

Messages postés
11
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
18 août 2002
-
Messages postés
11
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
18 août 2002
-
sur une feuille j ai mis 1 ComboBox avec la possibilite de choisir de 0 a 9, 1 Textbox, 1 CommandButton enregistrer,1controle Data,et une base de donne Access, voici ma question , en choisissant une valeur de 0a9 dans le ComboBox et en cliquant sur le button enregistrer je voudrai que cette valeur s'affiche et s'additionne avec les precedent enregistrement dans le TextBox

4 réponses

Messages postés
124
Date d'inscription
mardi 19 février 2002
Statut
Membre
Dernière intervention
7 mars 2004
1
Ce code te permet d'ajouter ce qui a été selectionné dans ta combobox pour l'ajouter dans le champ textbox1 à chaque fois que tu presses le bouton commandbutton :


Private Sub CommandButton1_Click()
Dim i As Integer
If TextBox1.Text <> "" Then
i = TextBox1.Text
End If
i = i + ComboBox1.Text
TextBox1.Text = CStr(i)
End Sub
Messages postés
11
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
18 août 2002

j ai essaye le code mais il ne fonctionne pas
Messages postés
124
Date d'inscription
mardi 19 février 2002
Statut
Membre
Dernière intervention
7 mars 2004
1
J'espère que ca marchera mieux ainsi :
Private Sub CommandButton1_Click()

Dim i As Integer
'le signe different doit apparaitre après textbox1.text
If TextBox1.Text <> "" Then

i = TextBox1.Text

End If

i = i + ComboBox1.Text

TextBox1.Text = CStr(i)

End Sub
Messages postés
11
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
18 août 2002

merci
mais je n'y arrive pas car je debute
j ai mis une petite explication de mon appli et un zip pour telecharger la source
pouvez-vous aller voir sur mon site perso http://f17317.free.fr/equipe.htm

merci beaucoup