Табель рабочего времени

[shylgaolga]

Здравстуйте!
Очень нужна помощь знающих людей для составления табеля.
Программированию учусь, а вопросов много. А именно:
1. Как скрыть последние поля в табеле в зависимости от выбранного месяца?
2. Как для второй половины месяца заблокировать первую (по 15 число включительно)? То есть, начиная с 16 числа запретить ввод данных для чисел с 1-го по 15-е.
Базу прилагаю

[Андрэич]

Сообщение от shylgaolga

составления табеля.
...
1. Как скрыть последние поля в табеле в зависимости от выбранного месяца?
2. Как для второй половины месяца заблокировать первую (по 15 число включительно)? То есть, начиная с 16 числа запретить ввод данных для чисел с 1-го по 15-е.

(Файл не смотрел - не понимаю по малоросски.)
1. Есть пример чем-то похожей задачи - но в Экселе (во вложении). Посмотрите, получается наглядно. Если принцип подходит - недолго доработать.
2. В коде, где вставляется дата из датапикера, можно добавить проверку по этому условию: если выбрана неправильная дата - месаджбокс с предупреждением

[shylgaolga]

Здравствуйте!
Как скрыть лишние числа, разобралась. Только для высокосного года не получается.
А с блокировкой первой половины месяца после 16 числа никаких мыслей не возникает.
Помоготите, пожалуйста!

[Myhaylo]

В подпрограмме обработки события «Загрузка» (Load) формы проверяйте условие:

if Day(Date())>16 then

Процесс можно автоматизировать, например, так:

Dim b As Boolean
b=Day(Date())>16
For i=1 to 16
Підлегла_Табель.Form.Controls("Поле " & i).ColumnHidden = b
Next i

Якщо хочете збільшити імовірність відповіді на Ваші питання - викладайте базу у mdb-форматі під MS Access не вище 2003. Бо не має ні можливості, ні бажання копирсатися в MS Office 2007 й вище.

[Myhaylo]

Сообщение от Андрэич

не понимаю по малоросски

Безграмотный великорусский шовинист! Стыд и срам, Андрэич!

[Андрэич]

Сообщение от Myhaylo

Безграмотный великорусский шовинист! Стыд и срам, Андрэич!

2Михайло
Грязные инсинуации!


2shylgaolga
Постараюсь посмотреть ваш файл, но только на выходных получится

[shylgaolga]

Спасибо всем за советы. У меня получилось.