Imprimir página | Cerrar ventana

Anexar registro actual

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84834
Fecha de impresión: 27/Marzo/2026 a las 02:09


Tema: Anexar registro actual
Publicado por: Nomada
Asunto: Anexar registro actual
Fecha de publicación: 18/Noviembre/2019 a las 14:15
Buenas.
Cómo puedo anexar al campo T2_AAA de la tabla T_Tabla2, el campo T1_AAA del registro actual de la tabla T_Tabla1?
Ahora mismo tengo un campo independiente (aaa) el cual, al pulsar un botón, toma el valor único del campo autonumérico de la tabla T_Tabla1 y ejecuta el código siguiente:

DoCmd.RunSQL "INSERT INTO T_Tabla2 ( T2_AAA ) SELECT T_Tabla1.T1_AAA FROM T_Tabla1 WHERE (((T_Tabla1.T1_AAA)=[aaa]))"

Este código funciona perfectamente, pero cómo podría prescindir del campo independiente (aaa) y decirle que tome el registro actual?. No sé cómo, ni donde poner el CurrentRecord.

Gracias y saludos.


Respuestas:
Publicado por: mounir
Fecha de publicación: 18/Noviembre/2019 a las 16:02
Hola!

Supongo que el formulario tiene el campo "T1_AAA"


DoCmd.RunSQL "INSERT INTO T_Tabla2 ( T2_AAA ) Values (" & Me.T1_AAA & ")"

'Si Me.T1_AAA es Numérico: (" & Me.T1_AAA & ")
'Si es texto: ('" & Me.T1_AAA & "')


-------------
Un Saludo.

Publicado por: Nomada
Fecha de publicación: 18/Noviembre/2019 a las 17:20
Perfecto Mounir.
Este hilo se puede cerrar satisfactoriamente.
Saludos y gracias.


Imprimir página | Cerrar ventana