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

    avatar
    samueldrun
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    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 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

    [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 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 : 1080
    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 em 17/12/2018, 15:31

    avatar
    samueldrun
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    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 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

    [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 em 18/12/2018, 17:08

    O fórum agradece o retorno. Boas festas

    Conteúdo patrocinado

    [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  Conteúdo patrocinado


      Data/hora atual: 21/5/2019, 14:15