Как прекратить(отменить ) выполнение функции.

Можно ли в прицпепе остановить функциию ?
Function Item_Send()

End Function

есть условие, если оно выполняется..то функция идет себе дальше, а если нет..то по идеи она должна отменяться..
1) пробовал Exit Function -как то не очень помогло
2) на goto ругается безбожно...

на goto скорее всего ругается потому, что ты, на верное, ничего не даёшь в данном случае на выход.
Это же функция пользователя? следовательно результат обработки должен быть хоть какой-то. Дай его.

Exit Function как раз для выхода из функции. Другое дело, если вам нужно чтобы функция не всегда срабатывала. Если

Цитата lord88 @ 06.05.08, 11:22

Exit Function -как то не очень помогло

, то - подозреваю - вам нужно Boolean-переменную уровня модуля и что-нибудь типа:

Public flag as boolean
 
Function MyFunction()
  if flag = false then
    ...

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

ругается...на

 Public flag as boolean

если ставлю перед функцией то он предпологает окончание инструкции ...???
если же помещаю в тело инструкции то ругается на синтаксис....

в чем может быть загвоздка?

То есть все-таки Exit.
Покажите как написан ваш код

К слову: переменные уровня модуля ставятся в самое начало модуля, до всех процедур, так же как и Public-переменная не может находиться в процедуре - поэтому у вас и ошибку выдавало. Но это проехали

даже если ставлю в самое начало модуля, то все равно выводит "предполагается наличие окончания инструкции"
какую ему инструкцию так и на пойму. В страшных глубинах инета нашел как остановить отсылку..за это отвечает Item_Send = False, а если писать Exit то получается парадокс...выходя из функции отправки сразу же письмо уходит


пол дня мучился. оператор If не работал.. а начал писать ответ все заработало:)) ура,ура,ура)))
вот рабочий вариант)

 
Function Item_Send()
Dim ints
Dim a
Dim b
Set Myitem = Item.GetInspector ' ссылаюсь на CheckBox1 во вкладке Сообщение
Set pgs = Myitem.ModifiedFormPages
Set pg = pgs("Сообщение")
Set ctls = pg.Controls
Set ctl = ctls("CheckBox1")
 
If ctl.Value = True Then a=b Else Item_Send = False And ints = MsgBox("требуется подтверждение", 32, " требуется подтверждение")
End Function

Сообщение отредактировано: Old Bat - 07.05.08, 16:32