Essai
Sous-marin privé Command0_Click ()
Faible DB comme base de données
Placer DB = CurrentDb
Sur l'erreur Err_Here GoTo
DoCmd.SetWarnings faux
CurrentDb.Execute SQL
le mySQL = « CHANGENT LA TABLE [employés qui se sont assorties au marché] AJOUTENT [prise ou allumette] varchar (5) »
DB. Exécuter le mySQL
le mySQL = « MISE À JOUR [employés qui se sont assorties au marché] A PLACÉ [prise ou allumette] = assorti par "" le """
MsgBox « drapeau s'est appliqué »
DoCmd.SetWarnings vrai
DB. Exécuter le mySQL
Sortir le sous-marin
Err_Here :
MsgBox « XYZ »
Sous-marin d'extrémité