Hola de nuevo
¿Se supone que tienes tres datos por cada fila? en el caso de excel, tres celdas por fila, en el caso de Access, tres campos por registro. ¿Correcto?
¿Y donde quieres generar la salida? puedes crearte una tabla de destino con un único campo, y abrir un recordset con los datos de origen
Public Sub Fila()
Dim db As DAO.Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset
Set db = CurrentDb
Set rs1 = db.OpenRecordset("tblOrigen", dbOpenForwardOnly)
Set rs2 = db.OpenRecordset("tblDestino", dbOpenDynaset)
Do Until rs1.EOF
rs2.AddNew
rs2.Fields("D") = rs1.Fields("A")
rs2.Update
rs2.AddNew
rs2.Fields("D") = rs1.Fields("B")
rs2.Update
rs2.AddNew
rs2.Fields("D") = rs1.Fields("C")
rs2.Update
'Paso al siguiente registro
rs1.MoveNext
Loop
rs1.Close
Set rs1 = Nothing
rs2.Close
Set rs2 = Nothing
db.Close
Set db = Nothing
End Sub
Espero te sirva
Salu2,
José Mª Fueyo [MS MVP Access]
