MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas

    AbymaelSousa
    AbymaelSousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 07/06/2017

    [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas Empty [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas

    Mensagem  AbymaelSousa em 3/9/2020, 15:08

    Bom dia,

    Venho mais uma vez solicitar a ajuda de vocês.
    Tenho uma caixa de listagem com 22 valores de uma única tabela e eu gostaria de dividí-los em 4 colunas.
    Procurei bastante e encontrei esse código: https://www.maximoaccess.com/t21520-personalizar-caixa-de-listagem Mensagem 2
    Código:
    Dim rs As Recordset, N As Integer, Colunas As String

    Set rs = CurrentDb.OpenTable("SELECT nomeDoCampo FROM nomeDaTabela WHERE seuFiltroAqui")

    rs.MoveFirst

    Do While Not rs.EOF

      if N < 3 Then
          N = N + 1
      Else
          N = 1
      End If

      If N = 1 Then
          Colunas = rs("NomeDoCampo")
      Else
          Colunas = Colunas & ";" & rs("NomeDoCampo")
      End If

      Me.nomeDaListBox.AddItem Colunas

    rs.MoveNext

    rs.Close
    Set rs = Nothing

    Quando eu executo esse código, ele me marca o campo CurrentDb.OpenTable e dá a mensagem: Função ou interface marcada como restrita, ou a função está usando um tipo de automação não suportado pelo visual basic.

    Poderiam me dar uma luz?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3589
    Registrado : 04/04/2010

    [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas Empty Re: [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas

    Mensagem  Avelino Sampaio em 3/9/2020, 15:56

    Olá!

    Substitua por :

    set rs = currentdb.OpenRecordset(....)


    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    AbymaelSousa
    AbymaelSousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 07/06/2017

    [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas Empty Re: [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas

    Mensagem  AbymaelSousa em 3/9/2020, 16:20

    Olá, Avelino.

    Me apresenta o erro de compilação: Do sem Loop.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3589
    Registrado : 04/04/2010

    [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas Empty Re: [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas

    Mensagem  Avelino Sampaio em 3/9/2020, 20:31

    Olá

    ...
    ...
    rs.MoveNext
    loop
    rs.Close
    Set rs = Nothing
    ...


    Sucesso!


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    AbymaelSousa
    AbymaelSousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 07/06/2017

    [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas Empty Re: [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas

    Mensagem  AbymaelSousa em 9/9/2020, 20:16

    Olá, Avelino.

    Está dando outro erro.
    Posso te mandar meu BD para que você possa dar uma olhada quando tiver tempo?
    No Formulário fCadastro_Atendimento terá a ListBox na qual necessito que fique em 4 colunas.

    Muito obrigado pela ajuda desde já.
    Anexos
    [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas AttachmentDatabase5.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (77 Kb) Baixado 3 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3589
    Registrado : 04/04/2010

    [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas Empty Re: [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas

    Mensagem  Avelino Sampaio em 10/9/2020, 09:57

    Olá!

    O código está correto.  As mudanças foram na lista de propriedades da listbox, que não estava configurada para receber uma lista de valores.

    Sucesso!
    Anexos
    [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas AttachmentDatabase5_rev1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (49 Kb) Baixado 8 vez(es)


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    AbymaelSousa
    AbymaelSousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 07/06/2017

    [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas Empty Re: [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas

    Mensagem  AbymaelSousa em 10/9/2020, 13:23

    Olá Avelino.

    Desculpa lhe incomodar novamente. Quando eu seleciono algum item, ele seleciona toda a linha que automaticamente soma 3 demandas. Ela deveria vir de marcação mútipla. E caso dê pra selecionar individualmente os itens, como seria feito a armazenagem dos valores já que ele não está associado a nenhum campo da tabela?
    AbymaelSousa
    AbymaelSousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 07/06/2017

    [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas Empty Re: [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas

    Mensagem  AbymaelSousa em 14/9/2020, 14:15

    Up
    AbymaelSousa
    AbymaelSousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 07/06/2017

    [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas Empty Re: [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas

    Mensagem  AbymaelSousa em 17/9/2020, 13:41

    Up
    AbymaelSousa
    AbymaelSousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 07/06/2017

    [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas Empty Re: [Resolvido]Caixa de Listagem Múltipla com valores divididos em 4 colunas

    Mensagem  AbymaelSousa em 18/9/2020, 14:46

    Desisti de tentar implementar no meu sistema.
    Obrigado aos que se disponibilizaram em ajudar.

      Data/hora atual: 28/9/2020, 11:19