Создайте модуль с этой функцией и побегите он.
Общественная функция UpdateMultiples ()
DoCmd.SetWarnings ложное
УТОЧНЕНИЕ DoCmd.RunSQL «[rep_imsu_bases в сентябрь] УСТАНОВИЛО BKR01B4 = «SBK731B4» куда имя = «DM5HIS»; »
УТОЧНЕНИЕ DoCmd.RunSQL «[rep_imsu_bases в сентябрь] УСТАНОВИЛО BKR01B4 = «SBK931B4» куда имя = «DM5INT»; »
УТОЧНЕНИЕ DoCmd.RunSQL «[rep_imsu_bases в сентябрь] УСТАНОВИЛО BKR01B4 = «SBK741B4» куда имя = «DM5PRD»; »
УТОЧНЕНИЕ DoCmd.RunSQL «[rep_imsu_bases в сентябрь] УСТАНОВИЛО BKR01B4 = «SBK721B4» куда имя = «DM5QAS»; »
DoCmd.SetWarnings поистине
Функция конца