Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Работа с ACCESS в VBA (ComboBox)  (Прочитано 7588 раз)
0 Пользователей и 1 Гость смотрят эту тему.
stasya
Гость
« : 11-05-2010 17:01 » 

Привет всем!
у имеется два объекта ComboBox. Мне нужно чтобы при выборе строки из одного списка, второй формировался в зависимости от этого выбора.
 я написала програмку:

Код:
Private Sub Form_Load()
Set base = OpenDatabase("база.mdb")
Set rset1 = base.OpenRecordset("Таблица1")
Set rset2 = base.OpenRecordset("Select DISTINCT отдел From таблица1")
rset2.MoveFirst
 Combo1.Clear
    Do While Not rset2.EOF
  Combo1.AddItem rset2.Fields("отдел")
rset2.MoveNext
Loop
Combo1.Text = rset1.Fields("отдел")
End Sub

Private Sub Combo1_Click()
Text6.Text = Combo1.Text
Set rset3 = base.OpenRecordset("Select DISTINCT должность, отдел From должность where отдел = 'Text6.text'")

rset3.MoveFirst
 Combo2.Clear
    Do While Not rset3.EOF
  Combo2.AddItem rset3.Fields("должность")
  rset3.MoveNext
Loop
Combo2.Text = rset1.Fields("должность")
End Sub

Но выводится ошибка на строчке "rset3.MoveFirst"
Почему ошибка и как ее исправить?
ПОМОГИТЕ ПОЖАЛУСТА!!
« Последнее редактирование: 11-05-2010 18:03 от RXL » Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 11-05-2010 18:07 » new

stasya, во-первых, форматируй код - тогда он будет понятнее и не будет выглядеть мусором.

Это бред:
Код:
"Select DISTINCT должность, отдел From должность where отдел = 'Text6.text'"

Пиши так:
Код:
"Select DISTINCT должность, отдел From должность where отдел = '" & Text6.text & "'"

Но это потенциальная дырка, особенно если комбобокс позволяет редактировать текст. Т.ч. лучше делать через подстановки. Об этом читай в MSDN.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines