En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1218261 visiteurs

 14 visiteurs en ligne

Nous contacter

Contact

Ajouter enregistrement

Ajouter un enregistrement à une table indépendante

N'oubliez pas la référence DAO

En ouvrant un recordset, code à inclure dans la procédure concernée :
 

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("LaTable", dbOpenDynaset)

With rst

    .AddNew
    .Fields("LeChamp1").Value = "LaValeur"
    .Fields("LeChamp2").Value = "LaValeur"
    .Update
    .Close

End With

Set dbs = Nothing
Set rst = Nothing


Catégorie : Les mémos - Formulaires
Page lue 12117 fois

Vous êtes ici :   Accueil » Ajouter enregistrement