Manipuler La Structure Des Tables En Vba

Ajouter un champs à une table existante

Dim dbs As Database

Set dbs = CurrentDb

dbs.Execute "ALTER TABLE NomTable" & " ADD COLUMN nomduchamps char(1);"

dbs.Close

ou le supprimer

dbs.Execute "ALTER TABLE NomTable" & " DROP COLUMN doublon;"

créer une requête

Dim instsqlfin As String

instsqlfin = "SELECT * FROM " & source & " WHERE doublon='D'"

Set mabase = CurrentDb

Set qd = mabase.CreateQueryDef("Rdoublon", instsqlfin)

Supprimer une table

DoCmd.DeleteObject acTable, "sourcesansdoublons"