Как сделать текущую дату в access

Обновлено: 02.07.2024

Добавление элемента управления Календарь в форму

Элемент управления Календарь может быть включен в форму для того, чтобы пользователь мог выбрать значение поля типа Дата/Время, а не вводить дату вручную.

Чтобы включить элемент управления Календарь в форму:

Рис. 15.37. Диалоговое окно Вставка элемента ActiveX

Далее можно настроить этот элемент, используя его свойства. В отличие от других элементов управления, в данном случае свойства имеют:

  • элемент управления ActiveX формы (окно свойств то же самое, что у других элементов управления и у самой формы);
  • объект Календарь, который реализуется этим элементом управления.

В нашем примере создайте новую форму в режиме Конструктора. Добавьте в нее i описанным выше способом элемент управления Календарь. Откройте диалоговое окно свойств элемента ActiveX. Обратите внимание на свойство Класс (Class), определяющее класс элемента ActiveX. Значение этого свойства установилось автоматически: MSCAL.Calendar.7. Определите имя элемента: ocxCalendar и размеры ‘ примерно 8×6 см.

Чтобы посмотреть свойства объекта Календарь:

  1. Поместите указатель мыши на календарь и щелкните правой кнопкой мыши, чтобы получить контекстное меню для элемента управления формы.
  2. В появившемся меню щелчком выберите строку Объект Календарь (Calendar Control Object), при этом откроется объектное меню (рис. 15.38). Выберите в этом меню команду Свойства (Properties). Появится диалоговое окно свойств объекта Календарь.

Рис. 15.38. Контекстное меню для элементов управления ActiveX

Рис. 15.39. Вкладка Шрифт диалогового окна Свойства: Календарь

Рис. 15.40. Вкладка Цвет диалогового окна Свойства: Календарь

Рис. 15.41. Форма с элементом управления Календарь с раскрывающимися списками месяца и года

Замечание

Чтобы познакомиться со всеми свойствами, методами и событиями любого элемента ActiveX, встроенного в форму, откройте окно свойств этого объекта и нажмите кнопку Справка (Help).

Рис. 15.42. Окончательный вид формы, содержащей элемент управления Календарь в режиме Конструктора

Рис. 15.43. Окончательный вид формы с элементом управления Календарь


Сочетание клавиш. Чтобы вставить текущую дату в выбранное поле классической базы данных Access, одновременно нажмите клавиши CTRL и точку с запятой (;).

Дополнительные сведения о добавлении полей даты и времени в таблицу можно найти в разделе Создание поля для хранения значений даты и времени. Дополнительные сведения о формах можно найти в разделе Создание формы Access.

Вставка значения по умолчанию для новых элементов

Большинство полей и элементов управления Access имеют свойство Значение по умолчанию, где можно ввести функцию, которая вставляет текущую дату каждый раз при создании нового элемента. Функция Now() используется для вставки текущей даты и времени и в классической базе данных, и в веб-приложении Access. Если необходимо вставить только дату, используйте функцию Date() в классической базе данных или функцию Today() в веб-приложении Access.

Куда вводить функцию?

Выберите необходимую процедуру, исходя из типа объекта, который необходимо изменить. Обратите внимание, что при установке значения по умолчанию в таблице, это значение будет применено ко всем формам и представлениям на основе таблицы, поэтому этот метод обычно является предпочтительным.

Если область навигации не открыта, нажмите F11, чтобы открыть ее.

Щелкните поле, для которого необходимо установить значение по умолчанию, а затем в его свойствах, в поле Значение по умолчанию, введите =Date(), =Today() или =Now().

В форме (базы данных на компьютере)

Если область навигации не открыта, нажмите F11, чтобы открыть ее.

Выберите поле, в которое необходимо вставить сегодняшнюю дату.

Если окно свойств не открыто, нажмите F4, чтобы открыть его.

Убедитесь, что на вкладке все окна свойств в свойстве Показать выбор даты задано значение даты.



Примечание: Если необходимо включить не только текущую дату, но и время, используйте функцию Now() вместо функции Date(). Вам также может понадобиться настроить свойство Формат поля (на вкладке Формат окна свойств), чтобы настроить отображение времени.

В верхней части отчета

Чтобы отобразить текущую дату в заголовке отчета (только для баз данных на компьютере), откройте отчет в режиме макета, а затем на вкладке Конструктор нажмите кнопку Дата и время.

Дополнительные сведения о создании отчетов см. в статье Основные сведения об отчетах в Access.

Чтобы заменить значение в поле даты текущей датой в классической базе данных Access, можно использовать запрос на обновление. Например:

UPDATE TASKS SET StartDate = Date() WHERE >

Дополнительные сведения о запросах на обновление см. в статье Создание и запуск запроса на обновление.

Чтобы вставить новую запись с текущей датой, используйте запрос на добавление, как показано в примере:

Дополнительные сведения о запросах на добавление см. в статье Добавление записей в таблицу с помощью запроса на добавление.

Примечание: Если необходимо включить не только текущую дату, но и время, используйте функцию Now() вместо функции Date().

Функции даты и времени VBScript помогают разработчикам преобразовывать дату и время из одного формата в другой или выражать дату или время в формате, соответствующем определенному условию.

Функция возвращает текущую системную дату.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете функцию, она производит следующий вывод.

The Value of a : 19/07/2014

Функция, которая возвращает текущую системную дату.

CDate

Функция преобразует действительное выражение даты и времени для ввода даты.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете функцию, она производит следующий вывод.

The Value of a : 1/01/2020
The Value of b : 31/12/2050

Функция, которая преобразует данный вход в дату.

DateAdd

Функция, которая возвращает дату, к которой был добавлен указанный временной интервал.

Синтаксис

Параметр/Описание

  • Интервал - требуемый параметр. Он может принимать следующие значения.
  • d - день года
  • м - месяц года
  • y - год года
  • yyyy - year
  • w - день недели
  • ww - неделя
  • q - квартал
  • час - час
  • м - минута
  • s - секунда
  • Номер - требуемый параметр. Он может принимать как положительные, так и отрицательные параметры.
  • Дата - требуемый параметр. Вариант или литерал, представляющий дату добавления интервала.

пример

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : 27/06/1895
Line 2 : 27/09/1894
Line 3 : 27/07/1894
Line 4 : 28/06/1894
Line 5 : 28/06/1894
Line 6 : 28/06/1894
Line 7 : 4/07/1894
Line 8 : 1/01/2013 1:00:00 PM
Line 9 : 1/01/2013 12:01:00 PM
Line 10 : 1/01/2013 12:00:01 PM
Line 11 : 27/06/1893
Line 12 : 27/03/1894
Line 13 : 27/05/1894
Line 14 : 26/06/1894
Line 15 : 26/06/1894
Line 16 : 26/06/1894
Line 17 : 20/06/1894
Line 18 : 1/01/2013 11:00:00 AM
Line 19 : 1/01/2013 11:59:00 AM
Line 20 : 1/01/2013 11:59:59 AM

Функция, которая возвращает дату, к которой был добавлен указанный временной интервал.

DateDiff

Функция, которая возвращает разницу между двумя заданными временными интервалами.

Синтаксис

Параметр/Описание

  • Интервал - требуемый параметр. Он может принимать следующие значения.
  • d - день года
  • м - месяц года
  • y - год года
  • yyyy - year
  • w - день недели
  • ww - неделя
  • q - квартал
  • час - час
  • м - минута
  • s - секунда
  • Date1 и Date2 - Необходимые параметры.
  • Firstdayofweek - необязательный параметр. Задает первый день недели. Он может принимать следующие значения.
  • 0 = vbUseSystemDayOfWeek - настройка API поддержки национальных языков (NLS)
  • 1 = vbSunday - воскресенье
  • 2 = vbMonday - понедельник
  • 3 = vbTuesday - вторник
  • 4 = vbWednesday - среда
  • 5 = vbThursday - четверг
  • 6 = vbFriday - пятница
  • 7 = vbSaturday - суббота
  • Firstdayofyear - необязательный параметр. Указывает на первый день года. Он может принимать следующие значения.
  • 0 = vbUseSystem - настройка API поддержки национальных языков (NLS)
  • 1 = vbFirstJan1 - начать с недели, в которой происходит 1 января (по умолчанию)
  • 2 = vbFirstFourDays - Начните с недели, которая имеет не менее четырех дней в новом году
  • 3 = vbFirstFullWeek - начните с первой полной недели нового года

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : 1
Line 2 : 4
Line 3 : 12
Line 4 : 365
Line 5 : 365
Line 6 : 52
Line 7 : 52
Line 8 : 8783
Line 9 : 527039
Line 10 : 31622340

Функция, которая возвращает разницу между двумя периодами времени.

DatePart

Функция, возвращающая определенную часть данной даты.

Синтаксис

Параметр/Описание

  • Интервал - требуемый параметр. Он может принимать следующие значения.
  • d - день года
  • м - месяц года
  • y - год года
  • yyyy - year
  • w - день недели
  • ww - неделя
  • q - квартал
  • час - час
  • м - минута
  • s - секунда
  • Date1 - обязательный параметр.
  • Firstdayofweek - необязательный параметр. Задает первый день недели. Он может принимать следующие значения.
  • 0 = vbUseSystemDayOfWeek - настройка API поддержки национальных языков (NLS)
  • 1 = vbSunday - воскресенье
  • 2 = vbMonday - понедельник
  • 3 = vbTuesday - вторник
  • 4 = vbWednesday - среда
  • 5 = vbThursday - четверг
  • 6 = vbFriday - пятница
  • 7 = vbSaturday - суббота
  • Firstdayofyear - необязательный параметр. Указывает на первый день года. Он может принимать следующие значения.
  • 0 = vbUseSystem - настройка API поддержки национальных языков (NLS)
  • 1 = vbFirstJan1 - начать с недели, в которой происходит 1 января (по умолчанию)
  • 2 = vbFirstFourDays - Начните с недели, которая имеет не менее четырех дней в новом году
  • 3 = vbFirstFullWeek - начните с первой полной недели нового года

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : 1
Line 2 : 15
Line 3 : 3
Line 4 : 1

Функция, возвращающая указанную часть заданного значения даты ввода.

DateSerial

Функция, которая возвращает дату для заданных параметров дня, месяца и года.

Синтаксис

Параметр/Описание

  • Год - требуемый параметр. Число от 100 до 9999 или числовое выражение. Значения от 0 до 99 интерпретируются как годы с 1900 по 1999 год. Для всех аргументов за другой год используйте полный четырехзначный год.
  • Месяц - требуемый параметр. Он также может быть в форме выражения, которое должно варьироваться от 1 до 12.
  • День - требуемый параметр. Он также может быть в форме выражения, которое должно варьироваться от 1 до 31.

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Функция, которая возвращает действительную дату для данного года, месяца и даты.

FormatDateTime

Функция, которая помогает разработчикам форматировать и возвращать действительное выражение даты и времени.

Синтаксис

Параметр/Описание

  • Дата - требуемый параметр.
  • Формат - необязательный параметр. Значение, определяющее формат даты или времени, который будет использоваться. Он может принимать следующие значения.
  • 0 = vbGeneralDate - Default
  • 1 = vbLongDate - дата возврата
  • 2 = vbShortDate - Дата возврата
  • 3 = vbLongTime - возвращает время
  • 4 = vbShortTime - возвращает время

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : 15/08/2013 8:25:00 PM
Line 2 : Thursday, 15 August 2013
Line 3 : 15/08/2013
Line 4 : 8:25:00 PM
Line 5 : 20:25

Функция, которая форматирует дату на основе поставляемых параметров.

IsDate

Функция, возвращающая логическое значение, независимо от того, является ли данный ввод датой.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : True
Line 2 : True
Line 3 : True

Функция, возвращающая логическое значение, независимо от того, является ли поставленный параметр датой.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Функция, которая возвращает целое число от 1 до 31, которое представляет день указанной даты.

Month

Функция Month возвращает число от 1 до 12, которое представляет месяц указанной даты.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Функция, которая возвращает целое число от 1 до 12, которое представляет месяц указанной даты.

Функция Год возвращает целое число, которое представляет год указанной даты.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Функция, которая возвращает целое число, которое представляет год указанной даты.

MonthName

Функция MonthName возвращает имя месяца для указанной даты.

Синтаксис

Параметр Описание

  • Месяц - требуемый параметр. Он определяет номер месяца.
  • Toabbreviate - необязательный параметр. Булевское значение, указывающее, следует ли сокращать имя месяца. Если оставить пустым, значение по умолчанию будет считаться False.

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : Jan
Line 2 : January
Line 3 : Jul
Line 4 : July

Функция, которая возвращает имя определенного месяца за указанную дату.

WeekDay

Функция WeekDay возвращает целое число от 1 до 7, которое представляет день недели для указанной даты.

Синтаксис

Параметр/Описание

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1: 5 Line 2: 4 Line 3: 4 Line 4: 3 Line 5: 4 Line 6: 5

Функция, которая возвращает целое число (от 1 до 7), которое представляет день недели в течение указанного дня.

WeekDayName

Функция WeekDayName возвращает имя дня недели за указанный день.

Синтаксис WeekdayName(weekday[,abbreviate[,firstdayofweek]])

  • Weekday - требуемый параметр. Номер дня недели.
  • Toabbreviate - необязательный параметр. Булевское значение, указывающее, следует ли сокращать имя месяца. Если оставить пустым, значение по умолчанию будет считаться False.
  • Firstdayofweek - необязательный параметр. Задает первый день недели.
  • 0 = vbUseSystemDayOfWeek - настройка API поддержки национальных языков (NLS)
  • 1 = vbSunday - воскресенье
  • 2 = vbMonday - понедельник
  • 3 = vbTuesday - вторник
  • 4 = vbWednesday - среда
  • 5 = vbThursday - четверг
  • 6 = vbFriday - пятница
  • 7 = vbSaturday - суббота

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1 : Tuesday
Line 2 : Mon
Line 3 : Sunday
Line 4 : Tue
Line 5 : Sunday

Функция, которая возвращает имя дня недели для указанного дня.

Функция Now возвращает текущую системную дату и время.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод. The Value of a : 19/07/2013 3:04:09 PM

Функция, которая возвращает текущую системную дату и время.

Функция Hour возвращает число от 0 до 23, которое представляет час дня для указанной отметки времени.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1: 15
Line 2: 23
Line 3: 14

Функция, которая возвращает целое число от 0 до 23, которое представляет часовую часть заданного времени.

Minute

Функция Minute возвращает число от 0 до 59, которое представляет минуту часа для указанной отметки времени.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1: 13
Line 2: 43
Line 3: 20

Функция, возвращающая целое число от 0 до 59, которое представляет минутную часть данного времени.

Second

Функция возвращает число от 0 до 59, которое представляет вторую часть часа для указанной отметки времени.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод. Line 1: 25
Line 2: 45
Line 3: 0

Функция, возвращающая целое число от 0 до 59, которое представляет собой секундную часть данного времени.

Функция времени возвращает текущее системное время.

Синтаксис

пример

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Line 1: 3:29:15 PM

Функция, которая возвращает текущее системное время.

Timer

Функция таймера возвращает число секунд и миллисекунд с 12:00.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Time is : 19/07/2013 3:45:53 PM
Timer is: 56753.4

Функция, которая возвращает число секунд и миллисекунд с 12:00.

TimeSerial

Функция TimeSerial возвращает время для указанных часов, минут и вторых значений.

Синтаксис

Параметр/Описание

  • Hour - обязательный параметр, который представляет собой целое число от 0 до 23 или любое числовое выражение.
  • Minute - обязательный параметр, который представляет собой целое число от 0 до 59 или любое числовое выражение.
  • Second - обязательный параметр, который представляет собой целое число от 0 до 59 или любое числовое выражение.

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

8:01:02 PM
12:59:59 AM
2:20:18 PM

Функция, которая возвращает время для конкретного ввода часа, минуты и секунды.

TimeValue

Функция TimeValue преобразует заданную входную строку в допустимое время.

Синтаксис

пример

Добавьте кнопку и добавьте следующую функцию.

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Существует множество приложений, в которых вы можете добавить отметку даты/времени к каждой записи, определяющую время, когда запись была добавлена ​​в базу данных. Это легко сделать в Microsoft Access с помощью функции Now (). В этом руководстве описан пошаговый процесс.

Примечание. Эти инструкции предназначены для Access 2007. Если вы используете более позднюю версию Access, ознакомьтесь с разделом Добавление меток времени. к базе данных Access 2010.

Добавление меток даты/времени в базу данных Access 2007

Добавление метки даты без времени

Функция Now () добавляет текущую дату и время в поле. Кроме того, вы можете использовать функцию Date (), чтобы добавить дату без времени.

1. Есть таблица с объектами недвижимости.
2. Объект определяется по его ID("ID Объекта")
3. У объектов есть дата окончания("Дата окончания")
4. С помощью запроса выбираем все записи, где дата окончания меньше или равна текущей дате.
5. Переходим на первую запись
6. Если дата окончания меньше или равна 7("семи"), то записываем "ID Объекта" текущей записи в массив.
7. Идём на след. запись.(цикл до .eof)

8. Выдаём предупреждение, мол "Срок у некоторых объектов скоро заканчивается"
9. Открываем форму только с теми записями, где "ID Объекта"=данным из массива.

Private Sub Form_Open(Cancel As Integer)
Dim okdate, okdate2, msg, dt, df, d, m, y As String
Dim ssd As Date
Dim ar As String 'массив должен быть, наверно
okdate = DateValue(Now()) 'В запросе два поля "ID Объекта" и "Дата окончания", где "Дата окончания" >= [N]

With CurrentDb.QueryDefs("Дата окончания")
.Parameters("N") = okdate
With .openrecordset
If Not .EOF Then
.MoveFirst
Do
dt = .Fields("Дата окончания")
d = Nz(Left(dt, 2), "") `день
m = Nz(Mid(dt, 4, 2), "") `месяц
y = Nz(Right(dt, 4), "") `год (правильно?)
ssd = d & "." & m & "." & y
df = DateDiff("d", ssd, Now) `определили, вроде, разницу в днях между текущей датой и датой окончания

а не проще ли фильтр по дате написать прямо в строке фильтра самой формы?

ну, а если процедуру, то так:

Код: Выделить всё
Dim ar as String
If ar = "" Then
ar = "[ID Объекта]=" & .Fields("ID Объекта")'фильтр формируется для одного значения поля
Else
ar = ar & " or [ID Объекта]=" & .Fields("ID Объекта")'добавляются ещё значения, если они есть
End If

DoCmd.OpenForm "объект", , ar

ps:
выключил комп и подумал, а что такое 7?
2007 год? а 1 января 2008 ты семёрку будешь заменять на восьмёрку?
неее. это не по-нашему

тогда делай рекордсет на основе Код: Выделить всё
SELECT Объект.[ID Объекта]
FROM Объект
WHERE ((Year([Дата окончания])>=Year(Now())));

потом
Код: Выделить всё if Not (rst.EOF) Then 'рекордсет вернул некоторое количество записей с 2007 или более поздними годами
MsgBox бла-бла
.
DoCmd.OpenForm "Объект", , "(Year([Дата окончания])>=Year(Now()))"

не, так не получится.
надо сначала массив заполнить(как, не знаю)
а потом открыть форму не с OR, а AND

В вашем варианте, всего два варианта возможно

либо с последней записью откроется форма(как сейчас есть)
либо х.з. что получится)))
Тут цикл, что ли нужен..

ar = ar & " or [ID Объекта]=" & .Fields("ID Объекта")'добавляются ещё значения, если они есть

Добавляется ещё одно значение, вроде как.

Forlaw писал(а): не, так не получится.
надо сначала массив заполнить(как, не знаю)
а потом открыть форму не с OR, а AND

я и привёл кусок кода, где формируется "массив" ar. строка это, где через Or перечисляются значения поля [ID объекта]. с And как раз ничего и не выйдет. не может восьмёрка одновременно равняться пятёрке и девятке

[/quote]
так это будет:
вставка кода сделана обычным текстом, так что не могу точно отследить вложенность
Код: Выделить всё
If df

а вообще лучше использовать прямой фильтр по дате, а не городить циклы со сравнениями

"7" это "df"
df = DateDiff("d", ssd, Now)
результат функции. Т.е. разница в ДНЯХ, между "дата окончания" и "текущая дата"

Т.е. нужно сделать "будильник".
Если "срок окончания" меньше или равно "недели" (7 дней), то предупреждение.

SELECT Объект.[ID Объекта]
FROM Объект
WHERE ((Year([Дата окончания])>=Year(Now())));
не то, немного..

сделал по ТОЧНОЙ дате через параметр в запросе:
okdate = DateValue(Now())
With CurrentDb.QueryDefs("Дата окончания")
.Parameters("N") = okdate

запрос:
SELECT Объекты.[Дата окончания], Объекты.[ID Объекта]
FROM Объекты
WHERE (((Объекты.[Дата окончания])>=[N]));

если по полочкам:

1. Есть ТАБЛИЦА
2. В ТАБЛИЦЕ есть поле "Дата окончания"
3. В ТАБЛИЦЕ есть поле "ID Объекта"
4. При загрузке базы(или формы, которая автоматом грузится) нужно найти все записи в ТАБЛИЦЕ, где ТЕКУЩАЯ ДАТА

dt = .Fields("Дата окончания")
d = Nz(Left(dt, 2), "") `день (точно правильно)
m = Nz(Mid(dt, 4, 2), "") `месяц (точно правильно)
y = Nz(Right(dt, 4), "") `год (правильно?)
ssd = d & "." & m & "." & y
df = DateDiff("d", ssd, Now) `Вроде определили разницу в днях между текущей датой и датой окончания

2. как занести в так называемый "массив" (тебе не нужен настоящий массив типа ar[0] as string) строку фильтра, я уже написал. вставь в свой цикл заполнение твоей ar перечнем значений через Or. а потом этот ar подставить, как фильтр в открытие формы. но этот путь бестолковый, имхо. запутывает и тебя и программу и, вообще, в корне не то, чего ты сам хочешь.

3. ты так и не подумал об организации фильтра по дате прямо в форме.
умеешь работать с Recorset'ом?
переделай вот так всю процедуру (мог наврать со знаками в сравнении - посмотришь):

Подскажите, пожалуйста. В БД есть запрос, где есть столбец "Дата проведения", где указывается дата приема пациента и есть столбец с формулой: через3месяца: DateSerial(Year(подчиненная![дата проведения]);(Month(подчиненная![дата проведения])+3);Day(подчиненная![дата проведения])) , который вычисляет дату проведения следующего приема (он д.быть через три месяца). Вопрос вот в чем-вычислять то он вычисляет через три месяца, дату показывает, можно ли сделать так, чтоб если дата выпадает на выходные (суббота и воскресенье)-переносилась на понедельник,подскажите,как это лучше сделать в данном случае, потому как программировать я не умею, но попробую разобраться, если что-нидь подскажете.

Читайте также: