SoloCodigo

Hola de nuevo.

Tengo el siguiente problema a la hora de filtrar unase serie de datos de una DB

El problema es el siguiente: Necesito filtrar todos los registros de una DB cuyo valor sea superior a 3000, para ello uso la siguiente instruccion:

AW = "3000"
Set db = OpenDatabase(App.Path & "\prueba.mdb")
tira = "Select * From clientes WHERE TOTAL >= """ & AW & """ "
notal: TOTAL es el nombre del campo donde se hallan los valores que quiero filtrar
Set campo = db.OpenRecordset(Tira)

  If campo.RecordCount > 0 Then
    campo.MoveFirst
    campo.MoveLast
        With campo
            .MoveFirst
            While Not .EOF
                List1.AddItem campo(1) & Space(15) & Format(campo(10), "###,##0.00") _
                & Space(19) & campo(0)  
                 .MoveNext
            Wend
        End With
       
  Else
    MsgBox "Base  Vacia", vbInformation, "¡MENSAJE!"
     
    Me.Hide
  End If

toda esta instruccion funciona pero el caso es que tambien localiza registros con valores inferiores a 3000

por cierto el campo donde estan almacenados los valores es del tipo text

agradecería mucho vuestra ayuda, estoy bloqueado en este tema varios dias

Gracias por todo un saludo

Hola BUHO.

Si el campo TOTAL siempre va a contener un valor numérico, lo mejor que puedes hacer es modificar el diseño de la tabla y crear el campo como número.

Si quieres evitarte problemas, esta es tu mejor opción, porque las comparaciones por mayor o menor nunca funcionarán como lo esperas. Por ejemplo, el valor del texto '11' ¡ es menor que el del texto '2' !

Para conseguir un resultado satisfactorio, tendrías que usar funciones de conversión de tipos, con las que puedes tener muchos problemas...

De todas formas, si no quieres cambiar el tipo de datos del campo, puedes probar de estas formas:

1. como lo estabas haciendo pero usando comillas simples.

2
en caso de que AW siga siendo de tipo String...

3 Para curarte en salud y que funcione siempre. Es un poco más lento, te creas una tabla temporal.

Suerte.