MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Selecionar Itens de uma ListBox a partir de um Vários Valores contido numa TextBox

    Compartilhe

    andre.possas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 11/08/2016

    Selecionar Itens de uma ListBox a partir de um Vários Valores contido numa TextBox

    Mensagem  andre.possas em Qui 22 Set 2016, 19:14

    Boa tarde companheiros.

    Tenho uma ListBox como frm.ListBox num formulário, onde a partir de seleções aleatórias desta ListBox que foram transferidos num TextBox do mesmo formulário e ficou gravado da seguinte forma: frm.MinhaTextBox = Valor1, Valor3, Valor7. Agora eu preciso fazer o inverso.

    Preciso que a partir dos valores desta MinhaTextBox onde os valores são separados por vírgula que todos esses valores fiquem selecionados na MinhaListBox onde a mesma contem os mesmos valores conforme exemplo abaixo.

    MinhaTextBox.value = Valor1, Valor3, Valor7

    MinhaListBox.Select irá mostrar

    Valor1 Selecionado
    Valor2 Não Selecionado
    Valor3 Selecionado
    Valor4 Não Selecionado
    Valor5 Não Selecionado
    Valor6 Não Selecionado
    Valor7 Selecionado

    O meu objetivo é que eu gostaria que ficasse no mesmo padrão a minha tela de cadastro e também a tela de edição de registro no mesmo formulário.
    Se tiver uma outra ideia será bem vinda.

    Agradeço

    André

    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Selecionar Itens de uma ListBox a partir de um Vários Valores contido numa TextBox

    Mensagem  Marco Messa em Seg 10 Out 2016, 19:23

    Seria algo assim:

    Código:
        Dim itens() As String
        Dim i As Byte, j As Byte
       
        itens = Split(MinhaTextBox.Value, ",")
       
        For i = 0 To UBound(itens)
            For j = 0 To MinhaListBox.ListCount - 1
                If Trim(itens(i)) = MinhaListBox.List(j) Then
                    MinhaListBox.Selected(j) = True
                End If
            Next
        Next


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Dom 04 Dez 2016, 12:11