Problème de mise jour des champs

Signaler
Messages postés
27
Date d'inscription
vendredi 13 juin 2003
Statut
Membre
Dernière intervention
19 mars 2004
-
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
-
Bonjour à tous,
G une appli VB relié à Access.C une application pour un club de foot.
G un formulaire qui marche très bien pour enregsitrer les matches mais g un pb pour mettre à jour mon classement en fonction des scores.
Je souhaiterais kil mette a jour une table en fonction des scores. Mais cette table ne veut désepèrement pas se mettre à jour!!! C de la folie!
Enfin bon si qq'un à une petite idée, ca sera sympa.Je vous montre un bout de code:

rs_adv.FindFirst "codeadv='" & Text8.Text & " ' "
'rs_adv.Edit 'on comptabilise les vic,def et nuls pour les stats

If Val(scora.Text) > Val(scad.Text) Then
rs_adv.Edit
rs_adv("matchg") = rs_adv("matchg") + 1 ' 'score1
rs_adv("butp") = rs_adv("butp") + Val(scora.Text)
rs_adv("butc") = rs_adv("butc") + Val(scad.Text)
ElseIf Val(scora.Text) = Val(scad.Text) Then
rs_adv("matchn") = rs_adv("matchn") + 1
rs_adv("butp") = rs_adv("butp") + Val(scora.Text)
rs_adv("butc") = rs_adv("butc") + Val(scad.Text)
Else: rs_adv("matchp") = rs_adv("matchp") + 1
rs_adv("butp") = rs_adv("butp") + Val(scora.Text)
rs_adv("butc") = rs_adv("butc") + Val(scad.Text)
rs_adv.update
End If

'rs_adv.update

Voila y a qq commentaires. Merci d'avance
Bonne prog à tous

1 réponse

Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
7
labout
Moi je mettrais
rs_adv("butc").value = rs_adv("butc").value + Val(scad.Text)
Maintenant si c'est de L'ADO cela ne peut marcher. Il faut une requête d'update.
@+