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


    [Resolvido]Barra automatica em data

    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 02/05/2012

    [Resolvido]Barra automatica em data Empty [Resolvido]Barra automatica em data

    Mensagem  souzadenilson 8/4/2021, 00:55

    Boa noite.
    Após algum tempo, estou retornando para tentar solucionar uma duvida. Realizei algumas buscas principalmente neste forum e não encontrei uma resposta onde na textbox.
    Algum tópico ou link onde possa tirar a minha duvida.

    Um código que implementei no projeto, deu erro, resolvi tira-lo
    Exemplo.  digitar desta forma na textbox 12082000 e  ficará desta forma 12/08/2000.


    Última edição por souzadenilson em 8/4/2021, 18:23, editado 1 vez(es)
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 02/05/2012

    [Resolvido]Barra automatica em data Empty Re: [Resolvido]Barra automatica em data

    Mensagem  souzadenilson 8/4/2021, 01:57

    Utilizei este código abaixo e deu erro

    Código:


    Private Sub Id_DataNasc_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
       'Limita a Qde de caracteres
       Id_DataNasc.MaxLength = 10
     
       'para permitir que apenas números sejam digitados
       If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
          KeyAscii = 0
       End If
     
    End Sub
     
    Private Sub Id_DataNasc_Change()
       'Formata : dd/mm/aaaa
       If Len(Id_DataNasc) = 2 Or Len(Id_DataNasc) = 5 Then
          Id_DataNasc.Text = Id_DataNasc.Text & "/"
          SendKeys "{End}", True
       End If
    End Sub

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Barra automatica em data Empty Re: [Resolvido]Barra automatica em data

    Mensagem  DamascenoJr. 8/4/2021, 02:43

    Já existe o recurso nativo do MS Access. Basta configurar a máscara de entrada, assim não será necessário você digitar as barras pois elas já ficam automáticas no campo.


    .................................................................................
    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.

    souzadenilson gosta desta mensagem

    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 02/05/2012

    [Resolvido]Barra automatica em data Empty Re: [Resolvido]Barra automatica em data

    Mensagem  souzadenilson 8/4/2021, 18:23

    Obrigado

    Conteúdo patrocinado

    [Resolvido]Barra automatica em data Empty Re: [Resolvido]Barra automatica em data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2021, 13:06