MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Se Um registro não existir então pedir se deseja acrescentar

    avatar
    samueldrun
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/09/2017

    [Resolvido]Se Um registro não existir então pedir se deseja acrescentar Empty [Resolvido]Se Um registro não existir então pedir se deseja acrescentar

    Mensagem  samueldrun 15/12/2018, 22:56

    Boa Noite caros mestres,

    minha dúvida é ao inserir o nome do cliente suponhamos, ao atualizar o sistema verificaria na base de dados se o registro existe se existir ele mostraria o registro, caso não existisse ele me daria uma mensagem pedindo se desejo incluir

    Agradeço a todos pela ajuda.


    Última edição por samueldrun em 18/12/2018, 16:58, editado 1 vez(es)
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Se Um registro não existir então pedir se deseja acrescentar Empty Re: [Resolvido]Se Um registro não existir então pedir se deseja acrescentar

    Mensagem  vieirasoft 16/12/2018, 10:51

    Bom dia. Aqui vai uma maneira:

    No evento "antes de Actualizar"

    If (Not IsNull(DLookup("[NomedoCampo]", "NomeTabela", _
    "[NomedoCampo] ='" & Me!NomedoCampo & "'"))) Then
    MsgBox "O xxxxxxxx já está cadastrado no sistema..." & Me.NomedoCampo.Text, _
    vbInformation, "Aviso"
    Cancel = True 'cancela o evento.
    Me!NomedoCampo.Undo 'desfaz a digitação.
    End If
    tauron
    tauron
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1293
    Registrado : 07/12/2011

    [Resolvido]Se Um registro não existir então pedir se deseja acrescentar Empty Re: [Resolvido]Se Um registro não existir então pedir se deseja acrescentar

    Mensagem  tauron 17/12/2018, 15:31

    avatar
    samueldrun
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/09/2017

    [Resolvido]Se Um registro não existir então pedir se deseja acrescentar Empty Se Um registro não existir então pedir se deseja acrescentar

    Mensagem  samueldrun 18/12/2018, 16:59

    Funcionou perfeitamente obrigado
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]Se Um registro não existir então pedir se deseja acrescentar Empty Re: [Resolvido]Se Um registro não existir então pedir se deseja acrescentar

    Mensagem  vieirasoft 18/12/2018, 17:08

    O fórum agradece o retorno. Boas festas

      Data/hora atual: 16/6/2021, 22:12