В Поле дата

[Vitalii197777]

Уважаемые подскажите пожалуйста как создать такое для ввода(даты) т.е при наведении на поле мог вводить данные .1.Поле1 необходимо с число.месяц.год -сегодня-(автоматич.выводился)- по дата сегодня(автоматически выводился). т.е с 01.02.2018 по 03.02.2018.В Поле2 дата сегодня +1 день (то есть завтрашняя дата).Спасибо заранее!

[Eugene-LS]

Private Sub ПолеДатаС_GotFocus()
'Получение фокуса контролем "ПолеДатаС"
    If IsNull(Me!ПолеДатаС) = True Then 'Поле пустое
        Me!ПолеДатаС = Date
        Me!ПолеДатаПо = Date + 1 'Дата + 1 день
    End If
End Sub