Hi all !

Попросили сделать маленькую приятность.
Есть форма в которой заносятся сведения о разных организациях. На этой форме установлен ComboBox, который связан с другой таблицей(там хранятся аттрибуты организаций, типа ОАО, УП, ЗАО).

Так вот вопросик: как сделать чтобы, если аттрибута нет в ComboBox, то при вводе его вручную он вносился и в таблицу с аттрибутами организаций.

P.S.: с VB последний раз сталкивался 2 года назад

Здравствуйте, Smolik

Ваше сообщение перенесено в форум VB

Здравствуйте, Smolik, Вы писали:

S>Hi all !

S>Попросили сделать маленькую приятность.
S> Есть форма в которой заносятся сведения о разных организациях. На этой форме установлен ComboBox, который связан с другой таблицей(там хранятся аттрибуты организаций, типа ОАО, УП, ЗАО).

S>Так вот вопросик: как сделать чтобы, если аттрибута нет в ComboBox, то при вводе его вручную он вносился и в таблицу с аттрибутами организаций.

S>P.S.: с VB последний раз сталкивался 2 года назад

Два пути:
1-ый(очень оригинальный). Пусть таблица куда вносятся данные называется table, интересующий нас столбец col, тогда
в свойстве rowSource(источник строк) у comboBox — указываем SELECT DISTINCT col FROM table WHERE col IS NOT NULL, limitToList(ограничиться списком) — false — и теперь любое введенное значение попадает в наш лист.
2-й способ(более гибкий). Делаем обработчик события notInList(отсутствие в списке):

Private Sub cmbSome_NotInList(Response As Integer)
  'Источник строк comboBoxа(cmbSome) хранится в таблице tblValues, которая может содержать и другие столбцы типа 
  'code  (например счетчик) - который, например, и будет подставляться в нашу таблицу table
  CurrentProject.Connection.Execute "INSERT INTO tblValues (col) VALUES " & cmbSome.Text & ";",Null,adCmdText
  Response = 'надо вернуть какую-то константу, чтобы Access на юзера не ругался. Найти не смог, т.к. справка в оффисе
  'начиная с 2000 - MUST DIE!


End Sub