ник: Santares
Источник данных должен ориентироваться на функцию возвращающую значение переменной.
Примерно так:
Источник данных формы (ГРУБО):
SELECT * FROM orOrders WHERE OrderID=fVar("Order")
|
Хде функция fVar() возвращает значение переменной в условие отбора ЗАПРОСА.
В модуле должно быть что то вроде (скопировал из готового проекта):
Public ADefCurr As String 'Валюта по умолчанию
Public APart As String
Public AStore As String
Public ACrGroup As Long
Public ADiscount As String
Public AClient As Long
Public ACar As Long
Public AOrder As Long 'Он же активная заготовка (сохраненная память для заказа)
Public APay As Long 'Орлата по заказу
Public ARec As Long 'Запись по заказу или другая запись
Public ASupplier As String
Public AORTS As Long 'Заказ к ПОСТАВЩИКУ
Public AIFS As Long 'Приход от ПОСТАВЩИКА
Public Function fVar(wReturn As String) As Variant
'Возвращает значение переменных для условий отбора в запросах
' Где wReturn - название переменной (условное)
Select Case wReturn
Case "DefCurr": fVar = ADefCurr
Case "CrGroup": fVar = ACrGroup
Case "Part": fVar = APart
Case "Store": fVar = AStore
Case "Order": fVar = AOrder
Case "Discount": fVar = ADiscount
Case "Client": fVar = AClient
Case "Car": fVar = ACar
Case "Pay": fVar = APay
Case "Rec": fVar = ARec
Case "Supplier": fVar = ASupplier
Case "ORTS": fVar = AORTS
Case "IFS": fVar = AIFS
Case "ODist": fVar = AODist
Case Else: fVar = 0
End Select
End Function [code]
|