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]Mascara de entrada para data

    ribeiroguaruja
    ribeiroguaruja
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 30/05/2015

    [Resolvido]Mascara de entrada para data Empty [Resolvido]Mascara de entrada para data

    Mensagem  ribeiroguaruja 9/6/2022, 23:48

    Boa noite

    Pesquisei nos foruns e não encontrei...

    Gostaria de aprender como entrar com uma data exemplo: 09/06/2022 numa caixa de texto formatada com máscara de entrada de "data abreviada" digitando apenas 09/06/22 e o sistema entender que é 2022, retornando 09/06/2022.

    Agradeço a atenção!

    What a Face


    .................................................................................
    affraid
    ribeiroguaruja
    ribeiroguaruja
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 30/05/2015

    [Resolvido]Mascara de entrada para data Empty Re: [Resolvido]Mascara de entrada para data

    Mensagem  ribeiroguaruja 10/6/2022, 04:48

    Consegui este procedimento do Marcoratti...

    Mas não aceita máscara de entrada e tenho que digitar as barras "/" na data...

    ===============================================================
    Private Sub cmdConvertDate_Click()
    Dim strYear As String
    Dim intSlash As Integer

    If IsDate(txtDate) or txtDate = "2/29/00" Then
    'procura primeiro separador
    intSlash = InStr(txtDate, "/")
    If intSlash > 0 Then
    'procura segundo separador
    intSlash = InStr(intSlash + 1, txtDate, "/")
    If intSlash > 0 Then
    'Extrai ano da data
    strYear = Mid(txtDate, intSlash + 1)
    If Len(strYear) = 2 Then
    If CInt(strYear) < 50 Then
    ' Menor que 50: ano = 20XX.
    strYear = "20" & strYear
    Else
    ' Maior que 50: ano = 19XX.
    strYear = "19" & strYear
    End If
    End If
    MsgBox "Data Informada: " & txtDate
    MsgBox "ANO (Sua Regra): " & strYear
    MsgBox "ANO (Regra do VB): " & Year(txtDate)
    Else
    MsgBox "Data no formato não esperado!"
    End If
    Else
    MsgBox "Data no formato não esperado!"
    End If
    Else
    MsgBox "Data inválida !"
    End If
    ' Limpando a data no texto
    txtDate.Text = Left(txtDate.Text, intSlash) & strYear
    End Sub
    ========================================================================


    .................................................................................
    affraid
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mascara de entrada para data Empty Re: [Resolvido]Mascara de entrada para data

    Mensagem  DamascenoJr. 10/6/2022, 05:45

    Tente assim

    Código:
    If Screen.ActiveControl.Name = Me!txtData.Name Then
       
        If DataErr = 2279 Then
       
            If Len(Replace(Split(Me!txtData.Text, "/")(2), "_", "")) = 2 Then
               
                Me!txtData.Value = Left(Me!txtData.Text, 6) & 20 & Replace(Split(Me!txtData.Text, "/")(2), "_", "")
                Response = acDataErrContinue
               
            End If
       
        End If
       
    End If


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 30/05/2015

    [Resolvido]Mascara de entrada para data Empty Re: [Resolvido]Mascara de entrada para data

    Mensagem  ribeiroguaruja 10/6/2022, 14:47

    Bom dia

    Damasceno, obrigado pela atenção...

    Sua solução funciona também, mas se estiver definida a máscara de entrada "00/00/0000;0;_" dá erro

    Preciso da máscara de entrada, e gostaria de digitar sem as barras...

    posso digitar 090622 ou 09062022 que retornará 09/06/2022

    pra mim o importante é digitar o ano completo ou abreviado e retornar sempre o completo

    obg


    .................................................................................
    affraid
    ribeiroguaruja
    ribeiroguaruja
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 30/05/2015

    [Resolvido]Mascara de entrada para data Empty Re: [Resolvido]Mascara de entrada para data

    Mensagem  ribeiroguaruja 11/6/2022, 23:37

    Desculpem a ignorância, sou meio novato aqui...

    O que eu preciso foi resolvido!

    bastou alterar a máscara de entrada de: 00/00/0000;0;_ para 99/99/9999;0;_

    Basketball


    .................................................................................
    affraid
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mascara de entrada para data Empty Re: [Resolvido]Mascara de entrada para data

    Mensagem  DamascenoJr. 12/6/2022, 01:05

    O fórum agradece o retorno. Sucesso.


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

      Data/hora atual: 3/7/2022, 09:46