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]Forçar letras minusculas para campos de e-mail

    avatar
    mfmaiafilho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 02/08/2018

    [Resolvido]Forçar letras minusculas para campos de e-mail Empty [Resolvido]Forçar letras minusculas para campos de e-mail

    Mensagem  mfmaiafilho em Ter 19 Maio - 14:38

    boa tarde, eu tenho um formulário que força letras maiúsculas em quase todos os campos porém, no campo de e-mail eu preciso deixá-lo somente minusculo, mesmo se o usuário estiver com caps lock ativo..
    preciso forçar letras minusculas no campo de e-mail

    me ajudem!


    Última edição por mfmaiafilho em Qua 20 Maio - 12:43, editado 1 vez(es)
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 614
    Registrado : 11/12/2017

    [Resolvido]Forçar letras minusculas para campos de e-mail Empty Re: [Resolvido]Forçar letras minusculas para campos de e-mail

    Mensagem  Ismael Silva em Ter 19 Maio - 15:12

    Boa tarde,

    Vá na sua tabela, onde tem o campo E-mail, e no formato, coloque o sinal de <.

    Teste e retorne.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 357
    Registrado : 25/02/2016

    [Resolvido]Forçar letras minusculas para campos de e-mail Empty Re: [Resolvido]Forçar letras minusculas para campos de e-mail

    Mensagem  FranklinJSP em Ter 19 Maio - 18:27

    Olá

    Tente assim

    Código:
    Private Sub Email_KeyPress(KeyAscii As Integer)
        KeyAscii = Asc(LCase(Chr$(KeyAscii)))
    End Sub

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

      Data/hora atual: Dom 5 Jul - 5:01