For Each ctl In forma1.Controls
If ctl.ControlType = acComboBox Then
s = ctl.Name
.Bookmarks.Item(s).Range.Text = forma1(s).ItemData(forma1.ListIndex)
Err.Clear
End If
Next ctl
Значения из ComboBox'ов
Здравствуйте!
Выполняется код
По идее он должен вставлять значения из всех комбобоксов на форме в Word, но вставляются лишь значения тех комбобоксов, в которые мы данные внесли ручками, а там где источник данных запрос, вставляется порядковый номер значения(того который на экране).
Плиз помогите побороть!
Заранее благодарю!
Выполняется код
Код:
По идее он должен вставлять значения из всех комбобоксов на форме в Word, но вставляются лишь значения тех комбобоксов, в которые мы данные внесли ручками, а там где источник данных запрос, вставляется порядковый номер значения(того который на экране).
Плиз помогите побороть!
Заранее благодарю!
проверь присоединенный столбец
Цитата:
Originally posted by likhobory
проверь присоединенный столбец
проверь присоединенный столбец
Column(forma1(s).ListIndex,1) ??? :(
Извини не понял! Если имеешь ввиду запросом, то пока не могу разобраться как... Да и потом для каждого комбобокса отдельный запрос писать совсем не хочется. Вот если б свойство мли метод какой-нить нашелся, то совсем другое дело.
А что касается запроса-источника, то он действительно состоит из 2 столбцов, 1-индекс, 2-значение!
Цитата:
Originally posted by likhobory
проверь присоединенный столбец
проверь присоединенный столбец
Спасибо, разрулил!