плин.
С утра хотел написать, что порвать ф-ю в вашем случае - это порвать запрос. Запрос для этого должен выполняться ассинхронно. (см хелп), т.е. процесс который долже его стопнуть должен мочь крутиться параллельно ему и вызвать его .Cancel . По крайней мере у запроса дожен быть такой метод. Кроме ODBC запросов что-то ничего такое не вспоминается.
поытка трбюков:
__
1. В джет можно переделать ф-ю так, как это делается для подсчета самопальных сумматоров (типа номера строки) - а именно добавить статик переменную и опциональный параметр. Запрос при этом выполняться после ошибки не перестанет, но можно сделать, чтобы после первой ошибки следующие строки не возвращались. (поместив в Where вашу же ф-ю, но с неким значением опционалого параметра, т, чтобы после ошибки она возвращала FALSE), в (или до) открытии отчета можно еще раз вызвать ф-ю, так, чтобы вычислить ее статик переменную. Если она покажет, что в запросе возникала ошибка, отчет можно не открывать.
Но оптимально в вашем случае - взять (Select count(*) From ... Left Join ... ON ... = curs.дата Where curs.дата IS NULL) до запроса (или в запросе - что несколько хуже), и не мучаться.
_____________
2. Есть еще возможность вызвать ошибку в Запросе. Но, к сожалению, если в явном виде err.Rase сделать в ф-ии, она не перехватится обработчиком ошибок вызвавшей исполняемый запрос ф-ии а выдаст вам запрос об отладке. Есть трюк - вызвать ошибку в самом запросе. В случае Insert Into это легко - если заставить запрос вставлять данные не того типа, или большего размера:
'__TEMP_ОПЕРАТОР (id, MyFun) - целые
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Public Function tryErr(code)
tryErr = 1
If code = 1000 Then
'err.Raise 666 'не выталкивается из запроса в обработчик ф-ии
tryErr = "Фих вам, а не барабан"
End If
End Function
Public Function TestErrQry()
Dim sSQl As String
On Error Resume Next
sSQl = "INSERt INTO __TEMP_ОПЕРАТОР ( id, MyFun ) SELECT tabl.id, tryErr([id]) AS MyFun FROM tabl ;"
CurrentDb.Execute sSQl, dbFailOnError
If err <> 0 Then
MsgBox err.Description
End If
err.Clear
sSQl = "INSERt INTO __TEMP_ОПЕРАТОР ( id, MyFun ) SELECT tabl.id, tryErr([id]) AS MyFun FROM tabl WHERE id<>1000;"
CurrentDb.Execute sSQl, dbFailOnError
If err <> 0 Then
MsgBox err.Description
Else
MsgBox "Ok!"
End If
End Function
