Заполнение комбобокса

[alex77755]

Что я делаю не так:
Надо запонить комбобокс. Пробую ставить источник строк запрос, пробую список - результат один - записеё не видно, хотя судя по Count они есть.

Private Sub Form_Activate()
Set DBS = CurrentDb

Select Case Vid.RowSourceType

Case "Value List"
 Set RS = DBS.OpenRecordset("SELECT  DISTINCT Услуги.ВидУ from Услуги") 'уникальная длина
 For r = 1 To RS.RecordCount
 Vid.AddItem RS(0)
 Debug.Print RS(0)
 RS.MoveNext
 Next r
 Debug.Print Vid.ListCount
 
Case "Table/Query"

Set Vid.Recordset = DBS.OpenRecordset("SELECT  DISTINCT Услуги.ВидУ from Услуги") 'уникальная длина
Debug.Print Vid.ListCount

End Select

End Sub

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

[gluk_fm]

Добрый день.
Я не проффесионал, попробуйте как-то так:
Private Sub Form_Activate()

Set DBS = CurrentDb

Select Case Vid.RowSourceType

Case "Value List"
Set RS = DBS.OpenRecordset("SELECT DISTINCT Услуги.ВидУ from Услуги") 'уникальная длина

RS .MoveFirst
Do Until RS .EOF


Vid.AddItem RS![ВидУ]
Debug.Print RS![ВидУ]
RS.MoveNext
loop
Debug.Print Vid.ListCount

Case "Table/Query"

Set Vid.Recordset = DBS.OpenRecordset("SELECT DISTINCT Услуги.ВидУ from Услуги") 'уникальная длина
Debug.Print Vid.ListCount

End Select

End Sub

[alex77755]

Точно так же: В дебаггер печатает
Debug.Print Vid.ListCount = 4(соответствует)
Но такое впечатление, что цвет шрифта равен цвету фона
Попробовал проверить, что и куда добавляется

 Vid.AddItem RS![ВидУ]
' Debug.Print RS![ВидУ]
Vid.SetFocus
Vid.ListIndex = r - 1
Debug.Print Vid.ListIndex, Vid.Value, Vid.ListCount, Vid.Text

В Value нужное значение, в Text пусто.
Количество записей соответствует. На форме комбик с четырьмя пустыми строками

[Teslenko_EA]

Здравствуйте alex77755.
"..впечатление, что цвет шрифта равен цвету фона.." - такое "впечатление" может сложиться при нулевой ширине заполняемой колонки контола.
Этот вариант "проблемы" часто проявляется при попытке использования контрола созданного мастером.
Евгений.

[alex77755]

Спасибо,Teslenko_EA
Разобрался. Так и оказалось: Источником строк был запрос и показывалась вторая колонка. У первой ширина 0