Knap der sletter

Lav en knap med denne kode:

Docmd.Setwarnings false
docmd.RunSQL "Delete From TData1"
docmd.RunSQL "Delete From Tdata2"
docmd.Setwarnings true

Lav en knap, gå i hændelser for knappen, og skriv denne kode:

Docmd.Setwarnings False
CurrentDb.Execute "DELETE FROM TData1"
CurrentDb.Execute "DELETE FROM TData2"
Docmd.Setwarnings True

Vh Henrik13

Takker mange gange - et lille spørgsmål mere - hvad nu hvis jeg vil have en advarsel op , kun lige for at være sikker ? Oprettere det gerne som et andet sprgsmål, hvis det er !

Terib-> Så fjerner du bare første og sidste linie.

Henrik->Din kode duer kun, når der benyttes DAO (Access 97)
Og når du bruger CurrentDb.Execute i stedet for DoCmd.RunSQL, så behøver du ikke Docmd.Setwarnings False

FYI

thomasjepsen - takker det virker !

>>thomasjepsen
Tak for tipset, det er en kode jeg har plukket fra en stor kode i 97, og konvateret den til xp.  :o)

Henrik-> Generelt er Currentdb.Execute genial, da man netop slipper for slå advarslerne fra. Endvidere giver det nogle flere muligheder for at styre hvordan den skal opføre sig, ligesom man har mulighed for at få information om præcis hvormange poster, som blev slettet, tilføjet eller opdateret.

Herunder et eks. på dette:

Dim db as database
Set db = Currentdb
db.Execute "Delete From TData1"
msgbox db.recordsaffected " poster blev slettet!"

Men det virker som sagt kun hvis der er en reference til DAO.

Til ADO hedder den bare:
CurrentProject.Connection.Execute ".....", men fungere en anelse anderledes (faktisk lidt dårligere end den gamle DAO-model)

Sikke jeg snakker....dette var blot en service-meddelelse :o)

Og jeg takker for informationerne.  :o)