MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Como buscar cadastro

    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 23/01/2018

    [Resolvido]Como buscar cadastro Empty [Resolvido]Como buscar cadastro

    Mensagem  crysostomo em 15/5/2019, 15:03

    Amigos bom dia. Como fazer o sistema puxar cadastro quando o cliente já é cadastrado, ou seja, fulando já é cadastrado o sistema automaticamente puxa a ficha. Esqueci como faz.

    Código:

    Private Sub nome_AfterUpdate()
       Me.nome = StrConv(Me.nome, 3)  
           If nome = (DLookup("[nome]", "cadastrarCliente", _
             "[nome] ='" & Me![nome] & "'")) Then
           If MsgBox("O cliente " & nome & " já é cadastrado! Deseja alterar?", vbInformation + vbYesNo, "Arquivamento") = vbYes Then
            
    'fazer puxar cadastro
            
    Else
      DoCmd.GoToRecord , , acLast

     End If
    End If
    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 757
    Registrado : 13/12/2016

    [Resolvido]Como buscar cadastro Empty Re: [Resolvido]Como buscar cadastro

    Mensagem  Alexandre Fim em 15/5/2019, 15:54

    Crysostomo,

    Anteriormente, você havia postado outras duvidas e eu sugeri que você fizesse a pesquisa pelo campo chave (no caso, o CPF), e pelo que eu percebi, vc está fazendo a pesquisa pelo Nome.

    Desta forma, a pesquisa pode trazer o primeiro registro que o Access encontrar na tabela, e pode ser o cliente que vc não deseja ver, apesar do mesmo nome.

    Mas, para todos os efeitos, tente isto:

    Código:

        Me.Nome = StrConv(Me.Nome, 3)
       
        If Nome = (DLookup("[nome]", "cadastrarCliente", "[nome] ='" & Me![Nome] & "'")) Then
            If MsgBox("O cliente " & Nome & " já é cadastrado! Deseja alterar?", vbInformation + vbYesNo, "Arquivamento") = vbYes Then
                Me.FilterOn = True
                Me.Filter = "[nome] ='" & Me![Nome] & "'"
                Me.Recalc
            End If
        Else
            DoCmd.GoToRecord , , acNewRec
        End If




    Boa Sorte

    []'s


    Última edição por Alexandre Fim em 15/5/2019, 16:40, editado 2 vez(es)
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 454
    Registrado : 11/12/2017

    [Resolvido]Como buscar cadastro Empty Re: [Resolvido]Como buscar cadastro

    Mensagem  Ismael Silva em 15/5/2019, 16:11

    Só para acompanhar o tópico!
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 23/01/2018

    [Resolvido]Como buscar cadastro Empty Re: [Resolvido]Como buscar cadastro

    Mensagem  crysostomo em 15/5/2019, 18:50

    Boa tarde Alexandre. Então, eu estou buscando por nome porque o cliente(Há quem comprou o sistema) não deseja colocar cpf no sistema (até parece estranho) mas sempre tem alguém. Pelo que me sugeriu no tópico anterior, quando fazer outros sistemas eu vou passar a fazer as busca pelo cpf.
    Os códigos estão ficando na indentação cyclops
    vou olhar o código


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 757
    Registrado : 13/12/2016

    [Resolvido]Como buscar cadastro Empty Re: [Resolvido]Como buscar cadastro

    Mensagem  Alexandre Fim em 15/5/2019, 19:10

    Entendi.
    No caso, é necessário que no cadastro de cliente tenha, ao menos, um código (Codcliente), do tipo "Numeração Automática", para diferenciar os clientes homônimos.

    Sugiro o desenvolvimento de uma tela de pesquisa de clientes, onde o usuário possa escolher o cliente desejado (através de combinação de campos: Código, Nome, Data Nascimento, Endereço e etc...).

    Veja o exemplo deste sistema que o colaborador Junior Longo postou:

    http://www.maximoaccess.com/t35932-resolvidonavegacao-de-registros

    Você poderia pegar este exemplo e implementar no teu sistema.

    Boa sorte.

    []'s
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 23/01/2018

    [Resolvido]Como buscar cadastro Empty Re: [Resolvido]Como buscar cadastro

    Mensagem  crysostomo em 15/5/2019, 19:25

    Sim sim, eu já tenho a tela de pesquisa aqui onde o cliente pode clicar, vou dar uma olhada no código aqui , o código de filter seu funcionou perfeito so vou dar uma olhada aqui porque ele não cancela o evento , e continua gravando o nome quando clica não opção NÃO, vou tirar essa condição e ir direto fazer a busca.
    engraçado porque tem hora que alguns comando para de funcionar


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 23/01/2018

    [Resolvido]Como buscar cadastro Empty Re: [Resolvido]Como buscar cadastro

    Mensagem  crysostomo em 15/5/2019, 19:52

    o problema que imprerra aqui é que se o cliente clicar na opção "não"
    o sitema pode puxar o cadastro ou abrir a janela de busca ,mas ele continua gravando


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou

    Conteúdo patrocinado

    [Resolvido]Como buscar cadastro Empty Re: [Resolvido]Como buscar cadastro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 00:03