Как назначить значения переменным, в цикле

@sana555 · Регистрация: 02.03.2016

Author24 — интернет-сервис помощи студентам

Имеется куча однотипных логических переменных. В процедуре этим переменным присваиваются true/false, из таблицы. Как автоматизировать данный процесс, чтобы при этом сохранилась возможность обращаться к этим переменным по имени, а не таким образом - arr(35) (в случае использования массива)?

~~Shersh~~ · 28.11.2016, 09:06

sana555, а зачем?
Массивы для того и задуманы - облегчать работу с кучей однотипных переменных.

@sana555 · 28.11.2016, 09:16 **[ТС]**

Вот много переменных:

Visual Basic

Public Переменная01 As Boolean
Public Переменная02 As Boolean
Public Переменная03 As Boolean
Public Переменная04 As Boolean
.... и т.д.

Идет присвоение значений

Visual Basic

Public Sub НазначитьПраваДоступа1()
Переменная01 = DLookup("[Переменная01]", "UserAccess", "[КодДоступа] =" & Forms![Вход]![Логин].Column(9))
Переменная02 = DLookup("[Переменная02]", "UserAccess", "[КодДоступа] =" & Forms![Вход]![Логин].Column(9))
Переменная03 = DLookup("[Переменная03]", "UserAccess", "[КодДоступа] =" & Forms![Вход]![Логин].Column(9))
Переменная04 = DLookup("[Переменная04]", "UserAccess", "[КодДоступа] =" & Forms![Вход]![Логин].Column(9))
.... и т.д.
End Sub

Далее в каждой отдельной процедуре идет обращение к конкретной переменной:

Visual Basic

Sub XMLПроцедура1(control As IRibbonControl, ByRef enabled)
    enabled =Переменная01
End Sub
 
Sub XMLПроцедура2(control As IRibbonControl, ByRef enabled)
    enabled =Переменная02
End Sub
.... и т.д.

Откуда мне знать что Переменная01 = arr(0)

Visual Basic

1	enabled =arr(0)

@Hugo121 · 28.11.2016, 09:38

И чем тут не подходит Public Переменная(1 To 100) As Boolean?

@sana555 · 28.11.2016, 09:48 **[ТС]**

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

И чем тут не подходит public Переменная()?

, да она то подходит, просто в процессе работы, в свою базу добавляю новые кнопки, поэтому во всех местах нужно добавлять новые переменные и присвоение делать, плюс в отдельной процедуре назначить еще для всех false (и еще их много до 50шт.). А еще, как удобно, в новую базу пришел (с другими кнопками), немножко подправил и готово. Собственно, все это для автоматизации..

@Hugo121 · 28.11.2016, 09:58

Так сделайте массив с запасом в пару тысяч и забудьте про добавление переменных.

SoftIce · 28.11.2016, 10:00

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

Visual Basic

1
2
3

Sub XMLПроцедура1(control As IRibbonControl, ByRef enabled) 
enabled =Переменная01
 End Sub

У Вас на каждый элемент ленты по такой процедуре так и останется?

@sana555 · 28.11.2016, 10:03 **[ТС]**

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

У Вас на каждый элемент ленты по такой процедуре так и останется?

Да.

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

Так сделайте массив с запасом в пару тысяч и забудьте про добавление переменных.

В том то и загвоздка... Я не знаю как обратиться к конкретному элементу массива...

SoftIce · 28.11.2016, 10:17

Попробуйте так

Visual Basic

Const countN As Integer = 100 'размер массива задаем в одном месте
Public Переменная(1 To countN) As Boolean
 
Public Sub НазначитьПраваДоступа1()
    Dim i As Integer
    For i = 1 To countN
      Переменная(i) = DLookup("[Переменная" & i & "]", "UserAccess", "[КодДоступа] =" & Forms![Вход]![Логин].Column(9))
    Next i
End Sub
 
Sub XMLПроцедура1(control As IRibbonControl, ByRef enabled)
    enabled = Переменная(1)
End Sub
 
Sub XMLПроцедура2(control As IRibbonControl, ByRef enabled)
    enabled = Переменная(2)
End Sub

Добавлено через 3 минуты

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

плюс в отдельной процедуре назначить еще для всех fals

Visual Basic

Public Sub sanaFalse()
    Dim i As Integer
    For i = 1 To countN
      Переменная(i) = False
    Next i
End Sub

@sana555 · 28.11.2016, 10:27 **[ТС]**

Да, спасибо, ваш вариант рабочий, но... Я виноват, что не написал сразу, что все переменные у меня разные по имени..
У меня логика сейчас такая, имена кнопок равняются именам переменным:

Visual Basic

Sub XMLНовоеПоступление(control As IRibbonControl, ByRef enabled)
    enabled =НовоеПоступление
End Sub
 
Sub XMLПоступления(control As IRibbonControl, ByRef enabled)
    enabled =Поступления
End Sub

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

Visual Basic

1 2	Public НовоеПоступление As Boolean Public Поступления As Boolean

Ну и, соответственно, присваиваю им значения...
Просто, как мне кажется, я быстрее понимаю какой именно кнопке идет присвоение, а то поди ка разберись что там за кнопка под именем Переменная56...

SoftIce · 28.11.2016, 10:57

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

что там за кнопка под именем Переменная56

А так

Visual Basic

Public Переменная() As Boolean, i As Integer
 
Public Sub НазначитьПраваДоступа1()
    Dim s
    s = Array("Поступления", "Новое поступление", "Старое поступление")
    ReDim Переменная(1 To UBound(s) + 1)
    For i = 1 To UBound(Переменная)
      Переменная(i) = DLookup(s(i - 1), "UserAccess", "[КодДоступа] =" & Forms![Вход]![Логин].Column(9))
    Next i
End Sub

@sana555 · 28.11.2016, 11:17 **[ТС]**

Получается в данном случае в процедуре, как не крути нужно обращаться к Переменная(1)?

Visual Basic

1
2
3

Sub XMLНовоеПоступление(control As IRibbonControl, ByRef enabled)
    enabled =Переменная(1)
End Sub

п.с. Я тоже до этого копал в этом направлении, мой вариант не правильный?

Visual Basic

Public Arr, i
Arr = Array("НовоеПоступление", "Поступления", "НоваяРеализация", "Реализации", "ПоискРеализации", "НовыйПоставщик", _
                "Поставщики", "НовыйКлиент", "Клиенты", "КлиентыПокупки", "ДеньРождения", "Продавцы", _
                "ПродавцыПродажи", "МоиПродажи", "Расходы", "СтатистикаПродаж", "ExitAccess", "СменаПользователя", _
                "СменаПароля", "НовыйПользователь", "Пользователи", "НовыйСотрудник", "Сотрудники", "Зарплата", _
                "Справочники", "GroupСлужебные", "ПанельАдмина", "Szhatie", "VisualBasic")
 
For i = 0 To UBound(Arr)    'Цикл по массиву имен
    Arr(i) = DLookup(Arr(i), "UserAccess", "[КодДоступа] =" & Forms![Вход]![Логин].Column(9))
    Debug.Print i, Arr(i)
Next

@sana555 · 30.11.2016, 14:03 **[ТС]**

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

Попробуйте так

Поэкспериментировав, все же выбрал именно этот первый вариант, он более надежен: имя переменной соответствует имени поля таблицы, поскольку если удалить(либо поменять местами имена в массиве имен), то переменная будет соответствовать уже другому полю в таблице.
Благо есть поле описание в таблице, где делаю пометку для чего данная переменная. Ленту создаю в Ribbon XML Editor, где Id нужного элемента ленты, присваиваю имя соответствующей переменной (что в свою очередь исключает появление дублей в xml), плюс есть возможность скопировать готовый код с комментами, в которых как раз и есть нужная переменная.. Так что спасибо..

Visual Basic

'Acces1 (компонент: button, атрибут: onAction), 2010/2013/2016
Sub XMLНовоеПоступление(control As IRibbonControl)
    DoCmd.OpenForm "НовоеПоступление"
End Sub
 
'Acces1 (компонент: button, атрибут: getEnabled), 2010/2013/2016
Sub XMLНовоеПоступление1(control As IRibbonControl, ByRef enabled)
    enabled = Acces(1)
End Sub

@sana555 430 / 38 / 1 Регистрация: 02.03.2016 Сообщений: 436
		1
	Как назначить значения переменным, в цикле 28.11.2016, 08:41. Показов 5830. Ответов 12 Метки нет (Все метки) Имеется куча однотипных логических переменных. В процедуре этим переменным присваиваются true/false, из таблицы. Как автоматизировать данный процесс, чтобы при этом сохранилась возможность обращаться к этим переменным по имени, а не таким образом - arr(35) (в случае использования массива)? 0

~~Shersh~~ Заблокирован
	28.11.2016, 09:06	2
	sana555, а зачем? Массивы для того и задуманы - облегчать работу с кучей однотипных переменных. 1

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	28.11.2016, 09:38	4
	И чем тут не подходит Public Переменная(1 To 100) As Boolean? 1

@sana555 430 / 38 / 1 Регистрация: 02.03.2016 Сообщений: 436
	28.11.2016, 09:48 [ТС]	5
	Сообщение от Hugo121 И чем тут не подходит public Переменная()? , да она то подходит, просто в процессе работы, в свою базу добавляю новые кнопки, поэтому во всех местах нужно добавлять новые переменные и присвоение делать, плюс в отдельной процедуре назначить еще для всех false (и еще их много до 50шт.). А еще, как удобно, в новую базу пришел (с другими кнопками), немножко подправил и готово. Собственно, все это для автоматизации.. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	28.11.2016, 09:58	6
	Так сделайте массив с запасом в пару тысяч и забудьте про добавление переменных. 0

@sana555 430 / 38 / 1 Регистрация: 02.03.2016 Сообщений: 436
	28.11.2016, 10:03 [ТС]	8
	Сообщение от SoftIce У Вас на каждый элемент ленты по такой процедуре так и останется? Да. Сообщение от Hugo121 Так сделайте массив с запасом в пару тысяч и забудьте про добавление переменных. В том то и загвоздка... Я не знаю как обратиться к конкретному элементу массива... 0