MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Ajuda com caixas de combinação e texto

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Ajuda com caixas de combinação e texto Empty [Resolvido]Ajuda com caixas de combinação e texto

    Mensagem  Mylton 23/6/2021, 21:28

    Boa tarde.
    Tenho uma caixa de combinação A e duas caixa de texto (B) e (C).
    A A é multi seleção que joga as opções escolhidas na caixa de texto B.
    O que não sei fazer e preciso da ajuda.
    É como fazer as opções não escolhidas nessa caixa de combinação serem visualizadas na caixa de Texto C?
    Alguém poderia ajudar por favor.
    Obrigado.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Ajuda com caixas de combinação e texto Empty Re: [Resolvido]Ajuda com caixas de combinação e texto

    Mensagem  Mylton 24/6/2021, 18:52

    Boa tarde.
    Fiz um exemplo do que desejo.
    Existem 2 tabelas (teste e teste1) e 1 form (frmListBox).
    A tabela teste é sobre frutas.
    no form frmListBox (multiseleção) e no campo origem criei uma consulta com
    SELECT Teste.Código, Teste.Campo1 FROM Teste ORDER BY Teste.Campo1;
    Ao escolhermos as frutas e apos confirmar a escolhas, as escolhidas são visualizadas na caixa texto B.
    O que precisava era que as frutas não escolhidas fossem visualizadas na caixa texto C.

    Obrigado.
    Anexos
    [Resolvido]Ajuda com caixas de combinação e texto AttachmentlistboxV1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (56 Kb) Baixado 15 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Ajuda com caixas de combinação e texto Empty Re: [Resolvido]Ajuda com caixas de combinação e texto

    Mensagem  Noobezinho 25/6/2021, 01:13

    Mylton

    Experimente isso:

    Renomeie as caixas de texto

    CaixaDeTexto_B
    CaixaDeTexto_C

    Código:

    Sub BoundData()

        Dim frm As Form, ctl As Control
        
        Dim linhaAtual As Integer
        Set frm = Forms!frmListBox
        Set ctl = frm!CaixaDeListagem
        
       Me.CaixaDeTexto_B = Null
       Me.CaixaDeTexto_C = Null

        For linhaAtual = 0 To ctl.ListCount - 1
        
           If ctl.Selected(linhaAtual) Then
              If linhaAtual = 0 Then
                 Me.CaixaDeTexto_B = ctl.ItemData(linhaAtual)
              Else
                 Me.CaixaDeTexto_B = Me.CaixaDeTexto_B & ", " & ctl.ItemData(linhaAtual)
              End If
           Else
              If Len(Me.CaixaDeTexto_C & "") = 0 Then
          
                 Me.CaixaDeTexto_C = ctl.ItemData(linhaAtual)
              Else
                 Me.CaixaDeTexto_C = Me.CaixaDeTexto_C & ", " & ctl.ItemData(linhaAtual)
              End If
              
          
           End If
        
        Next
        DoCmd.RunCommand acCmdSave
    End Sub


    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Ajuda com caixas de combinação e texto Empty Re: [Resolvido]Ajuda com caixas de combinação e texto

    Mensagem  Mylton 25/6/2021, 02:56

    Obrigado.
    Noobezinho. Valeu mesmo.
    Funcionou.
    Acrescentei a rotina para desmarcar as escolhas na listBox...

    Dim n As Integer
    '------------------------------------------------------
    'Percorre a lista do último item para o primeiro item
    '------------------------------------------------------
    For n = (Me!CaixaDeListagem.ListCount - 1) To 0 Step -1
    '------------------------------
    'Vai desmarcando item por item
    '------------------------------
    Me!CaixaDeListagem.Selected(n) = False
    Next


    E funcionou.
    Mais uma vez obrigado mesmo.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Ajuda com caixas de combinação e texto Empty Re: [Resolvido]Ajuda com caixas de combinação e texto

    Mensagem  Mylton 25/6/2021, 03:13

    Resolvido.
    Abs a todos.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Ajuda com caixas de combinação e texto Empty Re: [Resolvido]Ajuda com caixas de combinação e texto

    Mensagem  Noobezinho 25/6/2021, 10:47

    Eu encontrei essa mesma rotina na net, depois que postei.
    Fiquei aguardando tua resposta, caso não conseguisse,
    eu postava.
    Acredito que tenha colocado o comando:
    DoCmd.RunCommand acCmdSave
    Entre o next e o End Sub da função BoundData()
    para salvar na tabela.
    Não precisa responder  Laughing

    Boa sorte!


    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]Ajuda com caixas de combinação e texto Empty Re: [Resolvido]Ajuda com caixas de combinação e texto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/5/2024, 07:30