Function(null) не работает

Добрый день.
В запросе имеется столбец: Выражение1: Функция(значение_поля)


Public Function Функция(Переменная As String)

If IsNull(Переменная ) Then
Функция= "НЕОПРЕДЕЛЕНО"
ElseIf Переменная = "" then
Функция= "НЕОПРЕДЕЛЕНО"
ElseIf Переменная Like "1*" then
Функция= "НАЧИНАЕТСЯ НА 1"
ElseIf .........................
End function

Если в функцию передать пустую строку, она выдаёт ошибку. Как её научить "проглатывать" null?

svintus

Как её научить "проглатывать" null?

Optional <...> As String

proposed amendment

svintus Как её научить "проглатывать" null? Optional <...> As String

думаете поможет?
Переменная As Variant

Не помогло. Выдаёт #Ошибка

Старый ворчун

proposed amendment svintus Как её научить "проглатывать" null? Optional <...> As String думаете поможет? Переменная As Variant

Заработало! спасибо большое!

я бы написал так

If Nz(Переменная, "") = "" Then
    Функция = "НЕОПРЕДЕЛЕНО"
ElseIf Переменная Like "1*" Then
    Функция = "НАЧИНАЕТСЯ НА 1"
ElseIf .........................
End Function

dimichis

я бы написал так If Nz(Переменная, "") = "" Then

Чем вам IsNull не нравится?
Это более универсальное решение, так как IsNull есть и в VB, и в VBA.
Да и зачем сравнивать строки ...

dimichis

я бы написал так If Nz(Переменная, "") = "" Then Функция = "НЕОПРЕДЕЛЕНО" ElseIf Переменная Like "1*" Then Функция = "НАЧИНАЕТСЯ НА 1" ElseIf ......................... End Function

Тогда налл и пустая строка будут обрабатываться одинаково. Оно нам надо?