Ajout d'un nouvel enregistrement à des tables d'une BD sans les dénommer

[IrinaVit]

*Bonjour*

Peut-on ajouter un nouvel enregistrement à toutes les tables d’une base de données sans les dénommer? Plus précisément, j’ai une base de données qui est constitué d’un ensemble des tables ayants le même champ – Numéro Contact. Je veux ajouter un nouvel contact à toutes ses tables via un formulaire. J’ai essayé d’utiliser la collection AllTables, mais pour les objets de cette collection la méthode AddNew n’est pas valide.

[loufab]

Bonjour,

Alltable ou Tabledefs va te permettre de trouver les noms des tables. à partir de là ouvre un recordset sur chacune d'elle pour avoir le addnew.
Voici un exemple à adapter :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function test()
Dim db As Database
Dim tbl As TableDef
Dim rst As Recordset
 
Set db = CurrentDb
For Each tbl In db.TableDefs
    Set rst = db.OpenRecordset(tbl.Name, dbOpenTable)
    rst.AddNew
    rst.Update
    rst.Close
    Set rst = Nothing
Next
End Function

Consulte le tuto DAO pour plus d'info.

Cordialement,