Notifications
Clear all

ListBox para campo txtBox

16 Posts
4 Usuários
0 Reactions
3,072 Visualizações
(@fernandox)
Posts: 0
New 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-vidal-nobre)
Posts: 4063
Famed Member
 

Fernandox,

Bom dia!

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

 
Postado : 30/04/2018 7:52 am
(@fernandox)
Posts: 0
New 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: 0
New Member
 

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

 
Postado : 30/04/2018 10:59 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed 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.

 
Postado : 30/04/2018 12:00 pm
(@fernandox)
Posts: 0
New 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: 0
New 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-vidal-nobre)
Posts: 4063
Famed 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.

 
Postado : 02/05/2018 11:03 am
(@srobles)
Posts: 0
New Member
 

Fernandox,

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

Link : https://we.tl/A1n3nBdcAm

Abs

 
Postado : 02/05/2018 11:17 am
(@fernandox)
Posts: 0
New 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: 0
New Member
 

Fernandox,

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

Link : https://we.tl/kDk2kVC1Kx

Abs

 
Postado : 02/05/2018 3:27 pm
(@fernandox)
Posts: 0
New 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: 0
New Member
 

Fernandox,

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

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

Abs

 
Postado : 03/05/2018 1:54 pm
(@fernandox)
Posts: 0
New 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: 0
New 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

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