Access - demasiado complejo

   
Vista:

demasiado complejo

Publicado por Rafael (14 intervenciones) el 16/03/2009 00:24:45
=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?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:demasiado complejo

Publicado por kaditano (3 intervenciones) el 16/03/2009 19:41:36
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])
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar