addition

Question

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

cs_thitoune · Answer

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

laurent513 · Answer

j ai essaye le code mais il ne fonctionne pas

cs_thitoune · Answer

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

laurent513 · Answer

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

Addition

4 réponses

Discussions similaires