Access - CÓDIGOOO URGENTEEE

ok, necesito saber si alguien me puede ayudar reduciendo un código que escribí que es el "orígen de control" de un campo independiente que tengo en un formulario. Explico más o menos lo que debe hacer: en una tabla tengo 24 campos "check", necesito que campo de un formulario me cargue X hora dependiendo del primer campo de los check que encuentre marcado. Por ejemplo, si el campo Hora1=true entonces el campo de texto debe decir la hora 7 a.m., y así sucesivamente como se ve en el código. El código funciona, pero es demasiado largo para meterlo como una expresión del orígen del control!!!! AYUDAAAAA

El código está en la nota de abajo. Véanlo, graciassss

El código:

=SiInm([Hora1]=Verdadero,"7:00 a.m.",SiInm([Hora2]=Verdadero,"8:00 a.m.",SiInm([Hora3]=Verdadero,"9:00 a.m.",SiInm([Hora4]=Verdadero,"10:00 a.m.",SiInm([Hora5]=Verdadero,"11:00 a.m.",SiInm([Hora6]=Verdadero,"12:00 p.m.",SiInm([Hora7]=Verdadero,"1:00 p.m.",SiInm([Hora8]=Verdadero,"2:00 p.m.",SiInm([Hora9]=Verdadero,"3:00 p.m.",SiInm([Hora10]=Verdadero,"4:00 p.m.",SiInm([Hora11]=Verdadero,"5:00 p.m.",SiInm([Hora12]=Verdadero,"6:00 p.m.",SiInm([Hora13]=true,"7:00 p.m.",SiInm([Hora14]=true,"8:00 p.m.",SiInm([Hora15]=true,"9:00 p.m.",SiInm([Hora16]=true,"10:00 p.m.",SiInm([Hora17]=true,"11:00 p.m.",SiInm([Hora18]=true,"12:00 a.m.",SiInm([Hora19]=true,"1:00 a.m.",SiInm([Hora20]=true,"2:00 a.m.",SiInm([Hora21]=true,"3:00 a.m.",SiInm([Hora22]=true,"4:00 a.m.",SiInm([Hora23]=true,"5:00 a.m.",SiInm([Hora24]=true,"6:00 a.m."))))))))))))))))))))))))

Puedes empezar por simplificar \":00\" y \"a.m.\" o \"p.m.\" haciendolo por bloques, y cambiando \"verdadero\" por \"-1\" .Usar -1 es igual a verdadero. ej. :
=(SiInm([Hora1]=-1,\"7\",SiInm([Hora2]=-1,\"8\",SiInm([Hora3]=-1,\"9\",SiInm([Hora4]=-1,\"10\",SiInm([Hora5]=-1,\"11\", etc ) ) & \" :00 \"