Хелп как при загрузке формы заполнить combobox c присоединенным полем
из таблицы из 2х полей, где 1-счетчик, а второе string


Private Sub Form_Load()

Dim ctl As Control
Set ctl = Me![C1] 'C1 - combobox


Dim MyDatabase As Database, MyTable As Recordset
Dim MyTableDef As TableDef, MyField As Field, MyIndex As Index
Set MyDatabase = DBEngine.Workspaces(0).Databases(0)

Set MyTable = CurrentDb.OpenRecordset("SELECT * FROM Names1", dbOpenDynaset)

MyTable.MoveFirst
Do Until MyTable.EOF


Me![C1].AddItem MyTable("Index")

Me![C1].AddItem MyTable("Names")



MyTable.MoveNext
Loop
MyTable.Close

MsgBox ctl.ListCount

End Sub



Все пишется в один столбец....

Лох ПозорныйВыкинуть весь этот код и написать


не работает, рукается - 13 ошибка, type mismatch???

AllllВсе пишется в один столбец....
Нужно задать 2 столбца и первый из них (счётчик) сделать невидимым (шириной 0)
В свойствах combobox записать:
Число столбцов 2
Ширина столбцов 0см;5см
Данные SELECT Names1.Index, Names1.Names FROM Names1;

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


Мне нужно программно - у меня запрос будет с параметром
( select.. where names = parametr)

paparomeВот и пиши в программе

(имя таблицы, полей и условие - пиши свои :) )


me.combo1.RowSource - ругается на RowSource; это надо где прописыывать?

paparome авторme.combo1.RowSource - ругается на RowSource; это надо где прописыывать?

Вам нужно в программе - вот и прописывайте в том месте программы, где это нужно (я же не знаю, где это вам нужно :( )

Что значит ругается?
Типа как? Ошибка где (оригинал желательно)


Me.C1.RowSource = CurrentDb.OpenRecordset("SELECT Names1.index, Names1.Names FROM Names1", dbOpenDynaset)

C1 - имя combo. пишеь type mismatch...

SfagПропиши в св-вах, не надо VBAсик мучать

в свойства параметр не передашь....

paparome авторMe.C1.RowSource = CurrentDb.OpenRecordset("SELECT Names1.index, Names1.Names FROM Names1", dbOpenDynaset)

paparomeme.combo1.RowSource = "SELECT Index, Names FROM Names1 Where Names Like '*" & me.text1 & "*'"

Быстро ищем 3 отличия?

CurrentDB.Open... - викинь нах...
Ибо RowSource имеет тип String, а не RecordSet!!!


Me.C1.RowSource = "SELECT Names1.index, Names1.Names FROM Names1;"

Гениально, так работает, 3 спасибы! Параметр потом засажу...