Separar 1 registro de una tabla en N registros???

[Taribo007]

Prueba esto:

Imaginemos que la primera tabla se llama Telefonos1, con dos campos, empresa y telefonos. En el campo telefonos los telefonos separados por punto y coma (;)

una segunda tabla llamada Telefonos2, donde vamos a introducir los registros.

Ejecuta este codigo:

Dim rst As DAO.Recordset
Dim miVar
Dim i As Integer


Set rst = CurrentDb.OpenRecordset("Telefonos1")

While Not rst.EOF
miVar = Split(rst!telefonos, ";")
For i = 0 To UBound(miVar)
DoCmd.RunSQL "INSERT INTO Telefonos2 VALUES ('" & rst!Empresa & "','" & miVar(i) & "')"
Next
rst.MoveNext
Wend

rst.Close
Set rst = Nothing

UN saludo