Ошибка компеляции

[Iskin]

Что-то когда-то написал в акцессе 2003. Все работало. Попробовал запустить в самой новой версии, выдает ошибку.
Что делать? С чего начать? Может надо какую-то библиотеку подключить?
на этот запрос жалуется
SELECT [all Запрос].F1, [all Запрос].F2, [all Запрос].F6, Left([F13],6) AS groop, [all Запрос].F3, [all Запрос].F21, [all Запрос].F23
FROM [all Запрос]
WHERE (((Left([F13],6))=Forms![выбор отчета]!ПолеСоСписком2));

[hexor_boo]

Доброго времени суток! По чеснаку: я не знаток БД Access, но Office 2003 уважаю безмерно. Что могу предложить "прям сразу": преобразовать запрос к виду

WHERE id=1;

, где id - уникальное индексное поле с автоинкрементом, если оно у Вас есть. Или любое другое простое значение. Далее: отдельным кодом выяснить значение

Forms![выбор отчета]!ПолеСоСписком2

Сюда же: "Forms" - это что? Коллекция форм VBA в документе? Заранее прошу прощения за "чайниковые вопросы". Какую функцию несут "!" в запросе?

[hexor_boo]

Ещё вариант:

Left([F13],6

это же функция обработки строки? Стоит проверить есть ли эта функция в принципе в этой версии Office. Вдруг её переделали во что-то типа LeftStr? От M$ можно и такого ожидать. Office 2003 последняя версия офиса где в Visio можно нормально писать макросы. В следующей версии вырезали по-моему даже саму функцию записи макросов. Типа если ты умный кодер - пиши ручками. А если не умеешь ручками - ищи того, кто умеет.

[Iskin]

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

Ещё вариант:

Left([F13],6

это же функция обработки строки? Стоит проверить есть ли эта функция в принципе в этой версии Office. Вдруг её переделали во что-то типа LeftStr?

Тоже думаю, где-то здесь собака зарылась)

Left

- находит значения яч 13 на уровне 6 знаков. т.к. остальные знаки не нужны. Для сдедующей группировки

[Iskin]

Option Explicit
Option Compare Database
Public Const SM_CXSCREEN = 0
Public Const SM_CYBORDER = 6
Public Const SM_CYSCREEN = 1
Public Const SWP_NOZORDER = &H4
Public Const LOGPIXELSY = 90
Public Const LOGPIXELSX = 88
Public Const HWND_DESKTOP As Long = 0
Public Const TWIPSPERINCH As Long = 1440&
  Public Const SM_CXVSCROLL As Long = 20&

''Private Declare Function GetDC Lib "user32" (ByVal Hwnd As Long) As Long
''Private Declare Function ReleaseDC Lib "user32" (ByVal Hwnd As Long, ByVal hdc As Long) As Long
Private Const SM_CXFULLSCREEN = 16

Private Const SM_CYFULLSCREEN = 17

Private Const adhcTwipsPerInch = 1440
''Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
''Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

VBA выполнялся в 32-разрядной среде, и поэтому не хочет работать в 64-разрядных средах.
"" - отметил строки на которые ругается VBA.
Подскажите как исправить?

[Iskin]

Private Declare PtrSafe Function

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