Opret og sletning af kolonne i en eksisterende tabel

Sub tilføj()
    Dim dbs As Database
    Set dbs = CurrentDb
    dbs.Execute \"ALTER TABLE tabel1 \" _
        & \"ADD COLUMN feltNavn bit;\"
   
End Sub
Sub slet()
    Dim dbs As Database
    Set dbs = CurrentDb
    dbs.Execute \"ALTER TABLE tabel1 \" _
        & \"DROP COLUMN feltNavn;\"
   
End Sub

Niels

Indsæt proceduerene i et nyt modul og kald dem fra en makro eller direkte fra en knap.

Ps - Det er DAO, hvis du anvender Access 2000, skal du sætte refferencen til DAO.

Niels

Autonummer = COUNTER - ikke BIT

      dbs.Execute \"ALTER TABLE tabel1 \" _
        & \"ADD COLUMN feltNavn COUNTER;\"

Sorry Niels

Jeg Får følgende fejl på linje \"Dim dbs As Database\"

Jeg ved helle ikke hvor jeg skal skrive DAO, dette er min første modul.

Jeg bruger Access XP, men det er nok det sammen som 2000

Det er fordi jeg bruger Access 97 = DAO

Du kan, når dit modul er åbent, under funktioner -> referencer fjerne ADO (active Data objects) og sætte et \'hak\' ved DAO. Så skulle min kode virke.

Eller du kan omskrive til ADO - Se i din egen hjælp.

Niels

Sub TilfAdo()

CurrentProject.Connection.Execute \"ALTER TABLE tabel1 ADD COLUMN feltNavn bit;\"

End sub

Virker den her ??? - Jeg har \'kun\' A97, så jeg kan ikke teste den !! 

Niels

CurrentProject.Connection.Execute \"ALTER TABLE tabel1 ADD COLUMN feltNavn COUNTER;\"

Mange tak

Du skal lige skrive et eller andet, så du kan få dine point, og det skal være i for af et svar.

Brugte du ADO eller DAO.

Niels

Ingen af delene, jeg har simpel hen sat udtrykket \"ALTER TABLE tabel1 ADD COLUMN feltNavn COUNTER;\" ind i en makro, der hedder kørSQL og det virker bare.