Quiero copiar datos de una tabla en otra
Que es lo que tengo mal, no consigo que funcione. Quiero copiar datos de una tabla a otra cuando pulso un botón y añadir la fecha.
Dim dbs As Database
Dim rst As Recordset
Dim rst_s As Recordset
Dim Familia, Concepto As String
Dim codUltVenta, numero, i, Cantidad As Integer
codUltVenta = DLast("id", "loteria_mensual")
i = DFirst("id", "loteria_mensual")
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("loteria_mensual", dbOpenDynaset)
numero = 1
rst.MoveFirst
While codUltVenta >= i
If i = codUltVenta Then
With rst
Familia = !Nombre_ficha
Cantidad = !Cantidad
Concepto = !Concepto
i = i + 1
End With
Else
With rst
Familia = !Nombre_ficha
Cantidad = !Cantidad
Concepto = !Concepto
rst.MoveNext
i = !id
End With
End If
Set rst = dbs.OpenRecordset("ingresos", dbOpenDynaset)
With rst
.AddNew
!Nombre_ficha = Familia
!Cantidad = Cantidad
!Fecha_sorteo = Fecha
!Concepto = Concepto
.Update
End With
Set rst = dbs.OpenRecordset("loteria_mensual", dbOpenDynaset)
rst.MoveNext
Wend
Rst. Close
Dbs. Close
Dim dbs As Database
Dim rst As Recordset
Dim rst_s As Recordset
Dim Familia, Concepto As String
Dim codUltVenta, numero, i, Cantidad As Integer
codUltVenta = DLast("id", "loteria_mensual")
i = DFirst("id", "loteria_mensual")
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("loteria_mensual", dbOpenDynaset)
numero = 1
rst.MoveFirst
While codUltVenta >= i
If i = codUltVenta Then
With rst
Familia = !Nombre_ficha
Cantidad = !Cantidad
Concepto = !Concepto
i = i + 1
End With
Else
With rst
Familia = !Nombre_ficha
Cantidad = !Cantidad
Concepto = !Concepto
rst.MoveNext
i = !id
End With
End If
Set rst = dbs.OpenRecordset("ingresos", dbOpenDynaset)
With rst
.AddNew
!Nombre_ficha = Familia
!Cantidad = Cantidad
!Fecha_sorteo = Fecha
!Concepto = Concepto
.Update
End With
Set rst = dbs.OpenRecordset("loteria_mensual", dbOpenDynaset)
rst.MoveNext
Wend
Rst. Close
Dbs. Close
Respuesta
1
Si he entendido bien lo que quieres es pasar datos de la tabla loteria_mensual a otra que se llama ingresos, estas tablas supongamos que tienen los campos NombreFicha, Cantidad y Concepto. La tabla Ingresos tendrá ademas el campo FechaSorteo.
Yo haría:
Dim db as database
Dim rs1 as recordset
dim rs2 as recordset
Set db=currentdb()
Set rs1=db.openrecordset("Select * From loteria_mensual")
Set rs2=db.OpenRecordset("Ingresos")
Do while not rs1.eof
rs2.AddNew
rs2!Concepto=rs1!Concepto
rs2!Cantidad=rs1!Cantidad
rs2!NombreFicha=rs1!NombreFicha
rs2!FechaSorteo=Date()
rs2.Update
rs1.MoveNext
Loop
Esto sería si quieres añadir todos, si quieres seleccionar algunos lo harías al editar el recordser rs1.
Yo haría:
Dim db as database
Dim rs1 as recordset
dim rs2 as recordset
Set db=currentdb()
Set rs1=db.openrecordset("Select * From loteria_mensual")
Set rs2=db.OpenRecordset("Ingresos")
Do while not rs1.eof
rs2.AddNew
rs2!Concepto=rs1!Concepto
rs2!Cantidad=rs1!Cantidad
rs2!NombreFicha=rs1!NombreFicha
rs2!FechaSorteo=Date()
rs2.Update
rs1.MoveNext
Loop
Esto sería si quieres añadir todos, si quieres seleccionar algunos lo harías al editar el recordser rs1.