MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Formatar data

    Compartilhe
    avatar
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 03/07/2011

    [Resolvido]Formatar data

    Mensagem  Helder Milhome em Qua 17 Maio 2017, 15:02

    Ola Bom dia Todos

    Como faço pra formatar uma data que pegue apenas o dia e mes
    tenho que aplicar isso em fev, abril, jun, set, nov que são meses que não tem 31
    quando digita e passa por cima e a data de venda fica em fev 17/02/1930 set 17/09/1931 e gera parcelas com as data erradas
    eu tenho que colocar um condição de verificar e mostrar o erro antes de parcelas
    Agradeço quem poder ajudar
    Helder Milhome

    Private Sub DataDaVenda_AfterUpdate()
    If Me.DataDaVenda = Format(Me.[DataVenda], "dd/mm") = "30/02"  Then
       
       MsgBox ("Entre apenas com a data correta.... Dia não existe neste mês"), vbInformation, "Atenção...!!!"
       DoCmd.CancelEvent
       DataDaVenda.Undo
       Me!DataDaVenda.SetFocus

    End If
    End Sub
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 615
    Registrado : 09/11/2012

    Re: [Resolvido]Formatar data

    Mensagem  =>Nois em Qui 18 Maio 2017, 23:33

    tente colocar o seu campo no tipo texto


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 05/02/2016

    Re: [Resolvido]Formatar data

    Mensagem  philipp.moreira em Sex 19 Maio 2017, 04:41

    Helder,  veja se isto resolve seu problema!

    Talvez haja uma maneira mais elegante e enxuta . . . Aqui deu certo ;)

    Código:
    Private Sub DataDaVenda_LostFocus()

          Dim intDia, intMes, intAno As Integer
          Dim dtPrimeiroDiaDoMesSeguinte As Date
          Dim dtPrimeiroDiaDoMesInformado As Date
          Dim dtUltimoDiaDoMesInformado As Date
          
          With Me
                intDia = Left(.DataDaVenda, InStr(1, .DataDaVenda, "/") - 1)
                intMes = Month(.DataDaVenda)
                intAno = 2000 + Right(.DataDaVenda, Len(.DataDaVenda) - InStrRev(.DataDaVenda, "/"))
                
                dtPrimeiroDiaDoMesSeguinte = "01/" & IIf(intMes < 12, intMes + 1, 1) & "/" & IIf(intMes < 12, intAno, intAno + 1)
                dtPrimeiroDiaDoMesInformado = "01/" & intMes & "/" & intAno
                dtUltimoDiaDoMesInformado = DateAdd("d", -1, dtPrimeiroDiaDoMesSeguinte)
                
                If (Not ((!DataDaVenda >= dtPrimeiroDiaDoMesInformado) And (!DataDaVenda <= dtUltimoDiaDoMesInformado))) Then
                
                      MsgBox ("Entre apenas com a data correta.... Dia não existe neste mês"), vbInformation, "Atenção...!!!"
                      DoCmd.CancelEvent
                      !DataDaVenda.Undo
                      !DataDaVenda.SetFocus
                
                End If
                
          End With
    End Sub
    avatar
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 03/07/2011

    Re: [Resolvido]Formatar data

    Mensagem  Helder Milhome em Sab 20 Maio 2017, 00:00

    Boa noite a todos
    muito agradecido pelas dicas e ajuda
    vou tentar aqui ... gostei
    depois retorno com resultados
    abraços
    avatar
    Helder Milhome
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 03/07/2011

    Re: [Resolvido]Formatar data

    Mensagem  Helder Milhome em Dom 21 Maio 2017, 13:36

    Bom dia todos

    philipp moreira
    grato pela ajuda
    show de bola
    bastante eficaz

    Helder

      Data/hora atual: Sab 23 Set 2017, 06:44