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
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    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
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    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 11 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4144
    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
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    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
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    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 : 4144
    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.

      Data/hora atual: 1/8/2021, 10:53