Donde falla mi programa?

Armando
13 de Marzo del 2004
Vuelvo a la carga con algo que ya pregunté y que sigo sin aclararme.

Tengo una base de datos PRODUCTOS con un campo producto y tengo en un formulario un textbox (txtprodcuto) donde quiero que conforme vaya introduciendo caracteres me aparezca como caption del textbox el producto de la base de datos que más se aproxime.

Después de varios intentos ahora estoy probando con un querydef pero fallo en algo o en mucho.

Private Sub txtProducto_Change()

Set QueProductos = dbsProductos.CreateQueryDef("")
With QueProductos

' ¿AQUI IRIA UN CONNECT? ¿COMO SE PONE?
.SQL = "SELECT producto FROM productos " & _
"WHERE [left(producto,len(txtproducto.text)=txtproducto.text]"

Set rstbuscaproductos = .OpenRecordset()
rstbuscaproductos.MoveFirst

txtProducto.Text = !producto

End With

En Sub


Por favor. Intentad ayudarme. Gracias

JIMMY
13 de Marzo del 2004
CON ESTO PUEDES IR FILTRANDO CON LA PRIMERA LETRA QUE PONER
SELECT*FROM PRODUTOS WHERE PRODUCTO LIKE'%VARIABLE'
ESPERO QUE TE HAYA AYUDADO LEE UN POCO DEL COMANDO LIKE QUE TIENE VARIAS FORMAS DE BUSCAR NO ES EL UNICO TAMBIEN ESTA LA FUNCION SOUNDEX() QUE PERIMTE ENVIARTE
TODOS LOS PARECIDOS
COMO EN WORD CUANDO PONES UNA PALABRA Y ESTA MAL ESCRITA SALE LA ORTOGRAFIA DE WORD CON ESTA FUNCION PUEDES HACERLO PRUEBALO Y INVESTIGA TE LO RECOMIENDO

meeeee
13 de Marzo del 2004
.!producto para que reconozcas que viene del with necesita el punto "."