dim repName as string repName = iif(me.Поле1 = "Значение1", "Отчет1", "Отчет2") docmd.openReport repName, ....