title image


Smiley TIPP: DoEvents wirkt Wunder!


'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

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: