Access - demasiado complejo

=SiInm(([Variables temporales]![MES])=1;[ENE];(SiInm(([Variables temporales]![MES])=2;[FEB];(SiInm(([Variables temporales]![MES])=3;[MAR];(SiInm(([Variables temporales]![MES])=4;[ABR];(SiInm(([Variables temporales]![MES])=5;[MAY];(SiInm(([Variables temporales]![MES])=6;[JUN];(SiInm(([Variables temporales]![MES])=7;[JUL];(SiInm(([Variables temporales]![MES])=8;[AGO];(SiInm(([Variables temporales]![MES])=9;[SEP];(SiInm(([Variables temporales]![MES])=10;[OCT];(SiInm(([Variables temporales]![MES])=11;[NOV];(SiInm(([Variables temporales]![MES])=12;[DIC];"ERROR"))))))))))))

alguna idea?

Te creas una funcion en el apartado modulos

Public Function MesLit(nummes as integer) As String
if nummes=1 then
MesLit="ENE"
elseif nummes=2 then
MesLit="FEB"
elseif nummes=3 then
MesLit="MAR"
elseif nummes=4 then
MesLit="ABR"
elseif nummes=5 then
MesLit="MAY"
elseif nummes=6 then
MesLit="JUN"
elseif nummes=7 then
MesLit="JUL"
elseif nummes=8 then
MesLit="AGO"
elseif nummes=9 then
MesLit="SEP"
elseif nummes=10 then
MesLit="OCT"
elseif nummes=11 then
MesLit="NOV"
elseif nummes=12 then
MesLit="DIC"
End Function

Cuando tengas que llamarla le pasas el parametro nummes(numerico)
Ejemplo en una consulta
mes=MesLit([Variables temporales]![MES])