RE:Problemas de principiante
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