Ein Modul mit dieser Funktion herstellen und es laufen lassen.
Allgemeine Funktion UpdateMultiples ()
DoCmd.SetWarnings falsch
DoCmd.RunSQL „UPDATE [September rep_imsu_bases] STELLTE BKR01B4 = „SBK731B4“ wo Name = „DM5HIS“ ein; “
DoCmd.RunSQL „UPDATE [September rep_imsu_bases] STELLTE BKR01B4 = „SBK931B4“ wo Name = „DM5INT“ ein; “
DoCmd.RunSQL „UPDATE [September rep_imsu_bases] STELLTE BKR01B4 = „SBK741B4“ wo Name = „DM5PRD“ ein; “
DoCmd.RunSQL „UPDATE [September rep_imsu_bases] STELLTE BKR01B4 = „SBK721B4“ wo Name = „DM5QAS“ ein; “
DoCmd.SetWarnings zutreffend
Enden-Funktion