Combobox и его Recordset

Понедельник, 14 Июля 2014 г. 15:06 + в цитатник

Св-во .Recordset комбика синхронизируется с выбранным элементом только на второй итерации.

При первом выборе .Column кажет правильно, а .Recordset - первую запись.
Есно, что если первая выбранная запись и есть первая, то тогда они совпадают :)

Т.е. вот такой тест (по кнопке) не проходит при самом
первом выборе элемента из списка (хоть вручную, хоть кодом).
Данные совпадают только на второй смене и далее. :

Public Sub sb_CbxTest()
    With Form_fSimple.cbx_Srv
        Debug.Print _
                .Column(0) & " " & _
                .Column(1) & " " & _
                .Column(2) & " " & _
                ""
        With .Recordset
            Debug.Print _
                .Fields(0) & " " & _
                .Fields(1) & " " & _
                .Fields(2) & " " & _
                ""
            End With
    End With
    Debug.Print vbLf & vbLf
End Sub

+ Код инициации комбика:

Private Sub Form_Load()
    Call sb_CbxIni
    cbx_Srv.SetFocus
    cbx_Srv.ListIndex = 5
End Sub

Sub sb_CbxIni()
Dim sSQl$
    sSQl = "SELECT [RID], [Als] & " & _
           "IIf(([Port] <> 25) OR [SSL], ' / ' & [Port] & IIf([SSL], '-SSL', ''), ''), " & _
           "[Name], [Port], [SSL], [Lgn], [Pwd] " & _
           "FROM [tSimple] ORDER BY [RID];"
    'Stop
    
    With cbx_Srv
        .RowSourceType = "Table/Query"
        .RowSource = sSQl
        .LimitToList = True
        .AutoExpand = False
        .BoundColumn = 1
        '.DefaultValue = 1
        .ColumnCount = 7
        '.ColumnWidths = "0;2"
    End With
End Sub