Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
Топик располагается на нескольких страницах: Ctrl  назад   1 [2]      все
 Re: Переменная в операторе ветвления.  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1562
alecko,

Изначально, я не предполагал, что у них так часто будут меняться шапки на фуражки и появляться кепки...
залез в код, раз в год и заменил слова ассортимента.
Теперь вот надо исправлять свой промах.
Слишком много мест править приходится.
Хорошо, если это будет только в одном месте кода, которое подставляется в виде короткой и постоянной строчки типа (NABOR)в качестве условия отбора во все остальные места
23 ноя 18, 09:29    [21742374]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
Озверин
Member

Откуда: Ростов-на-Дону
Сообщений: 4787
час58
alecko,

Изначально, я не предполагал, что у них так часто будут меняться шапки на фуражки и появляться кепки...
залез в код, раз в год и заменил слова ассортимента.
Теперь вот надо исправлять свой промах.
Слишком много мест править приходится.
Хорошо, если это будет только в одном месте кода, которое подставляется в виде короткой и постоянной строчки типа (NABOR)в качестве условия отбора во все остальные места


почему бы не выносить всю эту информацию в базу? Зачем менять код? Сделайте им настройку, пусть сами выбирают.
23 ноя 18, 09:33    [21742377]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 3938
Озверин
Зачем менять код? Сделайте им настройку, пусть сами выбирают.
Картинка с другого сайта. А оплачиваемая поддержка?..
23 ноя 18, 09:43    [21742391]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
Озверин
Member

Откуда: Ростов-на-Дону
Сообщений: 4787
Панург
Озверин
Зачем менять код? Сделайте им настройку, пусть сами выбирают.
Картинка с другого сайта. А оплачиваемая поддержка?..


разработка стоит дороже, чем поддержка. Зачем тратить время на поддержку?
23 ноя 18, 09:49    [21742403]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1562
Озверин,

Поддержка, порой, длится годами....
23 ноя 18, 09:55    [21742418]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1562
спасибо всем за помощь.
Булевые рулят!
получилось так:

Функция :
Public Function FUN_NABOR_VIDOV_PAY(PAY_VIDS As String) As Boolean
'проверка принадлежности платежа
FUN_NABOR_VIDOV_PAY = False

Select Case PAY_VIDS

Case "Рога", "Копыта", "Справки", "шапки"
  FUN_NABOR_VIDOV_PAY = True
End Select

End Function


Во всех селектах - обращаемся к этой функции.

    Select Case FUN_NABOR_VIDOV_PAY(PAY_VIDS)
    
    Case True
     ' нужное
      FUN_NADA_KTI_YES_NO = True
    Case Else
    ' иное
      FUN_NADA_KTI_YES_NO = False
    End Select
23 ноя 18, 10:24    [21742447]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
Озверин
Member

Откуда: Ростов-на-Дону
Сообщений: 4787
час58, ад какой то ;)
23 ноя 18, 10:25    [21742449]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1562
Можно, конечно к этой функции обращаться и по
If ....

Главное, что менять значение строки теперь придётся в одном месте кода.
23 ноя 18, 10:27    [21742454]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1562
Озверин,

Спасибо.
23 ноя 18, 10:27    [21742455]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
Озверин
Member

Откуда: Ростов-на-Дону
Сообщений: 4787
час58
Озверин,

Спасибо.


 Select Case FUN_NABOR_VIDOV_PAY(PAY_VIDS)
    
    Case True
     ' нужное
      FUN_NADA_KTI_YES_NO = True
    Case Else
    ' иное
      FUN_NADA_KTI_YES_NO = False
    End Select


Я не понял, а почему бы просто не вернуть значение ф-ии FUN_NABOR_VIDOV_PAY(PAY_VIDS)? Зачем еще его в select-case загонять?
23 ноя 18, 10:35    [21742471]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1562
Озверин,

Да, ты прав.
Просто это вообще не то вышло, что я пытаюсь сделать.
:-)
Мне надо в многоветвевой отбор селектами, вставить одно из условий в виде
Case NABOR
заменив последовательность слов
 "Рога", "Копыта", "Справки", "шапки"

Одним словом NABOR.

Select Case VID

Case  NABOR
.....
Case  NABOR_1
....
Case  NABOR_2
....
 Case Else 
....
End Select
23 ноя 18, 10:45    [21742488]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
Озверин
Member

Откуда: Ростов-на-Дону
Сообщений: 4787
час58, так а зачем из одного select-case делать два?
чем вас не устраивает ситуация

select case 
 case "рога", "копыта"
 case "автомобили", "ковши"
end select
23 ноя 18, 10:50    [21742495]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 3938
час58, тебе же уже предложили нормальный (для этой ненормальной ситуации) вариант! Который с таблицей. Два поля "ключ-значение", дёргать длукапом или запросом.
23 ноя 18, 10:52    [21742500]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
Озверин
Member

Откуда: Ростов-на-Дону
Сообщений: 4787
час58, а откуда приходят эти рога и копыта?
23 ноя 18, 10:59    [21742513]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1562
Панург,
ты прав.
Этот вариант норм.
Только, конечно, без таблицы буду делать.
Просто шарики за ролики заскочили с этим авралом...
23 ноя 18, 11:12    [21742546]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 3938
час58
Этот вариант норм.
Только, конечно, без таблицы буду делать.
Это как?! Картинка с другого сайта.
23 ноя 18, 11:31    [21742575]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1562
Панург,

в ЛОБ.
в коде строки.
23 ноя 18, 11:35    [21742584]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
vmag
Member

Откуда: MP
Сообщений: 3103
час58
в ЛОБ.
в коде строки.


+

Летит тяжелый транспортный самолет в сопровождении двух истребителей.
Лететь долго, и пилотам истребителей стало скучно.
Ну и начали они вы@бываться друг перед другом:
мертвые петли крутят, виражи, восьмерки.
И тут в радиоэфир вклинивается пилот транспортника:
— А спорим, я сейчас сделаю то, чего вы на своих истребителях никогда не сможете.
— Ты? На своем беременном Ил-76, собрался тягаться с нами, лучшими асами страны?
Ну давай, удиви нас. Прошло десять минут, транспортник как летел ровно, так и летит.
Истребителям надоело ждать, и они вызывают пилота Ил-76:
— Ну и? Когда ты начнешь?
— Уже готово.
— И что же ты сделал того, что не можем мы?
— Сходил поссать и выпил кофе.
23 ноя 18, 15:54    [21743021]     Ответить | Цитировать Сообщить модератору
 Re: Переменная в операторе ветвления.  [new]
час58
Member

Откуда: г. Энгельс.
Сообщений: 1562
vmag,
:-)
23 ноя 18, 16:06    [21743046]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: Ctrl  назад   1 [2]      все
Все форумы / Microsoft Access Ответить