problème de mise jour des champs

Question

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

cs_labout · Answer

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.
@+

Problème de mise jour des champs

1 réponse

Discussions similaires