Probeer
Privé SubCommand0_Click ()
Schemerige db als Gegevensbestand
Vastgesteld db = CurrentDb
Op Fout GoTo Err_Here
DoCmd.SetWarnings Vals
CurrentDb.Execute SQL
mySQL = „VERANDER LIJST [Werknemers die aan Markt] hebben aangepast TOEVOEGEN [Stop of Gelijke] varchar (5)“
db. Voer mySQL uit
mySQL = de „UPDATE [Werknemers die aan Markt] hebben aangepast PLAATSTE [Stop of Gelijke] = "" Aangepaste """
MsgBox „Toegepaste Vlag“
DoCmd.SetWarnings Waar
db. Voer mySQL uit
Ga Sub weg
Err_Here:
MsgBox „XYZ“
Sub van het eind