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

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,как мне казалось в свойствах кнопки нельзя вызвать функцию?) по краней мере удалив макрос, я никак не могу вызвать модуль или функцию

ПЕНСИОНЕРКА,

ПЕНСИОНЕРКА,

ПЕНСИОНЕРКА,не получается базу залить она 450 кб архивом весит, даже когда я ее сжал и все поудалял

__Michelle,

вот пример моей формы, фильтры я все включил на списках, как теперь сделать так чтобы фильтрация происходила как в экселе(т.е. независисмо) по тем спискам,что у меня есть

vmag,т9 жесток..)

\\\\,неплохо, но хотелось бы чтобы фильтровались данные так как было в изначальном файле, т.е. фибирая фамилию из списка выпадала именно она, а остальные фильтры не функционировали, если выберу два фильтра, то только они и т.д.

MrShin,

Но я же не могу одновременно фильтровать по имени и фамилии?

MrShin,

здесь только одно поле для выбора, как я могу выбрать еще фамилию
извините, что я такой тупой
можете порекомендовать литературу или еще что-то где это хоть как-то расписано с примерами?

я порылся на форму и нашел вот такую БД, как это можно реализовать без подчиненной формы? т.е. просто берем создаем ленточную форму из таблицы и фильтруем так как реализовано здесь? просто как только я начинаю использовать ComboRequery для поля со списком сразу начинает вылетать ошибка

\\\\,)) я понимаю, просто я не могу например разобраться почему у меня вылезает ошибка на ComboBox.Requery, когда я пытаюсь применить эту команду для поля со списком)