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

    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é
    avatar
    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 282
    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: Sab 19 Ago 2017, 15:50