Respuesta: Listado Te refieres al literal "descansos"???
Me.Lista2.RowSource = "Select CodigoOperario, fecha,obra,actividad,horas from PartesDeTrabajo where actividad='Descansos' AND CodigoOperario=" & Me.CodigoOperario & "AND fecha=#" & Format(Date, "mm/dd/yyyy") & "#"
Un saludo |