Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.04.2010, 00:08   #1
Blondy
Участник клуба
 
Аватар для Blondy
 
Регистрация: 07.07.2009
Сообщений: 1,385
По умолчанию Access: установка новой даты

Дорогие форумчане, как решить такую проблему:
в форме есть текстовое поле, куда пользователь вводит дату или она может выбираться из таблицы. Эта дата обязательно понедельник.
В соседнем текстовом поле должна появиться дата следующего понедельника (+7 дней). Но ведь просто так 7 не прибавишь, а какую функцию использовать и как ее прописать я не знаю. Попробовала =(Day([L_Data]+7)), где [L_Data] - поле со старой датой. Да, прибавляется 7 дней, в поле отображается только день..... а как быть с месяцем и годом?
Может тоже есть какая нибудь функция "абсолютной даты" как в Ecxel, где в результате появляется огромное число к нему прибавить 7 дней и переконвертировать это число опять в привычный формат?

И как написать проверку на то, чтобы если пользователь вел не понедельник, выходило сообщение об ошибке?
"Все мы жаждем чудес. Чисто человеческое свойство." Carl Sagan
Blondy вне форума Ответить с цитированием
Старый 28.04.2010, 09:07   #2
Abrakadabra
Форумчанин
 
Регистрация: 26.04.2008
Сообщений: 487
По умолчанию

Один из самых простых вариантов:

На событие "После обновления" поля, в которое Вы вводите дату, вставьте:
Код:
If Weekday(Me.ИмяПоляВКотороеВыВводитеДату, vbMonday) <> 1 Then
    MsgBox "Не угадали, это не понедельник"
Else
    Me.ИмяПоляСНовойДатой = Me.ИмяПоляВКотороеВыВводитеДату + 7
End If
Форматы полей, естественно, должны быть "дата\время"

Последний раз редактировалось Abrakadabra; 28.04.2010 в 09:09.
Abrakadabra вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Автоматизация заполнения даты и зависимость ячейки времени к ячейке даты. Каравай Microsoft Office Excel 14 11.03.2010 18:11
Установка системной даты и времени (С++) Juli Помощь студентам 1 07.12.2007 15:50
Установка формата даты для TDateEdit SAP Компоненты Delphi 3 20.03.2007 18:46