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