Access - Error en Código

Hola a tod@s! A ver si podeis ayudarme un poquillo...

Tengo el siguiente código:

Me.Actualización_a_fecha_ = Now()
If Me.Hora_ACC_INC >= "6:00" And Me.Hora_ACC_INC <= "7:59" Then
Me.Hora_Estadística = "1"
End If
If Me.Hora_ACC_INC >= "8:00" And Me.Hora_ACC_INC <= "09:59" Then
Me.Hora_Estadística = "2"
End If
If Me.Hora_ACC_INC >= "10:00" And Me.Hora_ACC_INC <= "11:59" Then
Me.Hora_Estadística = "3"
End If
If Me.Hora_ACC_INC >= "12:00" And Me.Hora_ACC_INC <= "13:59" Then
Me.Hora_Estadística = "4"
End If
If Me.Hora_ACC_INC >= "14:00" And Me.Hora_ACC_INC <= "15:59" Then
Me.Hora_Estadística = "5"
End If
If Me.Hora_ACC_INC >= "16:00" And Me.Hora_ACC_INC <= "17:59" Then
Me.Hora_Estadística = "6"
End If
If Me.Hora_ACC_INC >= "18:00" And Me.Hora_ACC_INC <= "19:59" Then
Me.Hora_Estadística = "7"
End If
If Me.Hora_ACC_INC >= "20:00" And Me.Hora_ACC_INC <= "5:59" Then
Me.Hora_Estadística = "8"
End If
End Sub

Sin embargo, me pone el número que quiere ¿Sabéis dónde me equivoco? Gracias!!!

Tu error es que cierras el if cada vez, y así sólo te va a funcionar la primera vez que lo hagas. El codigo deberia ser así:

Me.Actualización_a_fecha_ = Now()
If Me.Hora_ACC_INC >= "6:00" And Me.Hora_ACC_INC <= "7:59" Then
Me.Hora_estadística = 1
ElseIf Me.Hora_ACC_INC >= "8:00" And Me.Hora_ACC_INC <= "9:59" Then
Me.Hora_estadística = 2
ElseIf Me.Hora_ACC_INC >= "10:00" And Me.Hora_ACC_INC <= "11:59" Then
Me.Hora_estadística = 3
ElseIf Me.Hora_ACC_INC >= "12:00" And Me.Hora_ACC_INC <= "13:59" Then
Me.Hora_estadística = 4
ElseIf Me.Hora_ACC_INC >= "14:00" And Me.Hora_ACC_INC <= "15:59" Then
Me.Hora_estadística = 5
ElseIf Me.Hora_ACC_INC >= "16:00" And Me.Hora_ACC_INC <= "17:59" Then
Me.Hora_estadística = 6
ElseIf Me.Hora_ACC_INC >= "18:00" And Me.Hora_ACC_INC <= "19:59" Then
Me.Hora_estadística = 7
ElseIf Me.Hora_ACC_INC >= "20:00" And Me.Hora_ACC_INC <= "5:59" Then
Me.Hora_estadística = 8
End If

Puedes copiarlo y pegarlo directamente ya que he usado tus mismos nombres de campo. Suerte

Funciona!! Muchas gracias Jordi.