[Resolvido]Problemas Código no Formulário

tenho este código:

Código:



    On Error Resume Next
    Dim i As Integer
    Dim strProcura As String, intpos As Integer
    Dim strList As String
    strProcura = UCase$(Me.numerocontrato.Text)
    intpos = Len(strProcura)
    If intpos Then
        For i = 0 To ltxListaProdutos.ListCount - 1
            strList = Me.ltxListaProdutos.Column(0, i)
            If UCase$(Left(strList, intpos)) = strProcura Then
                Me.ltxListaProdutos.Selected(i) = True
                Selecionado = True
                Exit For
            Else
                Me.ltxListaProdutos.Selected(i) = False
                Selecionado = False
            End If
        Next
    End If
End Sub


Mas quando busca a informação (a seleção não aparece) porque tem muitos registros, e da a seleção fica abaixo onde no formulário é visivel. Ele não leva a visão para onde tá a seleção. Tem algum erro com este código?

Olá João
Pode me explicar teu código?

strProcura = UCase$(Me.numerocontrato.Text)
Ucase$ - É para evitar minúsculas, o código em texto está gravado com letras maiúsculas na tabela?

intpos = Len(strProcura) ' aqui retorna o número de caracteres do númerocontrato
If intpos Then ' e aqui o if está verificando se intpos é true ou false o que sempre será falso porque intpos tem um valor numérico.
Desculpe, mas está confuso para mim.
Abraços

Desculpa pela negligência de informações.


1ª Pergunta: Sim, os dados estão todos em letras maiúsculas.

A respeito do "intpos" eu não seu a aplicação correta dele, é por isso a minha dúvida. Pois na pesquisa há 3 campos.
1º Campo é o Consulta Contrato
2ª Campo é o consulta Álbum
3º Campo é o Nome do Formando.

E nenhum deles quando é digitado a informações que ele tem que procurar, ele leva a informações a ser procurada.

Mano

Me faz um favor, coloque os nomes dos campos da tua tua tabela.
E me diga que tipo de consulta quer fazer, dai poderei ajudar, pois creio que esse código que você postou realmente não irá te ajudar.
Abraços

Vou facilitar ainda melhor vou postar meu banco de dados com o formulário. Ficará mais fácil. Obrigado.

Em anexo o sistema de buscar.
Do jeito do meu banco de dados. Obrigado.

Amigão

Já estou com teu aplicativo
Explique exatamente o que você deseja fazer.

Abraços

Você reparou que tenho 3 campos para pesquisa, certo? O erro que está dando, é quando digita a informação em qualquer um dos campos, a seleção no objeto não acoplado acontece. Só que quando a seleção está abaixo onde é visível, ele não leva digamos "a tela" onde a seleção está.

Por exemplo digitei "Wilson", e encontra-se cadastrado, só que é o ultimo registro, e a seleção está nele, mas está sendo mostrado os 10 primeiros registro, e não onde está seleção.

Não consegui verificar onde está o erro. É essa a minha dúvida.

Olá meu amigo

Testei teu exemplo e está funcionando perfeitamente.
A única coisa que tiver que fazer foi retirar o campo CPF da consulta da origem de linha da listbox, pois como é um exemplo, você retirou esse campo da tabela.
Testei os 3 campos e todos selecionam o registro pedido na pesquisa.
Não precisa explicar, mas a única coisa que achei estranho é o número do contrato ser repetido, mas verifiquei na tabela que existe uma chave primária única.
Faça um teste na cópia do exemplo que me enviou.
Abraços

João

Neste exemplo com a sua tabela de formandos.
No campo "Procurar pode escrever o que quiser: Nome. àlbum, ou Contrato, que ele localiza.
No nome até pode escrever o "HARRISON" que é o ultimo.

Perfeito. Caiu como uma luva. Melhor impossível. Obrigado ao Assis pela ajuda e também ao Balem pela disponibilidade.

Até, mais..Que Deus abençoe vocês.

João

Obrigado pelo retorno