Access - Actualizar campos automáticamente - Access

 
Vista:
sin imagen de perfil
Val: 44
Ha disminuido 1 puesto en Access (en relación al último mes)
Gráfica de Access

Actualizar campos automáticamente - Access

Publicado por MAMEN (15 intervenciones) el 23/06/2020 17:35:46
Buenas tardes.

Tengo un formulario asociado a una tabla, llamados ambos OBR. Entre todos los campos me quiero centrar en tres, los cuales están relacionados con otra tabla llamada EMPRESAS. Los campos a centrarnos son "empresa"; "code" y "patronal". Esto quiere decir que cada empresa tiene un code y un número de patronal únicos para cada empresa.

Lo que quiero hacer es que a la hora de rellenar el formulario, yo seleccione o escriba el nombre de una empresa y automáticamente se actualicen (o rellenen) el code y el patronal con sus números correspondientes.

Esta es la tabla EMPRESAS

tabla-empresas

Y este el formulario OBR

formulario-OBR


Lo que quiero que en empresa al seleccionar por ejemplo CM CONTA CB se me pongan en code 730 y en patronal 11/1111111/11.

Sé hacerlo con 2 campos solo. Pero con 3 no me sale.

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: 44
Ha disminuido 1 puesto en Access (en relación al último mes)
Gráfica de Access

Actualizar campos automáticamente - Access

Publicado por MAMEN (15 intervenciones) el 23/06/2020 17:56:24
Mi método de hacerlo con 2 campos es seleccionar el campo en el origen de la fila. Y en evento antes de actualizar poner me.campo = me.campo.columna().

Con los campos empresa y code me lo hace perfecto. El problema está entre empresa y patronal, que al seleccionar la empresa solo cambia el code y en patronal pone el mismo número que el code, al seleccionar patronal si me cambia la empresa, pero quiero que sea la empresa la que cambie todo.

Este es el código que tengo en uso

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CODE_BeforeUpdate(Cancel As Integer)
Me.EMPRESA = Me.CODE.Column(1)
End Sub
 
Private Sub EMPRESA_BeforeUpdate(Cancel As Integer)
Me.CODE = Me.EMPRESA.Column(0)
Me.NPA = Me.EMPRESA.Column(0)
End Sub
 
Private Sub NPA_BeforeUpdate(Cancel As Integer)
Me.EMPRESA = Me.NPA.Column(1)
End Sub
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
sin imagen de perfil
Val: 44
Ha disminuido 1 puesto en Access (en relación al último mes)
Gráfica de Access

Actualizar campos automáticamente - Access

Publicado por MAMEN (15 intervenciones) el 23/06/2020 18:20:49
Al final de tanto probar he conseguido resolverlo. Dejo por aquí la solución por si a alguien, tan falto de conocimientos en este sector como yo, le hiciese falta y además que no sé borrar la pregunta.

Resulta que en los 3 campos tenia señalado 2 campos solos, iguales en empresa y code y desigual con patronal. He puesto los 3 campos necesarios en cada uno de los campos y con el mismo orden. Y el código ha quedado así:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CODE_BeforeUpdate(Cancel As Integer)
Me.EMPRESA = Me.CODE.Column(2)
End Sub
 
Private Sub EMPRESA_BeforeUpdate(Cancel As Integer)
Me.CODE = Me.EMPRESA.Column(0)
Me.NPA = Me.EMPRESA.Column(1)
End Sub
 
Private Sub NPA_BeforeUpdate(Cancel As Integer)
Me.EMPRESA = Me.NPA.Column(2)
End Sub

Y ya funciona perfecto.

AHORA TENGO OTRO PROBLEMA

En la tabla OBR me aparecen cambiados los campos EMPRESA y PATRONAL
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
sin imagen de perfil
Val: 44
Ha disminuido 1 puesto en Access (en relación al último mes)
Gráfica de Access

Actualizar campos automáticamente - Access

Publicado por MAMEN (15 intervenciones) el 23/06/2020 18:52:14
No sé que he hecho pero ya está SOLUCIONADO
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