Novata pide ayuda

30/06/2003 - 11:18 por Laura | Informe spam
Hola tengo un problemilla y aunque ya me lo han contestado
en el foro, como mi nivel de VB es bajo no he conseguido
darle solucion, os digo lo que necesito y si alguien es
tan amable...

He creado en VB6 una aplicacion para introducir datos en
un archivo de Access97.
En un formulario tengo entre otras cosas:

Un Data (Data1)
Un Textbox (Text1)
otro textbox (Text33)
Un CommandButton (Command5)

En el text1 aparece el campo EXPEDIENTE de la tabla DATOS

La idea es que al introducir en Text33 un dato por ejemplo
2056A y tras apretar Command5 aparezca en Text1 2056A como
el registro actual.

No se si me he explicado bien. En cualquier caso muchas
gracias.
 

Leer las respuestas

#1 Tomás
30/06/2003 - 11:44 | Informe spam
Lo que quieres es que este posicionado en el registro cuyo campo x
corresponda con el Text33. A ver si esto funciona.

Tabla.Movefirst
Do while not Tabla.Eof
If Tabla!Nombre_campo = text33.text then
text1.text = Tabla!Nombre_campo
exit sub
end if
Tabla.Movenext
loop

Este pequeño código recorre la tabla desde el primer registro hasta que
encuentro lo que hayas insertado en el text33. El con el exit sub te sales
para que quede posicionado en el registro actual.


"Laura" escribió en el mensaje
news:05aa01c33ee8$a2158540$
Hola tengo un problemilla y aunque ya me lo han contestado
en el foro, como mi nivel de VB es bajo no he conseguido
darle solucion, os digo lo que necesito y si alguien es
tan amable...

He creado en VB6 una aplicacion para introducir datos en
un archivo de Access97.
En un formulario tengo entre otras cosas:

Un Data (Data1)
Un Textbox (Text1)
otro textbox (Text33)
Un CommandButton (Command5)

En el text1 aparece el campo EXPEDIENTE de la tabla DATOS

La idea es que al introducir en Text33 un dato por ejemplo
2056A y tras apretar Command5 aparezca en Text1 2056A como
el registro actual.

No se si me he explicado bien. En cualquier caso muchas
gracias.

Preguntas similares