Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.07.2015, 11:04   #1
ds102061
Новичок
Джуниор
 
Регистрация: 21.07.2015
Сообщений: 1
Восклицание Выбор данных из списка

Дана форма, на ней два комбобкса :первый - это подразделения,второй - работники.
Как сделать чтобы при выборе определенного подразделения выбирался соответствующий работник.

Код:
Public Sub UserForm_Activate()
    
    If cmbManfac.ListCount <= 0 Then
    If Not rs Is Nothing Then If rs.State Then rs.Close
    
    cmbManfac.AddItem "*"
    StrSql = " SELECT DISTINCT usotr.usotr_manfac " & _
             " FROM zeie:maxmast.usotr usotr"
    Set rs = dbdll.rec(client, Forward, StrSql)
     Do While Not rs.EOF
        cmbManfac.AddItem Trim(rs!usotr_manfac)
        DoEvents
        rs.MoveNext
    Loop
    cmbManfac = g_Manfac
'-------------------
    
    cmbTabN.AddItem "*"
    StrSql = " SELECT DISTINCT usotr.usotr_tabnum, usotr.usotr_fio " & _
             " FROM zeie:maxmast.usotr usotr"
    Set rs = dbdll.rec(client, Forward, StrSql)
    Do While Not rs.EOF
        cmbTabN.AddItem Trim(rs!usotr_tabnum) & " - " & Trim(rs!usotr_fio)
        DoEvents
        rs.MoveNext
        cmbTabN = g_TabN
    Loop
  End If

End Sub
это так выглядит у меня пока, выводит весь список рабочих
ds102061 вне форума Ответить с цитированием
Старый 22.07.2015, 14:03   #2
Кардаган
Форумчанин
 
Регистрация: 07.07.2015
Сообщений: 121
По умолчанию

КРОСС: http://www.excelworld.ru/forum/10-18386-1
Кардаган вне форума Ответить с цитированием
Старый 22.07.2015, 14:39   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от Кардаган Посмотреть сообщение
не считаю это нарушением.
Автор топика по правилам форума не должен создавать кросспосты (дубликаты) в пределах одного данного форума, всё что он делает за пределами - его личное дело. Пусть хоть на 200 форумах один и тот же вопрос задаст.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 22.07.2015, 15:06   #4
Кардаган
Форумчанин
 
Регистрация: 07.07.2015
Сообщений: 121
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
не считаю это нарушением.
Я тоже не считаю. Но считаю нужным предупредить отвечающих, чтобы не тратили своё время попусту. Или я не прав?
Кардаган вне форума Ответить с цитированием
Старый 22.07.2015, 15:23   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Сообщение от Кардаган Посмотреть сообщение
Но считаю нужным предупредить отвечающих, чтобы не тратили своё время попусту. Или я не прав?
да нет, возможно, это кому-то будет полезным.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 22.07.2015, 21:41   #6
Кардаган
Форумчанин
 
Регистрация: 07.07.2015
Сообщений: 121
По умолчанию

Цитата:
Сообщение от Xristian Посмотреть сообщение
Что плохого в том, что ищешь решение проблемы на нескольких площадках?
Плохого ничего, но если один и тот же юзер "сидит" на разных форумах, то зачем ему дважды отвечать на один и тот же вопрос?
Кардаган вне форума Ответить с цитированием
Старый 23.07.2015, 22:54   #7
ShAM66
Форумчанин
 
Регистрация: 24.02.2012
Сообщений: 160
По умолчанию

Цитата:
Сообщение от Xristian Посмотреть сообщение
Что плохого в том, что ищешь решение проблемы на нескольких площадках?
Плохого, наверное, нет, но отписаться, что (по ссылке) решение получено все же стоило бы!
ShAM66 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать на языке С++ описание данных для хранения списка и подпрограмму получения списка Т копированием в него элементов vikulyok Помощь студентам 0 12.05.2014 12:52
Java выбор из списка bikk Помощь студентам 0 26.03.2013 20:58
Выбор из списка Verano naranjo Microsoft Office Excel 2 12.05.2010 12:17
Выбор отчета из списка Fezdipekla Microsoft Office Access 1 06.05.2010 21:06
Выбор из списка YOOHOOO Microsoft Office Excel 1 17.03.2010 12:12