Hola a todos, esta es mi primera pregunta en este foro que desde hace unas semanas lo he encontrado y lo vengo consultando y me parece muy bueno en comparacion con otros foros.
Mi pregunta es la siguiente.
Tengo este codigo:
donde:
TxBusq es un textBox
MCL_FILTRO es un comando en DataEnvir que me muestra todos los clientes que estan en la tabla MCL
MCL_TIT es un campo de la tabla de tipo Texto (estoy con Access 2000)

'---------- aqui el codigo --------------------
Dim MiBusqueda As String
Dim MiTexto As String
MiTexto = "%" & Trim(TxBusq) & "%"
If DataE.rsMCL_FLTRO.State = 1 Then DataE.rsMCL_FLTRO.Close
DataE.MCL_FLTRO

MiBusqueda = "MCL_TIT LIKE " & Mitexto
DataE.rsMCL_FLTRO.Filter = MiBusqueda

If DataE.rsMCL_FLTRO.RecordCount > 0 Then
Set Grid1.DataSource = DataE.rsMCL_FLTRO
Endif

'------------ hasta aqui ---------------------

Como ven, en MiBusqueda no puse todo el codigo SQL "Select MCl_Tit...etc" y me funciona muy bien, por ejemplo cuando pongo en el Textbox la palabara "CARLOS" (sin comillas), me pinta en el grid todos los registros que contengan esa palabra. Si pongo "LUIS" tambien, si pongo "123" no me da ningun registro lo cual tambien es correcto porque nadie se llama "123"

El problema viene cuando pongo "CARLOS T" o "LUIS F" alli se me cae la aplicacion con el mensaje de erro numero 3001: "argumentos incorrectos fuera del intervalo permitido o en conflicto con otros".

Ya probe quitando el Trim a: MiTexto = "%" & Trim(TxBusq) & "%"

Agradeceria mucho me pudiesen indicar donde esta mi error o por donde es el camino para la solucion.

Saludos a todos desde Perú

No c si esto te pueda ayudar.

Dim MiBusqueda As String
Dim MiTexto As String
MiTexto = "'%" & Trim(TxBusq) & "%'"
If DataE.rsMCL_FLTRO.State = 1 Then DataE.rsMCL_FLTRO.Close
DataE.MCL_FLTRO

MiBusqueda = "Select * from Tabla where campo like " & MiTexto
DataE.rsMCL_FLTRO.Filter = MiBusqueda

If DataE.rsMCL_FLTRO.RecordCount > 0 Then
Set Grid1.DataSource = DataE.rsMCL_FLTRO
Endif

No pones los apostrofes, prueba
"aunque no estoy seguro si esto te solucionara el problema"
Si persiste avisanos para buscar mas opciones.(por que asi es esto de buscar)

__________________

No estoy seguro, pero parece que en Access no es con el %, es con el *

__________________
---------------------
Ácido, pero vitamínico.

Maipú- Chile

Hola amigo, gracias por responder.
No, no funciono, Los apostrofes no lo uso, pero por sicaso lo probe y no funciono. y completar la busqueda con el Select tampoco ayudo, me sigue dando error en el mismo punto.
Que podra ser?

Hola
Siempre he usado el % y me ha funcionado hasta ahora, igual probe con el * como indicas y tambien funciona pero se sigue cayendo en la misma situacion, como dije, por ejemplo cuando pongo algo como CARLOS P (se cae en la P).

Prueba con
MiTexto = "'%" & Trim(TxBusq) & "%'"

Pero mantiene tu codigo.
MiBusqueda = "MCL_TIT LIKE " & Mitexto
DataE.rsMCL_FLTRO.Filter = MiBusqueda

Cuenta como te fue y si te da error.

__________________
---------------------
Ácido, pero vitamínico.

Maipú- Chile

E X C E L E N T E ! ! !

Muchas gracias lee-mon-shu-pao, el codigo funcionó perfectamente. si bien es cierto jhocastro lo habia propuesto en su caso no me funciono porque hice la prueba conjunta con el select y es como dice lee-mon: manteniendo mi codigo.

Un abrazo a todos y gracias una vez mas, volvere...