none
Duvida pesquisar RRS feed

  • Pergunta

  • Olá, alguém pode me ajudar?

    Tenho um cadastro que é realizado pelo CPF e armazena CPF, Nome, RG, data nascimento e serviço.

    Dependendo do serviço, o cliente pode ser cadastrado mais de uma vez no banco de dados, por exemplo:

    CPF 012.345.678.99 cliente José  serviço  01

    CPF 012.345.678.99 cliente José serviço 02

    CPF 012.345.678.99 cliente José serviço 04

    Ocorre que quando vou fazer a pesquisa e digito o cpf de José, só aparece o primeiro serviço e quando clico de novo no botão “pesquisar” ela não faz a busca pelos outros serviços de Jose

    Como faço para quando eu clicar no botão “pesquisar”  novamente, ir aparecendo os outros serviços de jose? Ou seja, como faço para quando eu apertar o botão “pesquisar” apareça a informação de outra linha que tenha o número do CPF de josé?

    Private Sub cmdPequisar_Click()

    'Verificar se foi digitado um nome na primeira caixa de texto

    If txtCPF.Text = "" Then

    MsgBox "Digite o CPF de um cliente"

    txtCPF.SetFocus

    GoTo Linha1

    End If

    With Worksheets("Dados Clientes").Range("A:A")

    Set c = .Find(txtCPF.Value, LookIn:=xlValues, lookat:=xlPart)

    If Not c Is Nothing Then

    c.Activate

    TxtRg.Value = c.Offset(0, 1).Value

    txtNome.Value = c.Offset(0, 2).Value

    txtNascimento.Value = c.Offset(0, 3).Value

    txtServiço.Value = c.Offset(0, 5).Value

    'Carregando o botão de opção

    If c.Offset(0, 4) = "Masculino" Then

    OptionButton1.Value = True

    Else

    OptionButton2.Value = True

    End If

    Else

    MsgBox "Cliente não encontrado!"

    End If

    End With

    Linha1:

    End Sub

    quarta-feira, 29 de julho de 2020 18:44