Access - Ayuda con filtro en vba

Hola buenas noches, antes que nada queria agradecerles por su ayuda, mi problema es el siguiente.

tengo una base base de datos con una tabla con varios valores numerios tanto enteros como con decimales, y he creado un formulario con un filtro en vba, en el coloco un cuadro de texto llamado "txtdim" con el sigiente codigo

Dim smedida As String

If Not IsNull(Me.txtdim) And Me.txtdim <> "" Then
smedida = "c1 BETWEEN" & Me.txtdim - 1 And Me.txtdim + 1
Else
smedida = ""
End If

(el codigo sigue que es donde aplico el filtro al formulario, solo que no lo pongo ya que pienso que el problema esta en este fragmento de codigo)

lo que yo quiero que haga es buscar todos los valores en un rango de ± 1, dependiendo del valor que coloque en txtdim

espero me puedan enterder y ayudar.

Saludos.

Hola.

Corrige la expresión.

smedida = "c1 BETWEEN " & Me.txtdim - 1 & " AND " & Me.txtdim + 1

Ojo con los espacios en blanco detrás de BETWEEN y antes y después de AND.

Un saludo,

Norberto.

Genial muchas gracias, me fuiste de mucha ayuda, como no me salia de esa manera lo intente de la siguente forma que si me dio resultado,


pero se me hacia muy largo el cogido de esta manera, entonces probe nuevamente corrigiendo la expresion como me digiste y anduvo perfecto.

Una pregunta mas, haber si me podes ayudar, en esta misma expresion que me explicaste si le cambio el rango de ± 1 a ± 0.5 quedando de la siguiente manera

smedida = "c1 BETWEEN " & Me.txtdim - 0.50 & " AND " & Me.txtdim + 0.50

me salta un error de "error de sintaxis (coma) en la expresión de consulta"
como puedo solucionarlo?

Desde ya muchas gracias.

Saludo

Ok.

El problema es que cuando concatenas directamente un texto con un valor numérico éste es convertido a texto usando la configuración regional, por lo que la cadena resultante para "Tengo " & 3.5 & " Euros" es "Tengo 3,5 Euros". Si se trata de visualizarlo, perfecto; pero si lo queremos en una expresión SQL... Para que el número se convierta en texto manteniendo el punto usa la función Str(...) de esta manera:

smedida = "c1 BETWEEN " & Str(Me.txtdim - 0.50) & " AND " & Str(Me.txtdim + 0.50)

Un saludo,

Norberto.

Genail, muchas gracias me has sido de mucha ayuda, me funciono a la perfeccion y tambien queria agradecerte por la esplicacion del porque es asi, la verdad de la forma en la que me lo explicaste lo entendi rapidamente y me fue de mucha ayuda.

Muchas gracias por tu ayuda.

Saludos.