VB6 - Find - Buscar dato en access

[maxotux]

¡Hola!

Bueno pues con una duda, estoy desarrollando un programa en vb6 que se enlace a una base de datos en access, ya puedo agregar nuevos registros, pero ahora que intento MODIFICAR registros, no lo logro.

Lo que intento hacer es primero BUSCAR el registro, luego de esto ya MODIFICARLO, lo de la modificación ya sé, pero me marca un error a la hora de buscarlo, la verdad no se mucho del tema, por eso es que estoy aquí, espero y me puedan ayudar. Saludos!

AQUI UNAS IMAGENES
http://www.mediafire.com/view/?myfiles#qxa4fry3j378pl6
http://www.mediafire.com/view/?myfiles#dq3h979f876gqz5

Aqui el proyecto: http://www.mediafire.com/?xwe053mh2c59roa

Para que les muestre el error que comento tienen que correrlo, dar clic en ACTUALIZACIONES, intentar buscar algo en la pestaña LINUX, pero en Distribucion.

En pocas palabras, lo corren, ACTUALIZACIONES, LINUX, DISTRIBUCION, escriben algun dato por ejemplo "Mint", dan en ACEPTAR, y aparece el error.

[MCKSys Argentina]

Bueno, no tengo los MDAC que corresponden (por lo que no puedo correr el codigo) pero el error QUIZAS podria ser porque abris una conexión nueva, cuando ya tenes una en el otro form?

Me refiero a si no sera un problema de bloqueo...?

Saludos!

[maxotux]

Bueno, no tengo los MDAC que corresponden (por lo que no puedo correr el codigo) pero el error QUIZAS podria ser porque abris una conexión nueva, cuando ya tenes una en el otro form?

Me refiero a si no sera un problema de bloqueo...?

Saludos!

ya lo intente, pero me dice que se necesita crear conexión

[MCKSys Argentina]

Y porque no delcaras la conexion como var Global (en un modulo?) Asi la podes usar desde cualquier form...

PD: Te recomiendo mirar codigos ajenos, asi mejoras un poco tu estilo de programacion.

[seba123neo]

hoy en dia el tema de buscar es algo anticuado, hoy directamente se muestran los registros en la grilla, y ahi se selecciona un registro para editarlo o eliminarlo, chequea el codigo de este ejemplo de ABM:

Formulario ABM con Access y Ado

la busqueda se realizaria haciendo una consulta la base de datos y mostrando los registros que coinciden en la grilla.

[HdM]

Hola.

El error lo tienes en la comilla inicial que se te ha colado tras Distribucion. No debe ir ahí:

Código (vb) [Seleccionar] Expandir

rec.Find "Distribucion'" = " " & Text1.Text & "'"

PD: haz caso de los que consejos que te han indicado anteriormente.

Saludos.