Access - Problemas de principiante

 
Vista:

Problemas de principiante

Publicado por Raymundo (2 intervenciones) el 12/04/2006 22:00:03
Buenas... quisiera saber si alguien puede ayudarme con un problema que tengo, cree un formulario y el origen de datos los obtiene de una tabla, pero necesito localizar un registro mediante un msgdialog y mostrarlo en el formulario, no se si se pueda localizar con el metodo find, y si es asi si me pudieran explicar en que modo debe estar abierta la tabla o como puedo hacer para localizar X registro.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problemas de principiante

Publicado por Rodolfo (463 intervenciones) el 12/04/2006 22:36:27
Boton de busqueda:
Agregas un boton en el formulario y le generas el siguiente codigo.

dim base as database
dim tabla as recordset 'definimos las variables para apertura de base y tabla'
dim ingreso as variant

set base = currentdb
set tabla= base.openrecordset("nombredetutabla", dbopensnapshot)
'aca abrimos base y tabla

ingreso = inputbox("ingrese el dato a buscar")
'aca definimos caja de entrada en la cual vas a ingresar el texo a buscar.

tabla.movelast
tabla.findfirst("nombredecampo= ' " & ingreso & " ' ")
'aca definimos la busqueda. Va a buscar el primer registro que encuentre con lo que ingresaste en la inputbox

Suponiendo que tenes tres cuadros de texo independientes (texto1, texto2 y texto3), creas el siguiente condicional.

if tabla.nomatch then
msgbox("no se encontro el valor ingresado")
else
texto1.setfocus
texto1.text= tabla.fields("nombredelcampoquetengaelvaloramostrar")
texto2.setfocus
texto2.text= tabla.fields("nombredelcampoquetengaelvaloramostrar")
texto3.setfocus
texto3.text= tabla.fields("nombredelcampoquetengaelvaloramostrar")
End If
'Aca si encuentra el valor, a cada cuadro de texto independiente que tengas en el formulario, le va a poner el valor del registro que encontro

No es simple pero si efectivo.

Espero te sirva

Rodolfo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar