ник: Lukas
Можно так:
'в модуле
Private strAvto As String
Public Property Get Avto() As String
Avto = strAvto
End Property
Public Property Let Avto(ByVal NewValue As String)
strAvto = NewValue
End Property
'проверка в отладчике:
Avto = "Ваз"
?Avto()
Ваз
В запросе:
...Where [Автомобили Хозяйства].[Марка автомобиля]=Avto()...
|
При сбросе проекта в результате необработанной ошибки значения переменных слетают в дефолтные.
Можно использовать скрытую форму для хранения в ее полях значений для запросов.