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

 1064556 visiteurs

 11 visiteurs en ligne

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 11021 fois

Vous êtes ici :   Accueil » Ajouter enregistrement