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

[Cnoppiks]

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

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

[lord0n]

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

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

при добавлении нового значения добавляешь его в базу и перезаносишь данные в комбо
у меня с листбоксом так реализовано

[Cnoppiks]

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

[lord0n]

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

я по старинке, сделал через цикл

[Cnoppiks]

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

[Cnoppiks]

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

[lord0n]

вот мой код, сделано достаточно просто

Код: Выделить всё


'проверяем есть ли такой запрос в 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]

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

[Cnoppiks]

Вот единственное - очень странно, нет свойства 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]

ListIndex

[lord0n]

и лист у комбо есть

[Cnoppiks]

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

[lord0n]

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

запустил твой код - заработал как милинький
без всяких ошибок

[alibek]

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

[Cnoppiks]

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

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

[Cnoppiks]

Получилось!! Спасибо всем!!!

[Al Khamid]

<"На вид" у Борщева уже есть, у него нет строгого с занесением...>

[lord0n]

еще было бы неплохо в самом начале указывать что это vb или vba
тогда бы не потеряли бы стока времени

[Cnoppiks]

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

[lord0n]

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

я то думал ты пишешь на VB, а не в VBA