Create a module with this function and run it.
Public Function UpdateMultiples()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [September rep_imsu_bases] SET BKR01B4 = 'SBK731B4' where name = 'DM5HIS';"
DoCmd.RunSQL "UPDATE [September rep_imsu_bases] SET BKR01B4 = 'SBK931B4' where name = 'DM5INT';"
DoCmd.RunSQL "UPDATE [September rep_imsu_bases] SET BKR01B4 = 'SBK741B4' where name = 'DM5PRD';"
DoCmd.RunSQL "UPDATE [September rep_imsu_bases] SET BKR01B4 = 'SBK721B4' where name = 'DM5QAS';"
DoCmd.SetWarnings True
End Function