[Resolvido]Formatar data

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

tente colocar o seu campo no tipo texto

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


Boa noite a todos
muito agradecido pelas dicas e ajuda
vou tentar aqui ... gostei
depois retorno com resultados
abraços

Bom dia todos

philipp moreira
grato pela ajuda
show de bola
bastante eficaz

Helder