Porque não quer funcionar?

2024 - VBA & Macros

Post Recente por pasedo 9 anos atrás

3 Posts

2 Usuários

0 Reactions

824 Visualizações

RSS

pasedo

(@pasedo)

Posts: 90

Trusted Member

Topic starter

Boa noite, olha pessoal fiz este exemplo de cadastro que ao dar um duplo clique no item selecionado no listbox é para aparecer o cliente selecionado no formulario de cadastro mas, ao invés disso aparece só o código, onde está o erro? Grato.

Postado : 29/04/2016 7:09 pm

adGere

(@adgere)

Posts: 76

Trusted Member

Codigo do evento duplo clique do listbox

Dim valor_lista As Integer
Dim selecao As Integer
selecao = ListBox_Pesquisarnome.ListIndex

valor_lista = ListBox_Pesquisarnome.List(selecao, 0)



With UserForm_cADASTRO
    .TXTCODIGO.Value = ListBox_Pesquisarnome.List(selecao, 0)
    .TXTNOME.Value = ListBox_Pesquisarnome.List(selecao, 1)
    .TXTTELEFONE.Value = ListBox_Pesquisarnome.List(selecao, 2)
    .TXTEMAIL.Value = ListBox_Pesquisarnome.List(selecao, 3)

    .TXTCODIGO.SetFocus
    .TXTNOME.SetFocus

End With
Unload Me

Postado : 29/04/2016 8:22 pm