Ввод данных в combobox вручную

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
Cnoppiks
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 17.08.2005 (Ср) 17:52

Ввод данных в combobox вручную

Сообщение Cnoppiks » 28.09.2005 (Ср) 9:08

Доброго дня!!
Подскажите... Есть поле со списком combobox, у которого источником строк является одна строка таблицы. Нужно дать возможность ручного пополнения содержимого списка. Есть функция проверки notinlist,но я понимаю, она только для тех случаев, когда источник строк - список...Непонятно, помогите!!!

Млин, чего то много слов. Короче, подскажите, плиз, как осуществляется пополнение значений списка combobox вручную, если источник строк - таблица
Хочу все знать....

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Re: Ввод данных в combobox вручную

Сообщение lord0n » 28.09.2005 (Ср) 9:21

Cnoppiks писал(а):Доброго дня!!
Подскажите... Есть поле со списком combobox, у которого источником строк является одна строка таблицы. Нужно дать возможность ручного пополнения содержимого списка. Есть функция проверки notinlist,но я понимаю, она только для тех случаев, когда источник строк - список...Непонятно, помогите!!!

Млин, чего то много слов. Короче, подскажите, плиз, как осуществляется пополнение значений списка combobox вручную, если источник строк - таблица


при добавлении нового значения добавляешь его в базу и перезаносишь данные в комбо
у меня с листбоксом так реализовано
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

Cnoppiks
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 17.08.2005 (Ср) 17:52

Сообщение Cnoppiks » 28.09.2005 (Ср) 9:44

А проверять присутствие или отсутствие в списке введенного значения какой функцией? Т.е. как идентифицировать введенное пользователем значение?
Хочу все знать....

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 28.09.2005 (Ср) 9:47

Cnoppiks писал(а):А проверять присутствие или отсутствие в списке введенного значения какой функцией? Т.е. как идентифицировать введенное пользователем значение?


я по старинке, сделал через цикл
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

Cnoppiks
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 17.08.2005 (Ср) 17:52

Сообщение Cnoppiks » 28.09.2005 (Ср) 9:50

lord0n Спасиб за отклик.
Понятно, что через цикл можно. Но вот куда заносится введенное значение, к примеру, Me.combobox1. а дальше что? Т.е. что сравнивать с табличными данными?? Или иначе - как обратиться к введенному пользователем значению?
Хочу все знать....

Cnoppiks
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 17.08.2005 (Ср) 17:52

Сообщение Cnoppiks » 28.09.2005 (Ср) 11:04

Ага, если ставить свойство ограничиться списком - нет, то значение добавляется в controlsource-таблицу. Наверное надо вытянуть его из этой таблицы и добавить в список ..
Хочу все знать....

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 28.09.2005 (Ср) 11:45

вот мой код, сделано достаточно просто
Код: Выделить всё

'проверяем есть ли такой запрос в cboSQL
For x = 0 To cboSQL.ListCount
    a = 0
   
    If cboSQL.List(x) = cboSQL.Text Then
        a = 1
        Exit For
    End If
Next x

If a = 0 Then
    cboSQL.AddItem (cboSQL.Text)
End If
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

Cnoppiks
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 17.08.2005 (Ср) 17:52

Сообщение Cnoppiks » 28.09.2005 (Ср) 11:58

Во, мне требовалось всего лишь Cbo.Text!!!!!!. Спасиба большое!!!!
Хочу все знать....

Cnoppiks
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 17.08.2005 (Ср) 17:52

Сообщение Cnoppiks » 28.09.2005 (Ср) 13:15

Вот единственное - очень странно, нет свойства List у Combobox. Может я чего не правильно делаю
Private Sub town_Click()
Dim ctr As ComboBox
Dim i As Integer

Set ctr = Me!Town
For i = 1 To ctr.ListCount
If ctr.List(i) = ctr.Text Then
If MsgBox("Добавить", vbOKCancel) = vbOK Then
ctr.AddItem ctr.Text
End If
Exit For
End If
Next i

End Sub
Пишет ошибку, что нет такого свойства List
Хочу все знать....

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 28.09.2005 (Ср) 13:46

ListIndex
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 28.09.2005 (Ср) 13:46

и лист у комбо есть
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

Cnoppiks
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 17.08.2005 (Ср) 17:52

Сообщение Cnoppiks » 28.09.2005 (Ср) 14:02

lord0n
ListIndex - это, по-моему, совсем другое. Это свойство выводит номер строки. Даже если перебор будет по ListIndex, нужно как то обращаться к элементам списка по порядку??!! Что же в коде не правильно??Почему ругается на отсутствие свойства List??
Хочу все знать....

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 28.09.2005 (Ср) 14:17

Cnoppiks писал(а):lord0n
ListIndex - это, по-моему, совсем другое. Это свойство выводит номер строки. Даже если перебор будет по ListIndex, нужно как то обращаться к элементам списка по порядку??!! Что же в коде не правильно??Почему ругается на отсутствие свойства List??


запустил твой код - заработал как милинький
без всяких ошибок
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 28.09.2005 (Ср) 14:19

Комбобокс чей? Если Access, то в нем нужно использовать Combo1.Column(0,Row).
Lasciate ogni speranza, voi ch'entrate.

Cnoppiks
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 17.08.2005 (Ср) 17:52

Сообщение Cnoppiks » 28.09.2005 (Ср) 14:33

alibek писал(а):Комбобокс чей? Если Access, то в нем нужно использовать Combo1.Column(0,Row).


Все правильно, Большой человек, спасибо, разъяснил. Так же если источником строк в списке является таблица/запрос, то не прокатит combo.additem. Уже надо обнулять содержимое списка и добавлять данные в таблицу, являющуюся источником строк. Думаю, что так.
Хочу все знать....

Cnoppiks
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 17.08.2005 (Ср) 17:52

Сообщение Cnoppiks » 28.09.2005 (Ср) 15:12

Получилось!! Спасибо всем!!!
Хочу все знать....

Al Khamid
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 274
Зарегистрирован: 11.02.2004 (Ср) 10:00
Откуда: Москва, Ховрино

Сообщение Al Khamid » 28.09.2005 (Ср) 15:16

<"На вид" у Борщева уже есть, у него нет строгого с занесением...>
Последний раз редактировалось Al Khamid 27.11.2007 (Вт) 0:23, всего редактировалось 1 раз.

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 28.09.2005 (Ср) 15:32

еще было бы неплохо в самом начале указывать что это vb или vba
тогда бы не потеряли бы стока времени
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

Cnoppiks
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 17.08.2005 (Ср) 17:52

Сообщение Cnoppiks » 28.09.2005 (Ср) 15:37

Все, разгромили, повергли.-) lord0n, ты тоже не спросил с самого начала. Теперь все понятно, спасибо за помощь!!
Хочу все знать....

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 28.09.2005 (Ср) 15:48

Cnoppiks писал(а):Все, разгромили, повергли.-) lord0n, ты тоже не спросил с самого начала. Теперь все понятно, спасибо за помощь!!


я то думал ты пишешь на VB, а не в VBA :)
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList