[Resolvido]Form erro 3265

To com o seguinte form que peguei de exemplo para adaptar ao meu projeto, somente fiz as alterações dos campos de acordo com minha tabela mais o bendito insiste em dara o erro 3265 que em pesquisa na net diz que é devido a falta de um campo, porem ja vi e revi, e nao encontrei o campo que esta faltando. Se alguem puder dar uma ajuda estou encaminhando o bd

Voce utiliza um procedimento com With para delimitar uma coleção de objetos...

Então quando aplicar Whit rs, as instruções contidas entre With e End With são apenas referente ao Objeto Recordset (rs) e suas instruções

Portanto a lstRetorno não está dentro da coleção de objetos ou procedimentos do Recordset (rs)

Cumprimentos.

With rs
.Filter = "LOG_NOME Like '*" & adhHandleQuotes(mValor, "'") & "*'"
Set Rs1 = .OpenRecordset
'Move para último p/ fazer contagem na função PreencheLista
If Rs1.RecordCount <> 0 Then Rs1.MoveLast
'lstRetorno.Requery
End With

Ei amigão... o erro ta ai nesse requery da lista...

Estou tentando aqui.

Depois de muito quebrar a cabeça:

Nos eventos após atualizar da caixa texto obsrerve que você carrega um recordsert ao ocorrer um erro:

Rs_Fechado:
    Select Case Err
    Case 91, 3420  'Ocorre só na primeira vez em que é pesquisado um item.
        StrSQL = "SELECT LOG_NOME " _
            & "FROM tblBase_Endereços ORDER BY LOG_NOME"

No entanto só o carrega com um campo, o campo: LOG_Nome

E na função que carrega a lista, utiliza este recordset com um campo apenas, porém a funcão faz alusão a dois campos (em Azul)

                For I = 0 To sContaReg - 1
                    strNome(I, 0) = !LOG_NOME
                    'strNome(I, 1) = !LOG_NU_SEQUENCIAL
                    .MoveNext
                Next I

Basta desativar o segundo campo que não existe no recordset: LOG_NU_SEQUENCIAL

Cumprimentos.

é um bom exemplo este, porém existe maneira mais simples de fazer isto.... Colocarei um exemplo no repositório e te passo o Link.

Cumprimentos.

Eis:

http://maximoaccess.forumeiros.com/t12035-carregar-una-lisbox-filtrada-a-medida-que-se-digita-selecionando-o-registro-e-comparando-ao-final#93997

Se puder post este teu exemplo original para perguntas e respostas..

Cumprimentos.

Grande Piloto, bom dia, deu certo suas explicações aqui, e muito mais ainda o exemplo que postou, fico imensamente agradecido, quanto ao exemplo de pertguntas nao fui eu quem desenvolvi, apenas peguei do site para adapatar ao meu sistema, mas ai vai o link http://www.accessfaq.com.br/webroot/downloads/Localiza.zip

Só faltou o resolvido e clicar no joinha da mensagem que o auxiliou.


cumprimentos.

E o Joinha?

Cumprimentos.