MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Validar Email (Por favor, aonde estou errando???!!!)

    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 11/05/2012

    [Resolvido]Validar Email (Por favor, aonde estou errando???!!!) Empty [Resolvido]Validar Email (Por favor, aonde estou errando???!!!)

    Mensagem  grbpereira em 30/3/2020, 01:46

    Olá, Equipes! king e queen


    Boa noite! Sleep Sleep



    Pessoal, por favor, já tentei de tudo para "ajeitar" este código que Valida Email. Já levei uma surra de 7 x 0 e nada... Evil or Very Mad Evil or Very Mad Evil or Very Mad

    Por obséquio, galera, dei-me uma luz!!! sunny sunny sunny





    Fraterno Abraço,
    Guilherme Pereira
    Anexos
    [Resolvido]Validar Email (Por favor, aonde estou errando???!!!) AttachmentValidar Email.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 10 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Validar Email (Por favor, aonde estou errando???!!!) Empty Re: [Resolvido]Validar Email (Por favor, aonde estou errando???!!!)

    Mensagem  DamascenoJr. em 30/3/2020, 02:30

    A "cabeçalho" da função é
    Código:
    Public Function CheckEmail(ByVal EmailAddress As String)

    Destrinchando
    Public - O escopo de acesso (ou é private ou é public)
    Function - Tipo (ou é function ou é sub)
    CheckEmail - Nome da função
    ( - Abertura para argumentos
    ByVal - Tipo de repasse (ou é ByVal ou é ByRef)
    EmailAddress - Nome do argumento
    As - Preparação para dizer como ele será recebido
    String - Como ele é recebido
    ) - Fechamento para argumentos

    Simples assim.

    Aí você está chamando a função assim
    Código:
    Call CheckEmail

    Pedindo para ela checar o email. Mas que email?? Você não passou o email para a função como argumento.
    Código:
    Call CheckEmail("contato@damascenojr.com.br")

    Ou, no seu caso
    Código:
    Call CheckEmail(Me!Func_EmailInstitu.Value)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 11/05/2012

    [Resolvido]Validar Email (Por favor, aonde estou errando???!!!) Empty Re: [Resolvido]Validar Email (Por favor, aonde estou errando???!!!)

    Mensagem  grbpereira em 30/3/2020, 02:51

    Valeu, Mestre DamascenoJr!!!! cheers cheers cheers

    Com as suas explicações, ficou mais fácil Basketball Basketball . Vou fazer uns pequenos ajustes e tocar em frente!!! study study study


    Obs.: Mestre, por favor, sem ser entrão, já sendo, dê uma olhadinha nesta dúvida que postei no decorrer da semana, por gentileza!
    "Desafio para quem gosta de Datas, Validação e VBA!!!" lol!




    Um Forte e Fraterno abraço,
    Guilherme Pereira

      Data/hora atual: 2/12/2020, 13:54