ник: Дядя Федор
Альтернатива глобальным переменным - коллекции
Public Function Param(name As String, Optional Val)
Static ParamCol As New Collection
On Error Resume Next
Param = Null
Param = ParamCol(name)
If IsMissing(Val) Then Exit Function
ParamCol.Remove name
If Not IsNull(Val) Then ParamCol.Add Val, name
End Function
' Установка паpаметpов:
' Param "ID", 1000014
' Param "D", Date
' DoCmd.OpenReport ...
' Использование в запpосе:
' SELECT ... WHERE ID=Param("ID") AND Дата<Param("D")
' Использование в коде:
' a = param("ID")
|
Совет из БД Егорова. Автор неизвестен. Я использую. Очень эффективно.
По быстродействию - коллекции очень подходят.
Я их использую даже вместо рекордседов иногда. Выигрыш в разы.