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