 Autor
|
Tema: Busqueda de datos en una tabla (Leído 2,866 veces)
|
Ragde88
 Desconectado
Mensajes: 47
|
hola a todos
estoy haciendo un programa con vb 6, en el cual se crea una factura. Para llenar todos los campos en el formulario, solo debo de cambiar la clave de registro del usuario, y apareceran automaticamente todos los datos que se encuentran guardados en una taba hecha en acces.
Para introducir la clave de registro del usuario utilizo el siguiente codigo:
Private Sub Command1_Click()
Dim buscar As String, criterio As String
buscar = InputBox("Escribe el R.F.C del cliente")
criterio = "R F C Like'*" & buscar & "*'"
Data1.Recordset.MoveNext
Data1.Recordset.Find criterio
End Sub
Pero me señala un error en: data1.recordset.find criterio
Realmente soy muy nuevo en vb, quisiera saber si me pueden ayudar a resolver este problema.
saludos
|
|
|
|
|
En línea
|
|
|
|
germixxx
Desconectado
Mensajes: 26
|
Jeje no me interesan mucho las base de datos y siempre me salteaba este post, perdon  , creo q seria Data1.findfirst criterio
|
|
|
|
|
En línea
|
|
|
|
Ragde88
Desconectado
Mensajes: 47
|
Gracias  ya me funciona correctamente el programa  saludos |
|
|
|
|
En línea
|
|
|
|
Ragde88
Desconectado
Mensajes: 47
|
hola de nuevo
el codigo que me dijiste, me funciono en ese formulario, pero al querer utilizarlo en otro me señala error de nuevo, me dice lo siguiente:
Error 3077
Error de sintaxis (falta operador) en la expresion
y al tratar de depurarlo, me señala otra vez ese renglon, que ahora tiene escrito " data1.recordset.findfirst criterio"
espero que me puedan ayudar, es muy importante
saludos
|
|
|
|
|
En línea
|
|
|
|
germixxx
Desconectado
Mensajes: 26
|
Fijate si declarastes la variable string criterio y si la variable no esta vacia o tiene algun dato invalido
|
|
|
|
|
En línea
|
|
|
|
Ragde88
Desconectado
Mensajes: 47
|
se supone que no esta vacia
por que pongo
criterio = "Numero de control Like '*" & buscar & "*'"
y si esta declarada al principio
|
|
|
|
|
En línea
|
|
|
|
|
 |
