Access - Ver informacion relacionada

 
Vista:

Ver informacion relacionada

Publicado por Edison (3 intervenciones) el 13/04/2009 18:24:09
Saludos
Necesito ingresar en un campo un registro Cedula y que se me aparesca en el resto de campos (nombre, apellido, cargo, salario, etc.. ) se me desplieguen automaticamente al introducir el registro correspondiente a esa persona, o el nombre o lo que sea
muchas gracias
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
sin imagen de perfil
Val: 28
Ha disminuido su posición en 3 puestos en Access (en relación al último mes)
Gráfica de Access

RE:Ver informacion relacionada

Publicado por Jefferson (382 intervenciones) el 14/04/2009 05:09:51
Hola

Asumo que no supistes adaptar el codigo que el amigo Niko7700 te envio
mejor explicate que parte del codigo no entendiste y de seguro alguien te ayudara

de todas formas prueba de esta manera
1) crea una base de datos nueva y exporta la tabla empleados del ejemplo Neptuno
2) Ingresa un nuevo campo y llamalo cedula y en tipo de datos = Numero
3) Crea un formulario nuevo e independiente y le agregas un campo de texto, el cual por logica deducible se llamara Texto0
4) Ahora copia y pega este campo 9 veces
5) copia este codigo (el mismo del amigo Niko7700)

Private Sub Texto0_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_Texto0_Click
Set dbs = CurrentDb
SQL = "SELECT * FROM Empleados WHERE Cedula = " & Me!Texto0 & ""
Set Rst = dbs.OpenRecordset(SQL)
With Rst
.MoveFirst
Me!Texto2 = Rst!Nombre
Me!Texto4 = Rst!Apellidos
Me!Texto6 = Rst!Cargo
Me!Texto8 = Rst!FechaNacimiento
Me!Texto10 = Rst!Dirección
Me!Texto12 = Rst!Ciudad
Me!Texto14 = Rst!Región
Me!Texto16 = Rst!País
Me!Texto18 = Rst!TelDomicilio
End With
Rst.Close
dbs.Close
Set Rst = Nothing
Set dbs = Nothing
Exit_Texto0_Click:
Exit Sub
Err_Texto0_Click:
MsgBox "Nº de cedula no encontrado"
Cancel = True
Resume Exit_Texto0_Click
End Sub

6) Guarda, Cierra y compacta..........Despues prueba

Como consejo utiliza un poco el sentido comun de las funciones o codigos VBA y veras como rapido le cojes el ritmo (Tambien presiona F1 sobre las funciones VBA que no conozcas y veras que sencillo lo explican) Si te limitas a copiar y pegar los codigos que te envian y no los analizas nunca vas a aprender.....
Disculpa la critica es solo constructiva

Un placer ayudarte
Desde Venezuela
Jefferson
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