Créer un module avec cette fonction et le courir.
Fonction publique UpdateMultiples ()
DoCmd.SetWarnings faux
MISE À JOUR de DoCmd.RunSQL la « [rep_imsu_bases de septembre] A PLACÉ BKR01B4 = « SBK731B4 » où nom = « DM5HIS » ; »
MISE À JOUR de DoCmd.RunSQL la « [rep_imsu_bases de septembre] A PLACÉ BKR01B4 = « SBK931B4 » où nom = « DM5INT » ; »
MISE À JOUR de DoCmd.RunSQL la « [rep_imsu_bases de septembre] A PLACÉ BKR01B4 = « SBK741B4 » où nom = « DM5PRD » ; »
MISE À JOUR de DoCmd.RunSQL la « [rep_imsu_bases de septembre] A PLACÉ BKR01B4 = « SBK721B4 » où nom = « DM5QAS » ; »
DoCmd.SetWarnings vrai
Fonction de fin