¿Como hago para pasar los valores de un Reg. a otro Reg. de la misma tabla? por ejemplo los valores del Reg. 3 al Reg 44. JUAN M AFAN DE RIBERA ===================== Sub copiarRegistro _ (dominio As String, _ regOrigen As Long, _ regDestino As Long) Dim rst As Object 'DAO.Recordset Dim numCampos As Integer, i As Integer Dim registro As Variant Set rst = CurrentDb.OpenRecordset(dominio) rst.Move regOrigen - 1 registro = rst.GetRows(1) rst.MoveFirst rst.Move regDestino - 1 rst.Edit For i = LBound(registro) To UBound(registro) On Error Resume Next rst(i) = registro(i, 0) Next rst.Update rst.Close End Sub