Data autocompletar

boa tarde
Pessoal

minha duvida seria eu gostaria de digitar num campo data exemplo 01/08/2018
e o access autocompletar o resto tipo assim eu digitar so o primeiro numero exemplo 01 e o resto ele completa

mas tem um problema ele deve saber o mes quando vira exemplo eu digito 31 do mes 08
e amanha e 01 do mes 09 ele completa

Veja se a função abaixo te ajuda:

Código:

Public Function trataData(sData As String) As String
   Dim sDatad As String
   Dim a As Integer
   Dim sTestado As String
   Dim sDiad As String
   Dim sMes As String
   Dim sAno As String
   Dim sDataFinal As String
  
   If sData = "" Then
      trataData = ""
      Exit Function
   End If
   sDatad = ""
   'Separa somente os números
   For a = 1 To Len(sData)
      sTestado = Mid$(sData, a, 1)
      If IsNumeric(Mid$(sData, a, 1)) Then
         sDatad = sDatad & sTestado
      End If
   Next
  
   sDiad = Left$(sDatad, 2)
   sMes = Mid$(sDatad, 3, 2)
   sAno = Mid$(sDatad, 5, Len(sDatad))
  
   If sAno = "" Then sAno = Year(Date)
   If sMes = "" Then sMes = Month(Date)
  
   sDataFinal = sDiad & "/" & sMes & "/" & sAno
  
   If Not IsDate(sDataFinal) Then
      'pode ser substituida por TrataData=""
      MsgBox "A data está digitada incorretamente.", vbExclamation, "Data incorreta"
   Else
      trataData = Format(sDataFinal, "dd/mm/yyyy")
   End If
End Function

O campo de data deve ser um tipo de texto e colocar o seguinte código:

Código:


Private Sub Texto1_AfterUpdate()
Dim Mes As Integer, Ano As Integer
    Mes = Month(Date)
    Ano = Year(Date)
    Me.Texto1 = Me.Texto1 & "/" & Mes & "/" & Ano
    Me.Texto1 = CDate(Me.Texto1)
End Sub


Espero ter ajudado
Saludos desde Bolivia