Evento Posterior "Después de Eliminar" ACCESS 2013
Necesito saber como puedo hacer para que al eliminar un registro de una tabla "T1", este se almacene en otra tabla "T2" para guardar un histórico.
Lo he intentado realizar así, al tenera abierta la tabla T1 se habilita una opción que dice "Herramientas de Tabla", luego "tabla", luego la opción que dice "después de eliminar" ahí se habilita una opción de creación de macro con asistente, doy a la opción "crear un registro en" T2
Al eliminar el registro de T1 verifico en T2 y aparece que se crea un registro pero vacío.
No se si lo estoy haciendo de la forma correcta, si estoy omitiendo algún paso, o si hay una mejor forma de hacerlo.
1 respuesta
Edwin: Este código >>
Cómo copiar un registro mediante la colección Fields y la propiedad Value
El bucle siguiente copia todos los campos del registro actual en la tabla 1 en los campos correspondientes del registro actual en la tabla 2:
Dim MyDB As Database, Tbl1 As Table, Tbl2 As Table
Set MyDB = OpenDatabase("BIBLIO.MDB") ' Open Database.
Set Tbl1 = MyDB.OpenTable("Publishers") ' Open Table.
Set Tbl2 = ...
For i = 0 to Tbl1.Fields.Count - 1
Tbl2(Tbl1.Fields(i).Name).Value = Tbl1.Fields(i).Value
Next
El bucle anterior se supone que los campos en la tabla 2 son idénticos a los de la tabla 1.
Está sacado de ésta página.
https://support.microsoft.com/es-es/kb/110588
Espero te ayude. Saludos >> Jacinto
Edwin: Con el fin de cerrar temas, y dado que ésta pregunta me sale pendiente te ruego la valores o en su caso me comentes si necesitas información adicional. Saludos >> Jacinto
