есть модуль, нужно запустить его с кнопки в форме, как это сделать

vmag,да, там есть функция внутри, как ее запустить?)

vmag,Function KLfilter()
On Error GoTo KLfilter_Err

With CodeContextObject
If (.LVybor <> "") Then
TempVars.Add "PeremennaiaL", .LVybor
Else
TempVars.Add "PeremennaiaL", "*"
End If
If (.NVybor <> "") Then
TempVars.Add "PeremennaiaN", .NVybor
Else
TempVars.Add "PeremennaiaN", "*"
End If
If (.IS510Vybor <> "") Then
TempVars.Add "PeremennaiaIS510", .IS510Vybor
Else
TempVars.Add "PeremennaiaIS510", "*"
End If
If (.IS520Vybor <> "") Then
TempVars.Add "PeremennaiaIS520", .IS520Vybor
Else
TempVars.Add "PeremennaiaIS520", "*"
End If
If (.IS530Vybor <> "") Then
TempVars.Add "PeremennaiaIS530", .IS530Vybor
Else
TempVars.Add "PeremennaiaIS530", "*"
End If
If (.R1Vybor <> "") Then
TempVars.Add "PeremennaiaR1", .R1Vybor
Else
TempVars.Add "PeremennaiaR1", "*"
End If
If (.R2Vybor <> "") Then
TempVars.Add "PeremennaiaR2", .R2Vybor
Else
TempVars.Add "PeremennaiaR2", "*"
End If
DoCmd.SetFilter "", "([L] Like [TempVars]![PeremennaiaL] And [N] Like [TempVars]![PeremennaiaN] And [IS510] Like [TempVars]![PeremennaiaIS510] And [IS520] Like [TempVars]![PeremennaiaIS520] And [IS530] Like [TempVars]![PeremennaiaIS530] And [R1] Like [TempVars]![PeremennaiaR2] And [R2] Like [TempVars]![PeremennaiaR2])", ""
End With


KLfilter_Exit:
Exit Function

KLfilter_Err:
MsgBox Error$
Resume KLfilter_Exit

End Function




\\\вот то что в модуле я прописал

vmag,
Private Sub CommonFilter_Click()
Dim v As Variant
v = KLfilter()
Call KLfilter
End Sub

выдает ошибку :
ambiguous name detected:~

vmag,
Private Sub CommonFilter_Click()
Dim v As Variant
v = KLfilter()
Call KLfilter
End Sub

заменил Private на Public, ошибок не выдает, но и фильтр не работает

__Michelle, был макрос в 2010 я пробразовал его в модуль, для того чтобы потом при помощи этого модуля запустить этот макрос в 2007. Я не могу понять как его запустить модулем( функцией)

vmag,читаю) http://www.lessons-tva.info/articles/informat/29.html
не могли бы объяснить принципиальную разницу между процедурами и функцией?)

ПЕНСИОНЕРКА,на сколько я понимаю у меня осталась одна перемнная T1, тогда у меня не получится сделать раздельное фильтрование. Если я увеличу кол-во Т1, то тогда раздельная фильтрация сохранится?

Retvisan,TempVars.Add T1, "true" на это ругается
label not difined

Michelle,если делать так, то запускается макрос, он мне не нужен, мне нужна функция в модуле) модуль же появился после преобразования макроса,просто напрсто в построителе макроса ограничено кол-во символов, я переделила немного функцию и теперь мне нужно ее запустить с кнопки)))

ПЕНСИОНЕРКА,вот моя кнопка
Private Sub CommonFilter_Click()
Dim v As Variant
v = KLfilter()
Call KLfilter
End Sub

выдает ошибку :
ambiguous name detected:~

все равно эта фигня выскакивает теперь

__Michelle,как мне казалось в свойствах кнопки нельзя вызвать функцию?) по краней мере удалив макрос, я никак не могу вызвать модуль или функцию