Erreur vb [Résolu]

kapotocho 18 Messages postés jeudi 29 novembre 2007Date d'inscription 16 janvier 2008 Dernière intervention - 10 déc. 2007 à 16:26 - Dernière réponse : cs_mabrouklepoux 84 Messages postés lundi 6 novembre 2000Date d'inscription 25 juillet 2008 Dernière intervention
- 10 déc. 2007 à 17:01
j'ai un probléme avec mon bout de mon code en vb.
une erreur arrive:"erreur  d'execution 3020   Update ou CancelUpdate effectué sans appeler Addnew ni Edit"
Pouvez vous m'aidez.   merçi d'avance

Function cdane(aec)
Dim dbs As DAO.Database, atable As Recordset, rés As Recordset
Dim j, k, m As Integer
Dim cum, cda As Long
Static tota(99)
Set dbs = CurrentDb
Set atable = dbs.OpenRecordset("liste des cols", dbOpenSnapshot)
Set rés = dbs.OpenRecordset("cdparan", dbOpenTable, dbDenyRead Or dbDenyWrite)
rés.Index = "PrimaryKey"

    For j = 0 To 99
        tota(j) = 0
    Next
    Do Until atable.EOF
        cda = cdan(atable![Cols Durs années précéd], atable![altit], atable![année], atable![cd], aec)
        atable.MoveNext
        For j = 0 To 99
            tota(j) = tota(j) + totcd(j)
        Next
    Loop
    cum = 0
    For j = 0 To 99
       With rés
       .Edit
       .Seek "=", j
       ![Mpan] = tota(j)
       ![An 2000] = (j + 40) Mod 100 + 1960
       .Update
' Debug.Print j, tota(j)
        cum = cum + tota(j)
        cdane = cum
       End With
       
    Next
    rés.Edit
    rés.Seek "=", 100
    rés![Mpan] = cum
    rés.Update
    rés.Close
End Function
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 10 déc. 2007 à 16:35
3
Merci
Salut,

Addnew >> Dit à la base que cela va être  un nouvel enregistrement...Tu vois un peu le truc ?

Par contre il y a une chose que j'ai appris il n'y a pas encore bien longtemps, c'est de ne pas mettre d'accens sur tes variables ainsi que sur le nom de tes tables/champs...Tu verras tu t'en porteras que mieux !

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Merci cs_Exploreur 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 69 internautes ce mois-ci

Commenter la réponse de cs_Exploreur
cs_mabrouklepoux 84 Messages postés lundi 6 novembre 2000Date d'inscription 25 juillet 2008 Dernière intervention - 10 déc. 2007 à 16:32
0
Merci
sur quelle ligne l'erreur ?
Commenter la réponse de cs_mabrouklepoux
cs_mabrouklepoux 84 Messages postés lundi 6 novembre 2000Date d'inscription 25 juillet 2008 Dernière intervention - 10 déc. 2007 à 17:01
0
Merci
bien d'accord pour les accents, surtout si tu fais la betise supplémentaire de pas mettre
option explicit en haut de chacun de tes modules ...
accents oublié, panade assurée !
Commenter la réponse de cs_mabrouklepoux

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.