Access - Copiar Tabla basada en cuadro combinado

Buen día a todos, tengo una pregunta.

Tengo una base de datos con una tabla donde se ponen todos los generales de personas, tales como: Nombre, domicilio, colonia, ciudad, entre otros.

Hay tambien una segunda tabla donde estas personas cumplen un papel en particular, unos son Acreditados, otro es aval1 y por ultimo aval2 s, la cuestion es que para cada registro de esta nueva tabla se eligen 3 personas de la tabla anterior uno para cada papel ( acreditado, aval1,Aval2) y se usan sus datos de la tabla generales. hice 3 cuadros combinados en el formulario, en cada uno eliges a la persona que tendra dicho rol ( acreditado, aval1,Aval2) y se llena la tabla nueva con un AfterUpdate, la cuestion es que cuando la probe funcionaba bien, pero al usarla al dia siguiente ya no funcionaba, ya que el formulario tiene obviamente 3 AfterUpdate uno para cada cuadro combinado, lo que hace que al seleccionar el primero se copie bien la informacion, pero cuando se selecciona una persona del segundo cuadro combinado, se copia la misma informacion del primero, y al seleccionar el tercero, se copia el primero tambien o el segundo, no siempre hace lo mismo.

este es el codigo que use:

Private Sub Acreditado_AfterUpdate()
Nombres = Acreditado.Column(1)
Direccion = Acreditado.Column(2)
Colonia = Acreditado.Column(3)
CP = Acreditado.Column(4)
Ciudad = Acreditado.Column(5)
Estado = Acreditado.Column(6)
CURP = Acreditado.Column(7)
IFE = Acreditado.Column(8)
End Sub

Private Sub Aval1_AfterUpdate()
Nombre1 = Acreditado.Column(1)
Direccion1 = Acreditado.Column(2)
Colonia1 = Acreditado.Column(3)
CP1 = Acreditado.Column(4)
Ciudad1 = Acreditado.Column(5)
Estado1 = Acreditado.Column(6)
CURP1 = Acreditado.Column(7)
IFE1 = Acreditado.Column(8)
End Sub

Private Sub Aval2_AfterUpdate()
Nombre2 = Acreditado.Column(1)
Direccion2 = Acreditado.Column(2)
Colonia2 = Acreditado.Column(3)
CP2 = Acreditado.Column(4)
Ciudad2 = Acreditado.Column(5)
Estado2 = Acreditado.Column(6)
CURP2 = Acreditado.Column(7)
IFE2 = Acreditado.Column(8)
End Sub

cual sera la solucion??


MUCHAS GRACIAS!!!!! POR SU AYUDA!!!!

AL COPIAR MI CODIGO AQUI ME DI CUENTA QUE COMETI UNA MEGA TONTERIA.... todos dicen Acreditado.Column() y deberian decir el nombre de cada campo jajajajajaj, que tonto :D

Gracais

Hola!

Estás utilizando mal los nombres de campos.

Fíjate que el nombre del evento es:
Private Sub Acreditado_AfterUpdate()
y tú haces:
Nombres = Acreditado.Column(1)
etc.

Luego, para el resto de combos debes utilizar la misma sistemática. Es decir:
Private Sub Aval1_AfterUpdate()
Nombre1 = Aval1.Column(1)
etc

y

Private Sub Aval2_AfterUpdate()
Nombre2 = Aval2.Column(1)
etc

Saludos,

Neckkito
http://bit.ly/neckkito
http://nksvaccessolutions.com/