Запрос для ACSESS-базы (Format(date...) не работает)

@кнопик · Регистрация: 14.11.2006

Студворк — интернет-сервис помощи студентам

Требуется из объекта Data (dtaRECAPP) создать Recordset, где значение поля #DATE_PROV равно дате, формирующейся из GenD(день), GenM(месяц), GenY(год).

При компиляции выдается сообщение о синтаксической ошибке в дате (Syntax error in date in expression).

Criteria = '#DATE_PROV=#' & GenM & '/' & GenD & '/' & GenY '#'

dtaRECAPP.Recordset.FindFirst Criteria

Предложенный мне вариант

dtaRECAPP.Recordset.FindFirst '#DATE_PROV=#' & Format(GenM & '/' & GenD & '/' & GenY, 'm/d/yy' ) & '#'

ситуацию никак не изменил.

Помогите, пожалуйста.

15.11.2006, 23:19

Может быть надо формат указывать как mm/dd/yy?

15.11.2006, 23:21

Пардон, это опять я. Тебе же написали:

dtaRECAPP.Recordset.FindFirst 'DATE_PROV > #' _
& Format(GenM & '/' & GenD & '/' & GenY, ''''m/d/yy'''') & '#'

а ты перед названием поля ставишь решетку!

16.11.2006, 02:37

Criteria = '[#DATE_PROV]=#' & Format(DateSerial(GenY,GenM,GenD), 'mm/dd/yyyy') & '#'

dtaRECAPP.Recordset.FindFirst Criteria

Так должно работать. Проверено временем.

'mm/dd/yyyy' - Перед символами формата требуется указывать слэш.
DateSerial - как раз для таких целей и предназначена.
Что бы ясно дать понять, что #DATE_PROV это имя поля, заключи его в квадратные скобки.

18.11.2006, 05:40

можно и не слэш, а, например, тире, все зависит от того, в каком формате дата

19.11.2006, 00:16

Можно и тире, главное что бы использовался анго-американский формат даты. Так при использовании формата mm.dd.yy в данном примере findfirst не будет работать, а Format(GenM & '/' & GenD & '/' & GenY, 'm/d/yy' ), скорей всего именно к такому формату и преобразовал, т.к. слэш(/) понимается функцией Format как разделитель компонентов дат, указанный в Regional Settings, а у кнопика этим разделителем скорей всего является точка.
Поэтому как я уже говорил что бы Format правильно понял слэш надо перед ним поставить другой('mm/dd/yyyy'), либо этот слэш заключить в кавычки('mm''/''dd''/''yyyy'), что несколько неудобней, т.к при написании кода надо не забыть поставить по две кавычки.

20.11.2006, 23:27

Вот, написал 100 лет назад. воткнул в модуль и пользуюсь не задумываясь. Только # надо
подставлять

'' Example
Dim st as string
st = '#'+CStrxD(Now)+'#'

'' дата в американском формате
Public Function CStrXD(x As Variant) As String
Dim st As String
If (IsNull(x)) Then
st = ''
Else
st = CStr(Month(x)) + '/' + CStr(Day(x)) + '/' + CStr(Year(x))
End If
CStrXD = st
End Function

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@кнопик 0 / 0 / 0 Регистрация: 14.11.2006 Сообщений: 3

	Запрос для ACSESS-базы (Format(date...) не работает) 15.11.2006, 16:07. Показов 1535. Ответов 6 Метки нет (Все метки) Требуется из объекта Data (dtaRECAPP) создать Recordset, где значение поля #DATE_PROV равно дате, формирующейся из GenD(день), GenM(месяц), GenY(год). При компиляции выдается сообщение о синтаксической ошибке в дате (Syntax error in date in expression). Criteria = '#DATE_PROV=#' & GenM & '/' & GenD & '/' & GenY '#' dtaRECAPP.Recordset.FindFirst Criteria Предложенный мне вариант dtaRECAPP.Recordset.FindFirst '#DATE_PROV=#' & Format(GenM & '/' & GenD & '/' & GenY, 'm/d/yy' ) & '#' ситуацию никак не изменил. Помогите, пожалуйста. 0

asd
	15.11.2006, 23:19
	Может быть надо формат указывать как mm/dd/yy?

asd
	15.11.2006, 23:21
	Пардон, это опять я. Тебе же написали: dtaRECAPP.Recordset.FindFirst 'DATE_PROV > #' _ & Format(GenM & '/' & GenD & '/' & GenY, ''''m/d/yy'''') & '#' а ты перед названием поля ставишь решетку!

Mavr
	16.11.2006, 02:37
	Criteria = '[#DATE_PROV]=#' & Format(DateSerial(GenY,GenM,GenD), 'mm/dd/yyyy') & '#' dtaRECAPP.Recordset.FindFirst Criteria Так должно работать. Проверено временем. 'mm/dd/yyyy' - Перед символами формата требуется указывать слэш. DateSerial - как раз для таких целей и предназначена. Что бы ясно дать понять, что #DATE_PROV это имя поля, заключи его в квадратные скобки.

alexander
	18.11.2006, 05:40
	можно и не слэш, а, например, тире, все зависит от того, в каком формате дата

Mavr
	19.11.2006, 00:16
	Можно и тире, главное что бы использовался анго-американский формат даты. Так при использовании формата mm.dd.yy в данном примере findfirst не будет работать, а Format(GenM & '/' & GenD & '/' & GenY, 'm/d/yy' ), скорей всего именно к такому формату и преобразовал, т.к. слэш(/) понимается функцией Format как разделитель компонентов дат, указанный в Regional Settings, а у кнопика этим разделителем скорей всего является точка. Поэтому как я уже говорил что бы Format правильно понял слэш надо перед ним поставить другой('mm/dd/yyyy'), либо этот слэш заключить в кавычки('mm''/''dd''/''yyyy'), что несколько неудобней, т.к при написании кода надо не забыть поставить по две кавычки.

Ghost
	20.11.2006, 23:27
	Вот, написал 100 лет назад. воткнул в модуль и пользуюсь не задумываясь. Только # надо подставлять '' Example Dim st as string st = '#'+CStrxD(Now)+'#' '' дата в американском формате Public Function CStrXD(x As Variant) As String Dim st As String If (IsNull(x)) Then st = '' Else st = CStr(Month(x)) + '/' + CStr(Day(x)) + '/' + CStr(Year(x)) End If CStrXD = st End Function