powered by simpleCommunicator - 2.0.43     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Накидайте идей по реализации задуманного.
13 сообщений из 88, страница 4 из 4
Накидайте идей по реализации задуманного.
    #40089442
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите код VBA что бы узнать имеются ли выделенные строки в ListBox.
Или это надо пробежать весь список и найти выделенные?
...
Рейтинг: 0 / 0
Накидайте идей по реализации задуманного.
    #40089490
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
час58,
Есть св-во SelectedIndex , если ничего не выбрано оно равно -1
Читайте на досуге
Учтите что ListBox VBA и VBA.net кое в чем,не значительно, отличаются
...
Рейтинг: 0 / 0
Накидайте идей по реализации задуманного.
    #40089497
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sdku,
да, отличаются. Я, было начал изучать оный. Но, за отсутствием необходимости в программах, забросил. Access к тому времени уже сносно знал. Да и сейчас знаю сносно. Потому как работаю в нём 1 раз в год или раз в три года. Забывается всё что читаю и знал.
Потому приходится спрашивать здесь у тех, кто часто или постоянно создаёт что-то в этой среде обитания.
:-)
...
Рейтинг: 0 / 0
Накидайте идей по реализации задуманного.
    #40089502
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Думаю список с множественным выбором
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim i, myN
For Each i In Me.Список4.ItemsSelected
myN = myN & "," & Me.список.ItemData(i)
Next
If myN= Empty Then
    msgbox "не выбрано"
Else
    msgbox "выбраны элементы: " &  Mid(myN, 2)  
End If
...
Рейтинг: 0 / 0
Накидайте идей по реализации задуманного.
    #40089511
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sdku,
Да. спасибо.
Я решил таким образом.
Иду до первого выделенного и считаю, что таковые имеются.
Значит можно перекидывать их.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Function IMEEM_SELEKT_ILI_NET() As Boolean
  Dim i As Integer

  IMEEM_SELEKT_ILI_NET = False
  
 For i = 0 To Me!VIBORKA.ListCount - 1
    If Me!VIBORKA.Selected(i) = True Then
          IMEEM_SELEKT_ILI_NET = True
          Exit For
    End If
 Next i

End Function
...
Рейтинг: 0 / 0
Накидайте идей по реализации задуманного.
    #40089552
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Me.Список4.ItemsSelected.count
...
Рейтинг: 0 / 0
Накидайте идей по реализации задуманного.
    #40089648
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
alecko, Спасибо!!!
...
Рейтинг: 0 / 0
Накидайте идей по реализации задуманного.
    #40089665
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
час58,
Цикл Each выдаст Вам индексы выделенных элементов(или выдаст сообщение,если ничего не выделено) по которым определяется значение кодового поля в таблице и производится перемещение выделенных записей, а список обновляется. Фсе...
...
Рейтинг: 0 / 0
Накидайте идей по реализации задуманного.
    #40089666
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sdku, :-))
Да!
...
Рейтинг: 0 / 0
Накидайте идей по реализации задуманного.
    #40089780
ldfanate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
час58,
авторУ них там бардак во всём и везде.
Потому товары валяются не пойми в каких группах.
И они хотят иметь возможность наводить порядок.
Тогда сразу надо закладывать журнал аудита действий "кто взял мою миску и съел её и переложил в свою кучку". Иначе будут перепирательства ресурсных отделов, перетягивания каната туда-сюда, и обвинения программиста что "всё не так".

А ещё лучше при наведении бардака в НСИ МТР - прописать процедуру выверки и подтверждения, чтобы позиция МТР, перемещённая в правильную категорию, получала какойто дополнительный статус "Проверена" и блокировалась для дальнейших переносов. И соответственно, только свой товарный отдел (или профильный сотрудник), ответственный за данную категорию, мог бы разблокировать и "отдать" свою выверенную позицию. Иначе хаос.
...
Рейтинг: 0 / 0
Накидайте идей по реализации задуманного.
    #40089837
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ldfanate,
Я у них не работаю. Мне их хаус как блок хаос.
А наводить им порядок, это уже слишком.
:-)))
Пусть купаются в этом ***** сами.
...
Рейтинг: 0 / 0
Накидайте идей по реализации задуманного.
    #40090947
ldfanate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
час58,
ну вы же сами попросили накидать идей))
Просто заказчики часто сами внятно не могут сформулировать, что хотят. А распределённое ведение такого объёмного НСИ как справочник МТР - это традиционное хождение по одним и темже вобщемто граблям (бусидо - путь самурая :-). Одними из которых какраз является структурирование классификаторов МТР.
У вас ещё лёгкий случай - всего один классификатор в виде дерева групп, а бывает что один федеральный, другой несколько перпендикулярный ему отраслевой/корпоративный, плюс по одному от каждого крупного контрагента-поставщика где по тем же граблям ходят другой тропой))
...
Рейтинг: 0 / 0
Накидайте идей по реализации задуманного.
    #40090959
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ldfanate,
Да, всё так.
:-)))
...
Рейтинг: 0 / 0
13 сообщений из 88, страница 4 из 4
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Накидайте идей по реализации задуманного.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]