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

 1223942 visiteurs

 16 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 : - Formulaires
Page lue 12150 fois
Vous êtes ici :   Accueil » Ajouter enregistrement