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


2 participantes

    [Resolvido]Mensagem quando o cliente não for cadastrado

    avatar
    biaterra
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 133
    Registrado : 29/10/2013

    [Resolvido]Mensagem quando o cliente não for cadastrado Empty [Resolvido]Mensagem quando o cliente não for cadastrado

    Mensagem  biaterra 20/8/2014, 01:12

    Boa noite, revirei o forum e resolci uma parte da minha necessidade...

    Quando digito o telefone, se o cliente for cadastrado ele avisa e abre o cadastro do cliente, porém, se não for cadastrado ele abre direto o form para cadastro, gostaria que ele desse a mensagem sim/não para escolher se cadastra ou não o cliente.

    Private Sub Txt_Tel_Fixo_BeforeUpdate(Cancel As Integer)
    If DCount("Tel_Fixo_Cliente", "tb_Cliente", "Tel_Fixo_Cliente ='" & Me.Txt_Tel_Fixo & "'") Then

    MsgBox ("Cliente Já Cadastrado"), vbInformation, "Aviso"
    DoCmd.OpenForm "Frm_Cad_Clientes_Cs"

    Cancel = True
    Me!Txt_Tel_Fixo.Undo
    End If
    End Sub

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Mensagem quando o cliente não for cadastrado Empty Re: [Resolvido]Mensagem quando o cliente não for cadastrado

    Mensagem  Alexandre Neves 20/8/2014, 09:16

    Bom dia,
    Private Sub Txt_Tel_Fixo_BeforeUpdate(Cancel As Integer)
    If DCount("Tel_Fixo_Cliente", "tb_Cliente", "Tel_Fixo_Cliente ='" & Me.Txt_Tel_Fixo & "'")>0 Then
    MsgBox "Cliente Já Cadastrado", vbInformation, "Aviso"
    DoCmd.OpenForm "Frm_Cad_Clientes_Cs"
    elseif MsgBox ("Cliente ainda não Cadastrado. Pretende-o cadastrar?",vbyesno, "Aviso")=vbyes then
    DoCmd.OpenForm "Frm_Cad_Clientes_Cs"
    End If
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    biaterra
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 133
    Registrado : 29/10/2013

    [Resolvido]Mensagem quando o cliente não for cadastrado Empty Re: [Resolvido]Mensagem quando o cliente não for cadastrado

    Mensagem  biaterra 20/8/2014, 23:51

    Assim que eu terminar este bd vou postar aqui!!! Estou criando um adaptando modelos daqui do forum mesmo! Vocês são show, um dia quem sabe eu chege perto das unhinhas dos pés de vocês mestres!!!

    Boa noite e até breve!

    Conteúdo patrocinado


    [Resolvido]Mensagem quando o cliente não for cadastrado Empty Re: [Resolvido]Mensagem quando o cliente não for cadastrado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/4/2024, 07:08