MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    EvandoNunes
    EvandoNunes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 24/01/2012

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

    Mensagem  EvandoNunes em 21/11/2018, 18:07

    Fala galera! Tenho uma tabela com 2 campos(ID e Iniciativa), Quero fazer uma visualização em um formulário contínuo usando essa tabela, mas gostaria que as informações ficassem como se fossem etiquetas, divididas em 4 ou mais colunas. Só sei que isso é possível nos relatórios e em modo de visualização de impressão.

    Mas no meu caso quero fazer isso em um formulário, que será a tela inicial de um sistema onde o usuário irá selecionar a iniciativa em qual deseja trabalhar.

    Alguém já fez algo parecido? Podem me ajudar com isso?

    Seria +ou- como na imagem que montei!

    [Resolvido]Formulário contínuo com mais de 1 coluna Etique10
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 499
    Registrado : 22/11/2016

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

    Mensagem  IvanJr. em 22/11/2018, 00:55

    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
    Anexos
    [Resolvido]Formulário contínuo com mais de 1 coluna AttachmentEtiquetas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 12 vez(es)
    EvandoNunes
    EvandoNunes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 24/01/2012

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

    Mensagem  EvandoNunes em 22/11/2018, 17:05

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10530
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 22/11/2018, 17:13

    Gostei Ivan, parabens, bom trabalho.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Formulário contínuo com mais de 1 coluna Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Formulário contínuo com mais de 1 coluna Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Formulário contínuo com mais de 1 coluna Folder_announce_new Instruções SQL como utilizar...
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 499
    Registrado : 22/11/2016

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

    Mensagem  IvanJr. em 22/11/2018, 17:36

    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.
    EvandoNunes
    EvandoNunes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 24/01/2012

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

    Mensagem  EvandoNunes em 22/11/2018, 19:59

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

      Data/hora atual: 26/4/2019, 01:19