Agregar registro a otras tablas

Hola
Favor ayudame con la siguiente consulta
Estoy agregando registros a una tabla de access, con los siguientes campos
Código
Nombre
Apellido
Cada vez que agrego un registro en la tabla anterior necesito que se agregue en otras tres tablas 1 registro en cada una de ellas y uno de los campos que también se llama código, debe almacenar el valor del código que ingresé en la primera tabla.
Gracias

1 Respuesta

Respuesta
1
Private Sub Comando16_Click()
DoCmd.SetWarnings False
DoCmd. OpenQuery "ConsultaDatosAnexados1"
DoCmd. OpenQuery "ConsultaDatosAnexados2"
DoCmd. OpenQuery "ConsultaDatosAnexados3"
DoCmd.SetWarnings True
Me. Requery
DoCmd. GoToRecord acActiveDataObject,, acLast
End Sub
Si necesitas más ayuda
Puedes mandarme tu correo a
[email protected]
Hola
Algo se me aclara el tema, pero como le indico a las consultas que en cada registro agregado rellene uno de los campos con un valor específico, y que es un valor que estoy ingresando en otra tabla a través de un formulario.
Gracias
MODULO_______________________________________
Option Compare Database
Public DataAsi As Date
Public Function DonarAsientoMax()
Dim AsientoMax As Long
If Not IsNull(DMax("IdAsiento", "Asientos")) Then
AsientoMax = DMax("IdAsiento", "Asientos")
Else
AsientoMax = 0
End If
DonarAsientoMax = AsientoMax
End Function
Public Function DonarDataAsiento()
If Not IsNull(DataAsi) And IsDate(DataAsi) And DataAsi <> "0:00:00" Then
DataAsi = CDate(DataAsi)
Else
DataAsi = DLookup("DataAsiento", "Predeterminats", "Id = 1")
End If
DonarDataAsiento = DataAsi
End Function
FORMULARIO_________________________________________
Option Compare Database
Private Sub Form_BeforeInsert(Cancel As Integer)
If Not IsNull(DMax("IdAsiento", "Asientos")) Then
IdAsiento = DMax("IdAsiento", "Asientos") + 1
Else
IdAsiento = 1
End If
DataAsiento = DonarDataAsiento()
End Sub
Private Sub Form_Load()
DoCmd.Maximize
End Sub
Private Sub Comando16_Click()
If Not IsNull(DataAsiento) And IsDate(DataAsiento) Then
DataAsi = CDate(DataAsiento)
End If
DoCmd.SetWarnings False
DoCmd.OpenQuery "CopiaAsiento1"
DoCmd.SetWarnings True
Me.Requery
DoCmd.GoToRecord acActiveDataObject, , acLast
End Sub
CONSULTA DE DATOS ANEXADOS "CopiaAsiento1"_________________
INSERT INTO Asientos ( IdAsiento, DataAsiento )
SELECT DonarAsientoMax()+1 AS IdAsiento, DonarDataAsiento() AS DataAsiento
FROM Asientos;
CAMPO IdAsiento: DonarAsientoMax()+1 DataAsiento: DonarDataAsiento()
TABLA Asientos Asientos
ANEXAR A IdAsiento DataAsiento
Para más aquí estoy... si aun me necesitas
no finalices la pregunta e ignora lo siguiente:
No olvides finalizar y valorar esta respuesta por favor
al final de esta página de acuerdo a tu criterio.
Recibe un saludo y ya sabes donde encontrarme cuando
necesites algo, para ayudarte con muchísimo gusto.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copia de seguridad BD completa Access

Quiero saber si es posible mediante un botón en un formulario en Access crear una copia de seguridad de TODA la base de datos en una unidad USB al pulsar el botón. La unidad está en la ruta: D:\14gb\ Cuando digo TODA la BD son tablas, consultas, etc..
2 respuestas

Como se copia todos los datos de un subformulario a otro subformulario

Estoy copiando datos de un formulario a otro formulario, ambos con subformularios, el problema esta en que los registros del subformulario solo me copia la primera fila. Estas son los datos: Formulario "Cotizacion" Con Subformulario...
3 respuestas

Migrar desde Access a BBDD web

Tengo una base de datos Access en red con 20 equipos conectados. Es muy extensa y consta de muchas tablas, consultas, formularios e informes. Sobre todo se trabaja con formularios para recoger datos de diferentes áreas del servicio. Estos formularios...
2 respuestas

Envio de Wasap desde Acces

Tengo una base de datos que manda wasap desde la ficha del cliente, el código que uso es el siguiente Private Sub Comando19_Click() CreateObject("Shell.Application").Open "https://api.whatsapp.com/send?phone=" + Me.telefono_cliente + "&text=" +...
1 respuesta

Error en consulta de unión SQL en Access

Tengo una consulta de union SQL en la cuál obtengo todos los datos de dos Tablas llamadas tbEquipos y tbActualizaciones y quiero que esa consulta solo muestre los registros que sean iguales al valor de un cuadro de texto de un formulario. El error...
3 respuestas

Campos en informe de access auto ajustables

Tengo una duda que no se si se podrá resolver, tengo un informe de access con un texto predefinido, en el cual tienen que completarse unos campos previamente introducidos en un formulario, bien como puedo hacer para que el texto predefinido se ajuste...
4 respuestas

Access copiar el contenido de cuadro de texto con doble clic

Tengo un formulario con diferentes cuadro de texto que contienen información. Como puedo hacer para que al hacer doble clic sobre el contenido del cuadro de texto este se copie al portapapeles y poder usarlo.
2 respuestas

Recorrer una tabla de Access

Tengo un formulario de access en el que tengo un campo llamado importe y otros importe_1, importe_2, importe_3 y un campo llamado reg que lo que necesito es que si el valor del registro es 21 coloque el importe en importe_, si es 22 lo coloque en...
3 respuestas

Ocultar entorno access navegar por formularios e informes

Quiero ocultar el entorno de access pero que todo funcione tanto formulario como informes y que el icono salga en la barra de tareas
1 respuesta

Como poder bloquear tablas de access

Tengo un sistema dividido tablas y los formulario y quiero evitar que puedan entrar a las tablas así evito que modificquen algo
2 respuestas