Access - Funcion Parecida a Buscarv en Access

Estimados

necesito saber como puedo traer la informacion de un registro ya ingresado al entrar el RUT de la persona y si no esta me pida adicionarla como nuevo registro.

de antemano Gracias

Patricio Romero
Rancagua
Chile

Prueba a incorporar al formulario un cuadro combiando que busque por el campo (s) que desese

Hola
el problema es que son miles de registro por eso el cuadro combinado no me sirve.
la idea es ingresar el rut en el formulario y al hacern enter te traiga los datos asociados
como el nombre, apellidos, direccion etc. y si el RUT no esxiste pedirincorporar la datos.

atte.

Patricio Romero

ESTIMADO PATRICIO:

SI BIEN LO QUE PEDIS NO ES COMPLICADO , SI ES UN POCO ENGORROSO DE EXPLICAR. TE DEJO MI MAIL : [email protected] .
ESCRIBIME Y TE DEVUELVO UN EJEMPLO EXPLICADO EL CUAL VOS DESPUES PODRÁS ADAPTAR A TUS NECESIDADES.

QUIQUE

Estimado Quique:

Ojalá me pudieras ayudar.

En una tabla de acces necesito que las celdas de una columna
busquen en una tabla una dato , dado un dato en
otra columna.

Atentamente:

Francisco.

Que raro que Jefferson no te haya contestado pues en este link a su web http://sites.google.com/site/jjjt1973/ejemplos-access tiene el ejemplo 24 que podria servirte.
Saludos desde Cádiz

Buscar un registro introduciendo el campo
‘ En este ejemplo tengo un formulario en el que uno de los campos es GP01NFIC ‘(Número de ficha) y un botón de comando (BuscarReg) que al hacer click me pide que introduzca mediante un InputBox ese número de ficha.
Con un poco de arte, lo puedes adaptar a tus necesidades.


Private Sub BuscarReg_Click()

Dim rst As DAO.Recordset
Dim strCriteria As String

strCriteria = "[GP01NFIC] Like '*" & InputBox("Introduzca el " _
& "número de ficha a buscar") & "*'"
Set rst = Me.RecordsetClone
rst.FindFirst strCriteria
If rst.NoMatch Then ‘ Si no lo encuentra
MsgBox "Ficha no encontrada", vbInformation
‘ Aqui podrias poner una llamada a un formulario de alta
Else ‘ Si lo encuentra devuelve los datos
Me.Bookmark = rst.Bookmark
End If

Set rst = Nothing

End Sub

Saludos y suerte