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]Barra automatica em data

    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  souzadenilson Qua 07 Abr 2021, 11:55 pm

    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 Qui 08 Abr 2021, 5:23 pm, editado 1 vez(es)
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  souzadenilson Qui 08 Abr 2021, 12:57 am

    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 : 3845
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. Qui 08 Abr 2021, 1:43 am

    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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  souzadenilson Qui 08 Abr 2021, 5:23 pm

    Obrigado

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 03 Out 2024, 9:52 am