Duploclick no listbox

[Moisesjr]

Boa tarde,

Estou com um listbox com a pesquisa de um cadastro de centro de custo. Meu primeiro form, ele registra novos centro de custo, pesquisa os que estão na base de dados(esse é um form apenas com o listbox) e altera. Nesta segunda parte estou com um problema! Quando abro o form, que contem apenas o listbox, criei o evento com duploclick para que ele insira nos textbox's, do primeiro form, onde aja a possibilidade realizar a alteração desejada. Mas quando clico na linha, desejada, abre outro form, mas as textbox fica vazia. Mas quando dou um duploclique nos espaços vazio do listbox vai preenchido com o primeiro item.

Este é meu primeiro form:


Este é meu segundo form com o listbox:


Este, quando dou duploclick no espaço vazio do listbox, ele insere o primeiro valor nos textbox, mas quando clico no item que desejo alterar, ele preenche vazio os textbox.

[srobles]

Moisesjr,

Veja se o código abaixo atende sua demanda.

Código: Selecionar todos

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If ListBox1.ListIndex >= 0 Then
        With fr_cc
            .TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
            .TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
        End With
        
        Unload Me
    End If
End Sub

Espero ter ajudado.

Abs

[Moisesjr]

Obrigado Saulo pelo retorno, mas o bug continua o mesmo. Só que agora ele não está preenchendo os txtbox.

[srobles]

Moisesjr,

Favor, disponibilize seu modelo se possivel. Assim podemos analisar melhor o que ocorre, pois este mesmo código que postei , foi utilizado em um modelo que criei apenas para poder estudar a melhor opção.

Abaixo, deixo um modelo para análise.

No aguardo,

Abs

[Moisesjr]

Já deu certo! Pegue o seu codigo e fiz um gabiarra legal que funfou!