Seleccionar y copiar campos de un registro a otro

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.
Respuesta
1
Te he preparado una BD de ejemplo (utilizando código VB) la idea es utilizar un recordset para añadir un registro. Si me dejas un e-mail te la mando.
El código del botón es el siguiente:
Private Sub Comando13_Click()
Dim rst As Recordset
If IsNull(TXTID) Or TXTID.Value = "" Then
MsgBox "Debe rellenar la clave principal", vbInformation
Else
Set rst = CurrentDb.OpenRecordset("TDAT")
rst.Index = "ID"
rst.Seek "=", TXTID.Value
If rst.NoMatch Then
Set rst = CurrentDb.OpenRecordset("TDAT")
With rst
.AddNew
!ID = TXTID
!C1 = TXT1
!C2 = TXT2
!C3 = TXT3
.Update
End With
MsgBox "Se ha añadido el registro " & TXTID, vbExclamation
Me.TXTID.Value = ""
Me.TXT1.Value = ""
Me.TXT2.Value = ""
Me.TXT3.Value = ""
Else
MsgBox "La clave ya existe", vbCritical
End If
End If
End Sub
Muchas gracias por tu interés. Creo que me puedes salvarla vida.
Este es mi dir de correo:
[email protected]
Espero tus noticias y muchas gracias otra vez por las molestias que te has tomado conmigo.
Saludos
Jesús
Ya te he enviado el correo, confírmame que lo has recibido y si te ha sido de utilidad
Cierra la pregunta si lo crees conveniente.
He recibido tu e-mail.
Aunque todavía estoy probando, creo que meva a ser de suma utilidad y además ha logrado resolver mi principal problema.
Quedo enormemente agradecido por tu esfuerzo desinteresado y te envío un cordial saludo.
Jesús

1 respuesta más de otro experto

Respuesta
1
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Nueva pregunta copiar registros

Aquí estoy de nuevo, primero para agradecer tu rápida respuesta de ayer (25/09/07). Eres un fenómeno. Verás, recibí tu código en VB y una vez que lo he probado he de decir que se ajusta en parte a lo que necesito, pero no del todo. He decidido...
1 respuesta

Ayuda de Inventario

Estoy haciendo un proyecto en access 2000 es de un inventario y facturación quisiera saber como poder afectar las cantidades de venta de un producto es decir para sacar la existencia de tal o cual producto, tengo una tabla que es de productos en...
1 respuesta

Función EOF

Me puedes ayudar con el cidigo en Visual Basic, para recorrer y mostrar los registros de una tabla en Access y controlando el fial de la tabla con EOF ara mostrar un mesaje cuando sea verdaddero.
1 respuesta

Concatenar registros

Un experto de aquí contestó hace tiempo a una pegunta similar. Lo que quiero es concatenar los registros del campo "email" separados por ";". Este es el código que dio: Private Sub Comando14_Click() Dim r As Recordset bu = FreeFile Open "fichero.txt"...
1 respuesta

Aplicación en access 2007 para el control de usuarios

Este es el código que utilizo para validar el ingreso de los usuarios, a la hora de ingresar necesito que me abra un formulario por cada usuario que tenga registrado en base de datos, ya que cuento con 30 usuarios y un administrador del sistema. Dim...
1 respuesta

Ms access 2003 buscando 2 campos en un registro

Necesito como hacer una búsqueda de dos campos en un registro solo puedo encontrar un registro Pongo el código: quiero buscar el usuario, y escuela en este código pero solo se como buscar un campo. Agradecería su comentario y apoyo. Esto es en MS...
1 respuesta

Problema al comparar dos cadenas de caracteres

Quiero comparar dos cadenas de caracteres de la siguiente forma: Private Sub NombreUsuario_Exit(Cancel As Integer) Dim UsuarioValido As Variant Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("Select TIP From tblpermis where TIP = '" &...
1 respuesta

Como acceder a una tabla que esta en otra BD

Necesito acceder a una tabla (RESULTADOS) que esta en otra BD (VENTASDIRECTAS). Estoy intentando darle estos parámetros pero me dice que no encuentra la tabla: dentro de [Rut1] esta esta dirección: C: \Users \LUIS\Desktop \GESTION\GESGENERAL...
1 respuesta

Recorrer una tabla con VBA y actualizar un campo

Estoy intentando actualizar un campo numérico de una tabla cuyo valor es cero y poner otro numero (p.e=44). El Código que he utilizado es: Public Function recorrerTabla() As Long Dim db As Database Set db = CurrentDb Set rst =...
1 respuesta

Buscar y validar dato en formulario

Quisiera saber si me puedes ayudar tengo una base de datos en access 2010 la cual le ingreso la información por medio de un formulario quiero que cuando le ingrese el código en el formulario en me haga la validación del campo si existe me saque un...
2 respuestas