Проблемы с привязкой подчиненной формы к комбинированному списку в главной форме

На форме в ADP для доступа есть несвязанный комбинированный список, в котором отображается список компаний (отображается имя, поле идентификатора - это поле). Когда компания выбрана, я хочу отобразить информацию о подписке в подчиненной форме (источником данных, для которого является представление companySubscription) для этой компании. Я устанавливаю ссылку Master Fields и связывает дочернее свойство Fields подчиненной формы с companyId. По сути, я настроил это так.

Теоретически, я думаю, это будет означать, что когда я изменяю значение в выпадающем списке, подчиненная форма должна показывать информацию о подписке для этой компании. Однако он не работает - подчиненная форма всегда отображает все данные в представлении companySubscription, независимо от того, для чего задан комбинированный список.

Помогите!

1 ответ

Решение

Нашел ответ - был какой-то код из другого проекта, который помог:

Private Sub cmbSub_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[subID] = " & str(Nz(Me![cmbSub], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

И пришлось изменить его для ADP (спасибо этому посту!)

Private Sub ChooseCo_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As ADODB.Recordset

    Set rs = Me.Recordset.Clone
    rs.Find "[companyId] = " & Str(Nz(Me![ChooseCo], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Другие вопросы по тегам