Akina
__MichelleПосмотрите, пожалуйста, есть ли ошибка в моих "изысканиях"?
Поскольку мы не знаем "начинки", трудно искать ошибку.
Я, например, попробовал то же самое, но на другом коде (при той же структуре таблицы, значение поля А строго больше нуля):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Public Function Counter(Reset As Long, ParamArray args()) As Long
Static CallsCount As Long
Select Case Reset
Case 0
CallsCount = 0
Case -1
Counter = CallsCount
Case Else
CallsCount = CallsCount + 1
Counter = Reset
End Select
End Function
Sub test()
Dim rs As Recordset
Dim tmp As Long
tmp = Counter(0)
Set rs = CurrentDb.OpenRecordset("SELECT A,B,Counter(A,B) FROM [Таблица1] WHERE Counter(A,B)>0 ORDER BY Counter(A,B);")
Debug.Print "Calls Count ="; Counter(-1)
tmp = Counter(0)
Set rs = CurrentDb.OpenRecordset("SELECT * FROM (SELECT A,B,Counter(A,B) AS C FROM [Таблица1] WHERE Counter(A,B)>0) AS T ORDER BY C;")
Debug.Print "Calls Count ="; Counter(-1)
tmp = Counter(0)
Set rs = CurrentDb.OpenRecordset("SELECT * FROM (SELECT A,B,Counter(A,B) AS C FROM [Таблица1]) AS T WHERE C>0 ORDER BY C;")
Debug.Print "Calls Count ="; Counter(-1)
tmp = Counter(0)
rs.Close
End Sub
Вызов функции выполняется дважды на количестве записей в таблице до 100 тыс. для всех трёх версий запроса.
Как интерпретировать - пока не понимаю. Но есть подозрение, что пользовательская функция просто считается безусловно недетерминированной.
1. Да, действительно, считает дважды для каждой записи.
Но так считает только, если открывать рекордсет - только для WHERE и ORDER BY.
2. Если же открывать аналогичный сохраненный запрос, то посчитает трижды для каждой записи - для WHERE, ORDER BY и SELECT.
Если при этом открытый запрос перекрыть другим окном, то при возвращении в окно запроса пересчитает еще по разу для каждой видимой записи.
И так каждый раз.
При закрытии запроса опять пересчитает еще по разу для каждой видимой записи.
3. Если же присваивать аналогичный RecordSource ленточной форме, то посчитает дважды для всех записей (для WHERE и ORDER BY) + столько раз, сколько записей видно (для SELECT).
В форме тоже, как и в открытом запросе, постоянно пересчитывает, если форма не видна/видна.
Какая-то погибель.)))
