[Resolvido]Separação por Vírgula

Pessoal possuo em um mesmo campo de uma consulta informações de notas fiscais que vem separadas por virgulas, gostaria de coloca-las de forma que uma ficasse uma debaixo da outra, ou seja, em linhas diferentes tendo a data de entrega acompanhando suas respectivas linhas.

como é hoje:

Notas Fiscais                                |Data Entrega
739503, 739504, 739505, 739540, |03/12/2018 16:00


como eu gostaria:

Notas Fiscais                                |Data Entrega
123456                                             |03/12/2018 16:00
122525                                             |03/12/2018 16:00
132552                                             |03/12/2018 16:00

estou utilizando o codigo abaixo porem não mantem a data:

Código:


Function teste1()

Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
    Dim k
    Dim y
    Dim i As Byte
    
    CurrentDb.Execute "delete * from temp_tblCategorias;"
    
    Set rs = CurrentDb.OpenRecordset("select categoria from Indenizados where trim(nz(categoria))<>'';", 8, 4)
    Set rs2 = CurrentDb.OpenRecordset("select teste from Indenizados where trim(nz(categoria))<>'';", 8, 4)
    While Not rs.EOF
        k = Split(rs!categoria.Value, ",")
        y = Split(rs2!teste.Value, "")
      
        For i = 0 To UBound(k)
            CurrentDb.Execute "insert into temp_tblCategorias values ('" & k(i) & "','" & y(i) & "');"
                Next i
        rs.MoveNext
        rs2.MoveNext
    Wend
    rs.Close: Set rs = Nothing

End Function


Olá seja bem vindo ao fórum;

Veja se ajuda;
https://www.maximoaccess.com/t9935-resolvidoconverter-linhas-em-colunas

Consegui com o código:

Código:


Function teste1()

Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
    Dim k
    Dim y
    Dim i As Byte
   
    CurrentDb.Execute "delete * from temp_tblCategorias;"
   
    Set rs = CurrentDb.OpenRecordset("select categoria, teste from Indenizados where trim(nz(categoria))<>'';", 8, 4)
 
    While Not rs.EOF
        k = Split(rs!categoria.Value, ",")
           
        For i = 0 To UBound(k)
            CurrentDb.Execute "insert into temp_tblCategorias(categorias,data) values ('" & k(i) & "','" & rs!teste & "');"
                     
            Next i
        rs.MoveNext
      Wend
    rs.Close: Set rs = Nothing

End Function



Olá a todos

Caio, que bom que conseguiu!

Obrigado pelo retorno, o fórum agradece.