• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ballkiller

pesquiza em listbox

5 mensagens neste tópico

Boas tardes,

tou a fazer um programa e quando vou fazer a pesquiza, se por exemplo, pesquizo o numero 1 e se antes do numero 1 tiver o 1234, ele apresenta o 1234 e nao o 1

Dim dbs As Database

Dim rsprod As Recordset

Set dbs = OpenDatabase("C:\Users\Ricardo\Desktop\Bombeiros_Merceana\utentes")

Set rsprod = dbs.OpenRecordset("utente")

rsprod.Index = "PrimaryKey"

rsprod.Seek "=", wnr_utente

If wnr_utente <> "" Then

    If Not rsprod.NoMatch Then

       

       wcod = rsprod!cod_utente

        wnome = rsprod!nome

        wmorada = rsprod!morada

        wlocalidade = rsprod!localidade

        wnr_utente = rsprod!nr_utente

        wtelefone = rsprod!telefone

        wcod_postal1 = rsprod!cod_postal1

        wcod_postal2 = rsprod!cod_postal2

        wcod_postal3 = rsprod!cod_postal3

        wobservacoes = rsprod!observações

        Else

        MsgBox ("Código não existente"), vbInformation

         wcod = ""

                        wnome = ""

                        wobservacoes = ""

                        wcod_postal3 = ""

                        wcod_postal2 = ""

                        wcod_postal1 = ""

                        wtelefone = ""

                        wnr_utente = ""

                        wlocalidade = ""

                        wmorada = ""

     End If

Else

MsgBox ("Introduza o Código.")

End If

Desde ja um abraço e espero que me possam ajudar rapidamente :) :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ja experimentaste usar o findfirst... tv seja por ser o seek.. na realidade...ele devolve o primeiro que encontra e que corresponde ao critério de pesquisa. ter um 1 ;-)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ja resolvi o problema, nao tinha os campos indexados, os coisas mais basicas e que nos passam ao lado,loooool

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora