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]Se Um registro não existir então pedir se deseja acrescentar

    Compartilhe
    avatar
    samueldrun
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  samueldrun em 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 100%

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

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

    Mensagem  vieirasoft em 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 100%

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

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

    Mensagem  tauron em 17/12/2018, 15:31

    avatar
    samueldrun
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  samueldrun em 18/12/2018, 16:59

    Funcionou perfeitamente obrigado
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  vieirasoft em 18/12/2018, 17:08

    O fórum agradece o retorno. Boas festas

      Data/hora atual: 23/3/2019, 13:29