'Weiter Tabellen werden gelöscht

Me!txtStatus = "Löschvorgang aktiv...01/10 Adressen"

DoEvents

CurrentDb.Execute "Delete * FROM tblAdressen", dbFailOnError



Me!txtStatus = "Löschvorgang aktiv...02/10 Berechtigungen"

DoEvents

CurrentDb.Execute "Delete * FROM tblBerechtigungen", dbFailOnError



' ...usw

Gruß aus dem Norden

Reinhard

---

Bitte immer die Access-Version angeben

---

 

geschrieben von Reinhard Kraasch , 25.10.2005, 16:34 Uhr , 23 mal gelesen