Código para una consulta

Lo más fácil seria establecer una Relación entre las dos tablas, de esta forma se puede hacer una consulta de selección con las dos tablas y añadir uno o varios parámetros en la celda Criterios del campo que nos interese. P.E.: [Introduzca un valor que sea 0 5 ó 1]
También puedes poner directamente un Criterio: Como 0 Or 5 Or 1 para el campo RangoInferior y Como 5 Or 10 Or 2 para el campo RangoSuperior.
NOTA: si no se encuentran valores en la consulta que coincidan con el/los parámetro/s que introduzcamos, la consulta no devolverá filas y no mostrará ningún mensaje de error. Podemos volver a aplicar el parámetro desde esta vista de la consulta usando el menu Registros>Quitar filtro u orden

Imagino que lo que necesitas es lo siguiente: en una consulta relacionar, los rangos que están en la tabla1 e incluirlos en algún campo o campos que existen en la tabla2; no me dices a través de que campo se relacionan las dos tablas pero intentaré explicarte que podrías hacer:
1. ¿Conoces las consultas de actualización? Realizas una consulta normal, ingresas al menú "Consulta" y escoges la opción "consulta de actualiación", luego bajas a la consulta los campos de la tabla2 que quieres actualizar y en la fila nueva que aparece abajo en el diseño de la consulta llamada "Actualizar a" indicas[Tabla1].[Nombrecampo] Es decir el campo de la tabla uno que quieres incluir en la tabla2.
2. Para hacerlo por código el asunto es más o menos así
Sub actualiza()
Dim Bd As Database
Dim SQL As String
Dim RsTabla1 As Recordset
Dim RsTabla2 As Recordset
Dim Valor, Relacion
Set Bd = CurrentDb
SQL = "Select * From Tabla1"
Set RsTabla1 = Bd.OpenRecordset(SQL, dbOpenDynaset)
RsTabla1.MoveFirst
While Not RsTabla2.EOF
Valor = RsTabla1![CampoOrigen] 'Es decir el nombre del campo que quieres poner en la tabla2
Relacion = RsTabla1![CampoRelacion] 'Es decir el nombre del campo que relaciona la tabla1 con la tabla2
SQL = "Select [CampoDestino] From Tabla2 where Tabla2.CampoRelacion = '" & Relacion & "'"
Set RsTabla2 = Bd.OpenRecordset(SQL, dbOpenDynaset)
RsTabla2.MoveFirst
While Not RsTabla2.EOF
With RsTabla2
.Edit
![CampoDestino] = Valor
.Update
End With
RsTabla2. MoveNext
Wend
RsTabla1. MoveNext
Wend
end sub
Lo que hace este procedimiento es almacenar la tabla1 en una variable y luego empezar a recorrer esa variable tomando el valor que se quiere almacenar en la tabla2 y el campo que relaciona las dos tablas, luego almacena la tabla 2 en otra variable y coloca el valor a actualizar en la tabla2 tantas veces como coincida el campo de relación.