Buscar

[el_tigre]

Amigos, tengo progamando una opciòn de búsqueda según los datos de un combo

mi base de datos está en Access, tengo una tabla que se llama facturas y allí hay un campo que se llama "nro_factura" el campo es Autonumérico (ya lo probé con numérico y tampoco funciona), mi combo lo relleno en tiempo de diseño, tengo 3 opciones de búsqueda

nro_factura, cliente, obra (me funcionan perfectamente los dos últimos pero no logro dar con el problema del "nro_factura"

este es el error que da

Código:

Run-tima error'-2147217881 (80040e27)':

No se pudo realizar la búsqueda en la columna especificando o el operador de comparación no es válido

Este es mi código de búsqueda

Código:

Private Sub txtbusca_Change()
    If txtbusca <> "" Then
        RSfacturas.MoveFirst
        RSfacturas.Find cmb_buscar & " like '" & txtbusca & "*" & "'"
    End If
End Sub

[Avellaneda]

Sustituye el comodín "*" por "%"

RSfacturas.Find cmb_buscar & " LIKE '" & txtbusca & "%'"

[franko1809]

If RSfacturas.RecordCount > 0 Then
RSfacturas.MoveFirst
RSfacturas.Find cmb_buscar & " like '" & txtbusca & "*" & "'"
end if

[el_tigre]

No me ha funcionado ninguno de los métodos ni fusionándolos, realmente no encuentro la falta.

[franko1809]

Crea un nuevo proyecto y una nueva base de datos con la tabla y los campos que quieres buscar a lo mejor la falla esta en que has activado alguna propiedad sin darte cuenta si aun no funciona no se que pueda ser

saludos

[Avellaneda]

El problema es que el operador 'LIKE' no admite búsquedas parciales cuando el campo a buscar es de tipo numérico. Para buscar (el número exacto) tienes que ponerlo así:

RSfacturas.Find cmb_buscar & " LIKE #" & txtbusca & "#"

que es lo mismo que con el operador igual (=)

RSfacturas.Find cmb_buscar & " = " & txtbusca

En tu código 'buscar' deberías poner una condición de este tipo

Código:

If cmb_buscar = "nro_factura" Then
... lo anterior
Else
... lo otro
End If

[el_tigre]

Excelente respuesta amigo, funcionó a la perfección

Muchas Gracias