@coutinho é do exemplo do Tomaz Vasques que eu adaptei para utilizar. Sempre utilizo Listview, porém tem um amigo que só usa 64bits na máquina e eu estou querendo ajudá-lo. Por este motivo que estou a procura. Já vou olhar o link postado acima.
Mas em resumo ele faz o seguinte: Quando tenho uma Ordem de Serviço, ao invés de salvar o cliente, eu salvo o código. Faço isto para que, se houver alterações no nome do cliente, os dados estejam corretos.
Como salvo o código, ele deve pegar o código do cliente que está na OS e ir até a planilha "Cliente" e ver quem é o cliente de tal código, e retornar o nome. Só isto. Faço com o Listview, porém no Listbox eu não consegui.
Gosto muito dos exemplos do Tomaz e por isto utilizo-os. São práticos e fáceis.
Muito obrigado por me ajudar também.
Então Nery, se não me engano ja cheguei a responder algumas solicitações la no Forum do Tomaz, mas a questão é que não sei de qual versão você fez as alterações, veja que no Modelo V3 ainda é utilizado ListBox, na V 3.5 eu adaptei para ListView, e como o colega Anderson falou, as linhas que colocou não são as que preenchem o ListView, a não ser que tenha feito outros tipos de adaptação.
Na V3 para preecher o ListBox no formulário de pesquisa é feito a chamada a rotina :
Private Sub btnFiltrar_Click()
Call PopulaListBox(txtNomeEmpresa.Text, txtNomeContato.Text, txtEndereco.Text, txtTelefone.Text, txtRegiao.Text)
End Sub
E cortando as linhas só pra ilustrar, na PopulaListbox chamamos a Function PreencheRcordsert
Set rst = PreecheRecordSet(NomeEmpresa, NomeContato, Endereco, Telefone, Regiao)
e então a MontaClausulaWhere e depois voltamos para a PopulaListBox e preenchemos.
Ou seja, não tem como identificar só pelo que pediu e o que postou onde não está de acordo, e mais uma vez lembrando, que trocar ListView pelo Listbox as propriedades são bem diferentes e o ListBox é bem limitado.
O ideal seria anexar o seu modelo para com o tempo tentarmos analisar melhor.
Postado : 15/01/2021 9:19 am