Delete van alle tabellen

[danny k99]

Ik heb in acces een zo´n 20 tot 30 tabelen die gevuld worden door een toevoeg-qry. Nu wil ik in 1 keer alle tabelen deleten, maar zonder dat ik in 20 to 30 verwijder qry´s moet maken. Kan iemand me helpen met het maken van een script.

Ik zat zelf te denken aan iets als:
DoCmd.RunSQL "DELETE [B*].* " & _
" From [B*];"

B is de begin letter van de tabellen en * is voor alle tabellen.

Groet,

Danny

 

[beheer25]

Als je een beetje handig bent kun je daar een loopje voor schrijven. De tabel MSysObjects bevat alle objecten in de database. Met de volgende query heb je een lijstje met alle tabellen in je database.

SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=1) AND ((MSysObjects.LvProp) Is Not Null));

Dan is het niet heel erg moeilijk meer om er een loopje omheen te bakken die de tabellen leegkiepert. Daarvoor kun je idd docmd.runsql gebruiken.


Grtz,

 

[danny k99]

Perfect het werkt bedankt.

Danny