Добрый день.
Вызываю в процедуре функцию, передаю ей параметр - не работает.
Останавливаю функцию - параметр передается, но не отрабатывается. Уходит все время на True.
Причем если задавать параметр текстовым, то все работает. Если тип любой другой - не работает.
Что делаю не так?

Option Compare Database
Option Explicit
Dim Color_FT As Boolean

Private Sub FT_OD_1_Enter()
Color_FT = True 
Call ColorFT(Color_FT)
End Sub

Private Sub FT_OD_2_Enter()
Color_FT = False
Call ColorFT(Color_FT)
End Sub

Public Function ColorFT(Color_FT As Boolean)
Select Case Color_FT
Case Color_FT = False
...
Case Color_FT = True
...
End Select
End Function

http://www.sql.ru/forum/1182776/ne-otrabatyvaetsya-parametr-v-funkcii