Additionné les données dans un champ

Résolu
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 9 déc. 2006 à 12:09
bricoyeye Messages postés 326 Date d'inscription vendredi 15 avril 2005 Statut Membre Dernière intervention 29 avril 2008 - 9 déc. 2006 à 18:12
bonjour
dans une table ACCESS j'ai 2 champs et à partir de mon programme
j'envoi des données numériques dans un champ  l'aide d'un bouton.
        tb1![score] = Text25.Text
        tb1![score] = Text26.Text
        tb1![score] = Text27.Text
        tb1![score] = Text28.Text
comment faire pour additonné les données à chaque fois que je valide
au lieu d'enregistré et d'éffacé mon ancienne donnée.
j'espere avoir était assez clair
merci
@ plus
petchy

5 réponses

bricoyeye Messages postés 326 Date d'inscription vendredi 15 avril 2005 Statut Membre Dernière intervention 29 avril 2008 2
9 déc. 2006 à 15:00
  tb1![score] =  total + Text25.Text
        tb1![score] = tota l + Text26.Text
        tb1![score] = total + Text27.Text
        tb1![score] = total + Text28.Text
 text est string!

  tb1![score] =  total + Val (Text25.Text)
        tb1![score] = total + Val  (Text26.Text)
        tb1![score] = total + Val (Text27.Text)
        tb1![score] = total + Val (Text28.Text)

Explique bien ce que tu veux faire, car là, tu mets à jour des Recordset sans les mettre à jour!





tb1!score étant (je pense un Recordset) ta deuxiéme ligne l'ouvrira avec la même somme si tu ne mets pas à jour ta premiere ligne!

Dim sc as Integer
sc = tb1![score]




 sc = sc + Val ( Text25.Text)
    sc  =sc + Val (Text26.Text)
       sc = sc + Val (Text27.Text)
      sc  = sc + Val (Text28.Text)

tb1![score] =  sc

tb1.Update
tb1. Close








 






 
3
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 27
9 déc. 2006 à 13:48
 Bonjour

variable total a déclarer
Dim total As .....
total = ""

        tb1![score] =  total + Text25.Text
        tb1![score] = tota l + Text26.Text
        tb1![score] = total + Text27.Text
        tb1![score] = total + Text28.Text

jean-marc
0
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 4
9 déc. 2006 à 14:21
Re
merci de me répondre
ça ne fonctionne pas,il me met une erreur quand je valide "type incompatible",il me surligne total.
petchy
0
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 4
9 déc. 2006 à 18:09
re
merci beaucoup
petchy
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
bricoyeye Messages postés 326 Date d'inscription vendredi 15 avril 2005 Statut Membre Dernière intervention 29 avril 2008 2
9 déc. 2006 à 18:12
De Rien
0
Rejoignez-nous