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


3 participantes

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

    samueldrun
    avatar
    samueldrun
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/09/2017
    • Mensagem nº1

    [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)
    • Ir para o topo
    vieirasoft
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010
    • Mensagem nº2

    [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
    • Ir para o topo
    tauron
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011
    • Mensagem nº3

    [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

    • Ir para o topo
    samueldrun
    avatar
    samueldrun
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/09/2017
    • Mensagem nº4

    [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
    • Ir para o topo
    vieirasoft
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010
    • Mensagem nº5

    [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
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    [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

    • Ir para o topo
      Data/hora atual: 8/11/2024, 00:54