Notifications
Clear all

ListBox para campo txtBox

16 Posts
4 Usuários
0 Reactions
3,107 Visualizações
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Pessoal, eu fiz esse processo de jogar os dados do listbox para o txtbox dessa maneira, so que descobri que apos selecionar o registro na listbox(nr 16) ele vai jogar sempre no primeiro registro da tabela e modifica todo registro 1 da tabela(ficando o nr 1 sendo o nr 16) e nao o proprio registro selecionado na listbox, por isso se alguem puder estar orientando-me no sentido de resolver essa situacao, fico grato a todos que postarem no auxilio, abraco

Este meu codigo

Private Sub lbDados_Change()
    
    Me.txtCodigo.Text = lbDados.List(lbDados.ListIndex, 0)
    Me.txtNome.Text = lbDados.List(lbDados.ListIndex, 1)
    
    Me.txtEndereco.Text = lbDados.List(lbDados.ListIndex, 2)
    Me.txtBairro.Text = lbDados.List(lbDados.ListIndex, 3)
    Me.ComboBoxMunicipios.Value = lbDados.List(lbDados.ListIndex, 4)
    
    Me.ComboboxEstados.Text = lbDados.List(lbDados.ListIndex, 5)
    Me.txtCep.Text = lbDados.List(lbDados.ListIndex, 6)
    Me.txtTelefone.Text = lbDados.List(lbDados.ListIndex, 7)

    Me.txtCelular1.Text = lbDados.List(lbDados.ListIndex, 8)
    Me.txtCelular2.Text = lbDados.List(lbDados.ListIndex, 9)
End Sub
 
Postado : 30/04/2018 7:49 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Fernandox,

Bom dia!

Por gentileza, anexe aqui no fórum seu arquivo exemplo compactado com .ZIP.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 30/04/2018 7:52 am
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Wagner, tentei enviar minha planilha e o codigo fonte , mais o limite permitido neste forum e de 50kb e o projeto possui 91 kb compactado, caso tenha algum email em que eu possa direciona-lo para sua verificacao do codigo, agradeco, abraco

 
Postado : 30/04/2018 9:37 am
(@klarc28)
Posts: 971
Prominent Member
 

Carregue o arquivo na nuvem (OneDrive, GoogleDrive etc) e compartilhe o link.

 
Postado : 30/04/2018 10:59 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Fernandox

Você pode fazer um pequeno exemplo (todavia com o mesmo layout do arquivo original), com poucas linhas e poucas colunas, compactar e anexar aqui.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 30/04/2018 12:00 pm
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Pessoal, estou tentando fazer pelo metodo que o klarc28 havia dito, vamos tentar, obrg pelo auxilio, abraco a todos
https://drive.google.com/open?id=1gsYSZ ... b5wYsZ5M4t

 
Postado : 01/05/2018 10:51 am
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola, por gentileza, voces conseguiram abrir a planilha? Caso nao tenham conseguido, podemos usar outro metodo para que eu possa estar enviando, obrg, abraco

 
Postado : 02/05/2018 8:48 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Alguns colegas conseguem... eu uso no trabalho e, geralmente, esses sites de compartilhamento de arquivos são bloqueados nas empresas por conterem grandes quantidades de vírus.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 02/05/2018 11:03 am
(@srobles)
Posts: 231
Estimable Member
 

Fernandox,

Amigo, veja se as alterações atendem sua necessidade. Código comentado para melhor entendimento.

Link : https://we.tl/A1n3nBdcAm

Abs

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 02/05/2018 11:17 am
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Saulo, fico grato pela ajuda no codigo, funcionou perfeitamente pelo listbox, mais ocorreu um outro fator, quando seleciono pelo icone avancar proximo registro e seleciono um outro registro(seja o quarto registro selecionado), o registro selecionado posiciona corretamente, mais quando vou clicar no botao OK(para confirmar a alteracao do registro), ele grava no primeiro registro os dados do quarto registro ) , quando puder orientar-me, agradeco, abraco

 
Postado : 02/05/2018 1:10 pm
(@srobles)
Posts: 231
Estimable Member
 

Fernandox,

Desculpe o inconveniente amigo. Fiz pequenas alterações nos códigos existentes. Favor teste e retorne.

Link : https://we.tl/kDk2kVC1Kx

Abs

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 02/05/2018 3:27 pm
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Saulo , fico grato por estar ajudando e orientando-me no codigo, vou aprendendo novos conceitos de programacao. Estive testando e verifiquei alguns ajustes que ainda precisa ser modificados para o funcionamento do listbox e o navegador dos registros. Anotei algumas ocorrencias nos testes que segue abaixo.

1-Outra situação ocorrida, foi que, no posicionamento do cursor no cabeçalho do listbox, prejudicando o posicionamento do cursor no registro, conforme segue a imagem, gostaria de bloquear o acesso ao cabeçalho. (Imagem excel1)

2-Se posicionar o cursor no listbox no terceiro registro e clicar no botão avançar um registro, ocorre o deslocamento do registro do terceiro para o quarto no listbox e na tela o registro vai para o registro 2 e se clicar novamente no botão avançar ocorre o erro:Não foi possível definir a propriedade select, valor da propriedade invalido.(imagem excel2)

Private Sub cmdProximo_Click()
    Call limpaMensagem
    If indiceRegistro < wsCadastroClientes.UsedRange.Rows.Count Then
        indiceRegistro = indiceRegistro + 1
  ERRO       lbDados.Selected(lbDados.ListIndex + 1) = True
    End If
    If indiceRegistro > 1 Then
        Call CarregaRegistro
    End If
End Sub

Esta mesma situação, após ter selecionado o terceiro registro e clicar no botão retornar ocasiona o mesmo erro, sendo que o registro na tela vai para o registro primeiro e ocasiona o mesmo erro.

Quando puder dar uma verificada, agradeco pela atencao e ajuda no entendimento do codigo, abraco

 
Postado : 03/05/2018 6:35 am
(@srobles)
Posts: 231
Estimable Member
 

Fernandox,

Fiz alguma alterações. Favor teste e retorne.

Link : https://we.tl/2lzk0ObRQM

Abs

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 03/05/2018 1:54 pm
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Saulo, novamente venho-lhe agradecer pela atencao em orientar-me neste aprendizado de programacao, fiz os testes, ficou show a programacao, tens alguns comandos dos quais nao conheco, estou aprendendo o conceito e aprimorando no aprendizado, apenas no momento de atualizar o registro, apos ter modificado e clicando no botao OK, nao esta ocorrendo a atualizacao, tentei modificar conforme eu sabia e mesmo assim, nao foi possivel ver a atualizacao da gravacao do registro, quando tiver um tempo e possa estar averiguando, fico grato, abraco, tks

 
Postado : 04/05/2018 12:45 pm
(@srobles)
Posts: 231
Estimable Member
 

Fernando,

Fiz alguns testes e modificações em seu modelo. Agora é possível adicionar, editar e remover um registro normalmente.

Link : https://we.tl/iNhZv9z9yL

Espero ter ajudado.

Abs

Espero ter ajudado.

Abs.

Saulo Robles

 
Postado : 04/05/2018 6:22 pm
Página 1 / 2