Versuch
Privates Unterseeboot Command0_Click ()
Schwaches DB als Datenbank
Einstellen DB = CurrentDb
Auf Störung Goto- Err_Here
DoCmd.SetWarnings falsch
CurrentDb.Execute SQL
mySQL = „ÄNDERN TABELLE [Angestellte, die an Markt angepasst haben], ADDIEREN [Stecker oder Gleiches] varchar (5)“
DB. mySQL durchführen
mySQL = „UPDATE [Angestellte, die an Markt angepasst haben], STELLTE [Stecker oder Gleiches] = "" zusammengebrachtes """ ein
MsgBox „Markierungsfahne traf“ zu
DoCmd.SetWarnings zutreffend
DB. mySQL durchführen
Unterseeboot herausnehmen
Err_Here:
MsgBox „XYZ“
Enden-Unterseeboot