Есть ли в этом смысл? - Microsoft Office Access

raytek · 03.04.2013, 22:45

Доброго времени суток! Подскажите пожалуйста, есть ли смысл менять одну конструкцию:

Код:

If (Me!Вид = "Т") And (Me!Клас = "1") Then
    Me!фЗаводские_данные.SourceObject = "ф_Т1"
ElseIf (Me!Вид = "В") And (Me!Клас = "2") Then
    Me!фЗаводские_данные.SourceObject = "ф_Т2"
ElseIf (Me!Вид = "Т") And (Me!Клас = "3") Then
    Me!фЗаводские_данные.SourceObject = "ф_Т3"
ElseIf (Me!Вид = "Ф") And (Me!Клас = "2") Then
    Me!фЗаводские_данные.SourceObject = "ф_Т4"
ElseIf (Me!Вид = "Т") And (Me!Клас = "6") Then
    Me!фЗаводские_данные.SourceObject = "ф_Т5"
Else
    Me!фЗаводские_данные.SourceObject = "ф_Т6"
End If

на другую:

Код:

V = Me!ВидОборудования
K = Me!КласНапряжения
If (V = "Т") And (K = "1") Then
    Me!фЗаводские_данные.SourceObject = "ф_Т1"
ElseIf (V = "В") And (K = "2") Then
    Me!фЗаводские_данные.SourceObject = "ф_Т2"
ElseIf (V = "Т") And (K = "3") Then
    Me!фЗаводские_данные.SourceObject = "ф_Т3"
ElseIf (V = "Ф") And (K = "2") Then
    Me!фЗаводские_данные.SourceObject = "ф_Т4"
ElseIf (V = "Т") And (K = "6") Then
    Me!фЗаводские_данные.SourceObject = "ф_Т5"
Else
    Me!фЗаводские_данные.SourceObject = "ф_Т6"
End If

Андрэич · 03.04.2013, 23:18

А вы как сами думаете, почему сейчас (в 21 веке) считается более трудозатратным скриптовать на Ассемблере, чем на VBA? Зачем вообще нужны переменные?

shanemac51 · 03.04.2013, 23:25

лично я меняю длинные переменные на короткие достаточно часто
--нагляднее код при наличии сложных условий, которые не влезают в строку редактора
--проверка на NULL

Код:

DIM V AS string
dim k as string
V = "" &Me!ВидОборудования
K = "" &Me!КласНапряжения

Андрэич · 03.04.2013, 23:30

ElseIf (V = "Т") And (K = "3") Then
Me!фЗаводские_данные.SourceObject = "ф_Т3"
ElseIf (V = "Ф ")And (K = "2") Then
Me!фЗаводские_данные.SourceObject = "ф_Т4"
ElseIf (V = "Т") And (K = "6") Then
Me!фЗаводские_данные.SourceObject = "ф_Т5"
Else
...
Зачем и для кого Аристотель придумывал логику???

Андрэич · 03.04.2013, 23:39

-----------------------------------

Андрэич · 03.04.2013, 23:42

Короче говоря, я сам запутался в этой портянке...

raytek · 03.04.2013, 23:43

Извените, я не программист, если я заменю, будет выигрыш в скорости обработки?

raytek · 03.04.2013, 23:50

Цитата:

Сообщение от raytek

Извените, я не программист, если я заменю, будет выигрыш в скорости обработки?

поменять

If (Me!Вид = "Т") And (Me!Клас = "1") Then

на

V = Me!Вид
K = Me!Клас
If (V = "Т") And (K = "1") Then

Андрэич · 03.04.2013, 23:50

Цитата:

Сообщение от raytek

я не программист

Во-первых, не надо быть программистом, чтобы содержать свои вещи в порядке. А когда им станете, будете чесать голову, что я имел в виду... (Пишете осмысленный код - значит уже программист, без скидок...)

Будет. Сколько у вас обрабатывается записей? При современных мощностях, наверное, даже не заметите...

Андрэич · 03.04.2013, 23:54

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

03.04.2013, 23:18	#2
Андрэич Форумчанин Регистрация: 20.05.2012 Сообщений: 311	А вы как сами думаете, почему сейчас (в 21 веке) считается более трудозатратным скриптовать на Ассемблере, чем на VBA? Зачем вообще нужны переменные? Последний раз редактировалось Андрэич; 03.04.2013 в 23:21.

03.04.2013, 23:25	#3
shanemac51 Участник клуба Регистрация: 12.08.2010 Сообщений: 1,077	лично я меняю длинные переменные на короткие достаточно часто --нагляднее код при наличии сложных условий, которые не влезают в строку редактора --проверка на NULL Код: `DIM V AS string dim k as string V = "" &Me!ВидОборудования K = "" &Me!КласНапряжения` Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни Сфера интересов--word-excel-access-распознавание

03.04.2013, 23:30	#4
Андрэич Форумчанин Регистрация: 20.05.2012 Сообщений: 311	ElseIf (V = "Т") And (K = "3") Then Me!фЗаводские_данные.SourceObject = "ф_Т3" ElseIf (V = "Ф ")And (K = "2") Then Me!фЗаводские_данные.SourceObject = "ф_Т4" ElseIf (V = "Т") And (K = "6") Then Me!фЗаводские_данные.SourceObject = "ф_Т5" Else ... Зачем и для кого Аристотель придумывал логику??? Последний раз редактировалось Андрэич; 03.04.2013 в 23:37.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
есть ли смысл изучать	visual user	Microsoft Office Excel	5	12.06.2012 10:57
HTML5 и старые браузеры. Есть ли смысл поддерживать?	dem66	HTML и CSS	23	30.04.2012 11:10
CVS Mercurial и SFTP - есть смысл?	RebOOter	Софт	0	21.07.2011 04:29
Российская ОС. Есть ли смысл?	mrChester	Свободное общение	39	30.07.2010 17:25

03.04.2013, 23:39	#5
Андрэич Форумчанин Регистрация: 20.05.2012 Сообщений: 311	-----------------------------------

03.04.2013, 23:42	#6
Андрэич Форумчанин Регистрация: 20.05.2012 Сообщений: 311	Короче говоря, я сам запутался в этой портянке...

03.04.2013, 23:43	#7
raytek Пользователь Регистрация: 07.11.2011 Сообщений: 67	Извените, я не программист, если я заменю, будет выигрыш в скорости обработки?

03.04.2013, 23:54	#10
Андрэич Форумчанин Регистрация: 20.05.2012 Сообщений: 311	Где это возможно, в процедуре (функции) - лучше использовать переменные (хотя бы потому, что и удобнее, и читабельнее...)