посмотри такой вариант:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
Public Function CmbRowSource(sFields As String, _
sDomain As String, _
Optional sCrit As String, _
Optional sOrderBy As String, Optional NewConnection As Boolean = True) As String
'создание строки - источника строк для комбобокса'
Dim sSrc As String
Dim sSQL As String
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field
On Error GoTo e
sCrit = IIf(Len(sCrit) > 0 , " WHERE " & sCrit, "")
sOrderBy = IIf(Len(sOrderBy) > 0 , " ORDER BY " & sOrderBy, " ")
sSQL = " SELECT " & sFields & " FROM " & sDomain & sCrit & sOrderBy
If NewConnection Then OpenConn True
With rst
.Open sSQL, ProjectCurCnn, adOpenForwardOnly, adLockReadOnly, adCmdText
If Not (.EOF And .BOF) Then
Do Until .EOF
For Each fld In .Fields
sSrc = sSrc & " ; " & Nz(fld.Value)
Next fld
.MoveNext
Loop
End If
End With
If Len(sSrc) > 0 Then sSrc = Right$(sSrc, Len(sSrc) - 1 )
CmbRowSource = sSrc
ex:
On Error Resume Next
rst.Close
Set rst = Nothing
If NewConnection Then OpenConn False
Err.number = 0
Exit Function
e:
Select Case Err.number
Case Else
MsgBox "Исключение № " & Err.number & " : " & Err.Description, vbCritical, " CmbRowSource"
End Select
Resume ex
End Function
вызывается так:
1.
Me!cmbWhouse.RowSource = CmbRowSource( "WHouseID, WHouseName" , "VW_WHouses" , _
"StationID=" & lngStID & " AND WHouseID<>" & lngWHouseID)
при этом настраиваем комбобокс как:
источник строк - список значений
оидн из плюсов этого метода - разрыв соединения после создания списка значений для контрола, (создавался для .mdb)
минус - ограниченное количество значений в списке
