ajout d'un enregistrement dans table Access

Question

J'ai un problème avec la fonction AddNew. Au débogage, le programme s'arrète toujours dessus. Est ce que quelqu'un voit le problème là dedans:

'Fonction pour tenir l'historique des achats
Public Function Historique(ByVal Nom, Quantité, DateAchat, SiteIngredient as string)
Dim requete As String

    Set Base_Données = OpenDatabase("C:\MicroThese COLMONT NOEL\recettes.mdb")

    requete = "SELECT * FROM Historique ;"

    Set rs = Base_Données.OpenRecordset(requete, dbOpenSnapshot)
    With rs
        .AddNew
        .Update
        .Fields("NomIngredient") = Nom
        .Fields("QuantiteIngredient") = Quantité
        .Fields("DateAchat") = DateAchat
        .Fields("SiteIngredient") = SiteIngredient
        .Update       'sauvegarde
        .Close
    End With
    Base_Données.Close
End Function

Ou c'est peut-être un problème de référence ou composant?
je ne sais pas. HELP ME,PLEASE!

ndsaerith · Answer

Enleve peut etre le update sous le add new, le dernier suffit. Car en fait la tu lui dit de ne rien ajouter, donc il bug.
Ca c si tu veux ajouter un enregistrement.
Si tu veux updater c une autre syntaxe. Si c le cas dit le et je te la donne.

cs_nono50 · Answer

en enlevant le update j'ai un probleme de compatibilité
Merci de me repondre

cs_fitac28 · Answer

Slt,
 d'accord avec les uatres, le update à la suit e du addnew ne sert à rien. Tu lui demandes  de remettre à jour ta table sans lui avoir fournir quoique ce soit. Par conttre ton 2ème update 'sauvegarde lui ok.

Autre chose : Tu lui fais un addnew. Si il s'agit du premier en registrement OK sinon si il en existe d'autres déjà lui donner instruction .movelast.

Si 1er enregistrement then .addnew else .movelast.

Voilà si cela peut te faire avancer.

Tiens moi au courant (ai un compte msn si necessaire)

cs_fitac28 · Answer

re,

regarde sur le forum "CONNECTION ADO SIMPLE SUR ACCESS"
Envoyé par PC152@hotmail.com.

Super géant. Tu te télécharge le fichier zip. Dedans appli vb et pdf explicatif. Je viens de  le mettre en application. Si avec ça tu ne t'en sort pas je ne peux plus rien faire.                      

DU TONERRRE DE FEU !!!

Ajout d'un enregistrement dans table Access

4 réponses

Discussions similaires