¿Cómo copiar un registro de una tabla a otra, en la misma base de datos?
Les escribo para ver si me pudieran hacer el favor de ayudarme.
Tengo una tabla que se llama OPERADORES que tiene los campos: NOMBRE, EDAD, LUGAR DE TRABAJO, SEXO, NIVELGLUCOSA, NIVELCOLESTEROL, NIVELTRIGLICERIDOS, etc. Esta tabla concentra todos los datos de las personas que se le realizan exámenes médicos.
Otra tabla se llama HISTORIAL donde a partir del NOMBRE, con ayuda de un formulario, introduzco valores de los exámenes de NIVELGLUCOSA, NIVELCOLESTEROL, NIVELTRIGLICERIDOS. Etc. Esta tabla, como su nombre lo dice, almacena los datos de exámenes que se le hace a determinada persona (pueden ser varios a la misma persona).
Mi duda es, como hacer que, cuando yo meto valores en mi formulario de HISTORIAL, por ejemplo NIVELGLUCOSA = 95, este mismo valor (95) también se copie a la tabla OPERADORES en el campo NIVELGLUCOSA, asociado con el nombre de la persona que le hice el examen medico en ese momento. Así cada que yo hago un examen de NIVELGLUCOSA a determinada persona, siempre la tabla OPERADORES muestre el valor más reciente.
He estado viendo en tutoriales, y esto es lo más que pude hacer en VBA, pero no logro el objetivo, la verdad soy novata en esto :(
Dim BBDD As Database
Dim HISTORIAL As RecordSet
Dim OPERADORES As RecordSet
Dim VId As Integer
VId=NOMBRE
Set BBDD=CurrentDb
Set HISTORIAL=BBDD.OpenRecordset (" SELECT * FROM HISTORIAL WHERE NOMBRE = " & VNOMBRE )
If Not HISTORIAL.EOF Then
Set OPERADORES=BBDD.OpenRecorset ("OPERADORES")
OPERADORES.AddNew
OPERADORES!NOMBRE=HISTORIAL!NOMBRE
HISTORIAL!NIVELGLUCOSA=HISTORIAL!campo1
OPERADORES.Update
OPERADORESClose
End If
HISTORIAL. Close
BBDD. Close
Mi base de datos ya está casi terminada, solo me falta ese gran detalle.