Seleccionar y copiar campos de un registro a otro

Respuesta de
a
Avatar
Usuario
Hola amigo:
Espero que puedas ayudarme con mi problema, que es el siguiente:
Necesito copiar varios campos de un registro a otro en la misma tabla.Me expicaré mejor:
Tengo una tabla y cada registro contiene los campos: Campo1, Campo2, Campo3, Campo4, ... etc.
Necesito hallar la función que me permita seleccionar y copiar los datos que contienen los campos que yo quiera en los mismos campos otro registro en la misma tabla.
Soy bastante novato en Access y mucho más en VB y ya no se que hacer, estoy a punto de tirar la tolla. Gracias e antemano por vuestra ayuda. Mil gracias de antemano y recibe un cordial saludo.
Jesús
Avatar
Experto
Te puedo colaborar con un código de Visual para que lo apliques en un botón.

Lo que deseas hacer es un botón que al ejecutarlo pase los datos de una tabla a otra suprimiento unos campos OK. Bueno

El código seria:
Dim OriDB As Database, OriWS As Workspace, Ori As Recordset
Dim DesDB As Database, DesWS As Workspace, Des As Recordset

'Carga la Tabla de Origen
Set OriWS = DBEngine.Workspaces(0)
Set OriDB = OriWS.Databases(0)
Set Ori = OriDB.OpenRecordset("Tabla_Origen")

'Carga la Tabla de Destino
Set DesWS = DBEngine.Workspaces(0)
Set DesDB = DesWS.Databases(0)
Set Des = DesDB.OpenRecordset("Tabla_Destino")

'En caso de duplicar toda la tabla
If Ori.EOF = False Then
Ori.MoveFirst
While Ori.EOF = False
'En la tabla origen temenos 5 campos
'Codigo, Nombre, Edad, Direccion, Telefono y solo bamos a tomar el 2 y 3
Des.AddNew
Des![Nombre] = Ori![Nombre]
Des![Edad] = Ori![Edad]
Des.Update
Ori.MoveNext
Wend
End If

'En el caso de querer solo un regustro por seleccion,
'podemos utilizar un combobox
If Ori.EOF = False Then
Ori.MoveFirst
While Ori.EOF = False
'En la tabla origen temenos 5 campos
'Codigo, Nombre, Edad, Direccion, Telefono y solo bamos a tomar el 2 y 3
'El combo 1 puede seleccionar el codigo
If Combo1 = Ori![Codigo] Then
Des.AddNew
Des![Nombre] = Ori![Nombre]
Des![Edad] = Ori![Edad]
Des.Update
Ori.MoveLast
End If
Ori.MoveNext
Wend
End If

Espero haber captado bien tu idea y te sirva la solución, no olvides finalizar la pregunta
Avatar
Usuario
Muchas gracias por tu interés y rapidez. Saludos cordiales
Jesús