ник: Andrew
Или еще... Объявляем глобальную в пределах модуля переменную
Private Значение As variant
Функции
Public sub Set_Значение (varvalue as Variant)
Значение=varvalue
End sub
Public Function Get_Значение () as Variant
varvalue=Значение
End sub
А запрос вида "SELECT Count(Devices.ID_Device) AS CountOfID_Device " _
& "FROM Type RIGHT JOIN (Model RIGHT JOIN Devices ON Model.ID_Model = Devices.Link_Model) " _
& "ON Type.ID_Type = Model.Link_Type GROUP BY Type.Type " _
& "HAVING (((Type.Type)=Get_Значение()));"
т.е. перед вызовом запроса Set_Значение (213)
а запрос сам получит значение переменной