cuadro de texto y botón buscar

[azul_18]

Como podría hacer para tener un cuadro de texto "texto1" y un botón de buscar y que al hacer clic me desplegara en otros 5 campos de texto la información correspondiente a lo relacionado con lo que se escribió en el campo de texto1, por ejemplo de la tabla :alumno con los campos 1. nombre 2.domicilio, 3.telefono, 4. edad, 5.matricula, y que en texto1 buscara por matrícula ,de antemano muchas gracias.

[SalomonSab]

sencillo:

en el boton Buscar agrega estas lineas:

Código:

     Rs.Open "SELECT * FROM alumno WHERE matricula = '" & Texto1.Text & "'"
     Text2.Text = Rs.Fields ("Campo1)
     .
     .
     .
     .

y Asi hasta que agregues todos los textbox con los datos de la tabla a la que haces referencia.

Espero te sirva. Solo es una idea lo demas tu lo Agregaras...

[moradazo]

Toma en cuenta la palabra llave que se escribe en el texto1. A partir de esa cadena, se comparará con una base de datos que tengas almacenada la información que quieres buscar.

La ayuda de SalomonSab es muy buena

[azul_18]

ok gracias lo probé pero me marca un error de "se requiere objeto " y me marca error en la primera línea del código y lo he puesto algo asi:

Private Sub Comando16_Click()

Rs.Open "SELECT * FROM alumno WHERE matricula = '" & matricula.Value & "'"
nombre.Value = Rs.Fields(nombre)
edad.Value = Rs.Fields(edad)
domicilio.Value = Rs.Fields(domicilio)

End Sub

[Avellaneda]

Iniciado por azul_18

ok gracias lo probé pero me marca un error de "se requiere objeto " y me marca error en la primera línea del código y lo he puesto algo asi:

Private Sub Comando16_Click()

Rs.Open "SELECT * FROM alumno WHERE matricula = '" & matricula.Value & "'"
nombre.Value = Rs.Fields(nombre)
edad.Value = Rs.Fields(edad)
domicilio.Value = Rs.Fields(domicilio)

End Sub

El ejemplo que te puso SalomonSab es para Visual Basic y no válido para VBA.

Sería aconsejable indicar siempre el lenguaje de Visual Basic que se está utilizando, para evitar respuestas innecesarias que pudieran confundir a los demás.

[azul_18]

gracias , y si uso vba entonces como seria en este caso, algo similar??

[SalomonSab]

Te falta poner las comillas prueba con esto:

Código:

Private Sub Comando16_Click()

Rs.Open "SELECT * FROM alumno WHERE matricula = '" & matricula.Value & "'"
nombre.Value = Rs.Fields("nombre")
edad.Value = Rs.Fields("edad")
domicilio.Value = Rs.Fields("domicilio")

End Sub

Acertaremos ahora...

[David]

SalomonSab, eso es para VB6 no para VBA.

Para VBA podrías indexar el campo en el que deseas buscar y hacer lo siguiente:

Código:

Dim Rs As Recordset
Set Rs = CurrentDb.OpenRecordset("Tabla")
Rs.Index = "Campo" 'Debe estar indexado
Rs.Seek "=", "Criterio a Buscar"
'Luego en Rs.Fields obtendrás los campos, primero compara con Rs.NoMatch si hubo coindidencias

[SalomonSab]

Perdon David el Grande la realidad es que desconozco completamente VBA pense que era la misma estructura. una disculpa a azul_18 y a David el Grande