Novata pide ayuda

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.

Upppsss lo siento. El código no te sirve ya que usas un Data y no DAO. No me
había fijado bien.
Hmmm con un Data no me lo se de memoria ya que nunca lo utilizo.


"Tomás" escribió en el mensaje
news:

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.

Prueba el método FindFirst de la propiedad Recordset de tu data control.
Algo más o menos así:

Sub Command5_Click ()

Data1.Recordset.FindFirst "EXPEDIENTE='" & Text1 &"'"
Data1.UpdateControls
End Sub

Aquí he asumido que:

1- Tienes enlazado el texto Text33 al data control (Propiedades DataSource y
DataField del texto)
2- El campo EXPEDIENTE es alfanumérico (por eso he puesto las comillas
simples en la sentencia)
3- No estás poniendo una parte del campo sino el campo completo, es decir
buscas aquel que sea IGUAL a lo que has escrito, no el que se PAREZCA a lo
que has escrito...

Es un buen comienzo, a partir de ahí puedes experimentar...

Salu2


"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.