[Resolvido]Formulário contínuo com mais de 1 coluna

Estude o arquivo em anexo e adapte-o.

Função utilizada para preparação dos dados em tabela temporária utilizada para exibição em formulário contínuo

Código:

Public Function fncPrepTela()

    Dim rsPrincipal As Recordset
    Dim rsTemporario As Recordset
    Dim i As Byte
    
    CurrentDb.Execute "delete * from temp_Tabela1;"
    Set rsPrincipal = CurrentDb.OpenRecordset("Tabela1",
    Set rsTemporario = CurrentDb.OpenRecordset("temp_Tabela1", ,
    
    While Not rsPrincipal.EOF
        rsTemporario.AddNew
            For i = 1 To 4
                rsTemporario.Fields("ID" & i).Value = rsPrincipal!ID.Value
                rsTemporario.Fields("Iniciativa" & i).Value = rsPrincipal!Iniciativa.Value
                rsPrincipal.MoveNext: If rsPrincipal.EOF Then Exit For
            Next i
        rsTemporario.Update
    Wend
    
    rsPrincipal.Close: Set rsPrincipal = Nothing
    rsTemporario.Close: Set rsTemporario = Nothing

End Function

Valeu Ivan! Vou dar uma olhada e te falo se resolve no meu caso!

Gostei Ivan, parabens, bom trabalho.

Blz... testa aí e dá um retorno.

Mestre JPaulo, obrigado pelo reconhecimento. É sinal que minha paixão por MS Access está valendo cada linha de código digitada e que meus estudos e treinamento estão rendendo.

Funcionou perfeito aqui, fiz algumas adaptações mas, o resultado final ficou muito bom! Valeu d+++