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

 1224986 visiteurs

 10 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 12152 fois
Vous êtes ici :   Accueil » Ajouter enregistrement