Private Sub TB_Date_Change()
If Len(Me.TB_Date.Value) = 3 Then
If Right(Me.TB_Date.Value, 1) ‹ › '/' Then
Me.TB_Date.Value = Left(Me.TB_Date.Value, 2) & '/' & Right(Me.TB_Date.Value, Len(Me.TB_Date.Value) - 2)
End If
ElseIf Len(Me.TB_Date.Value) = 6 Then
If Right(Me.TB_Date.Value, 1) ‹ › '/' Then
Me.TB_Date.Value = Left(Me.TB_Date.Value, 5) & '/' & Right(Me.TB_Date.Value, Len(Me.TB_Date.Value) - 5)
End If
End If
End Sub