0

アクセスADPのフォームには、会社のリストを表示するバインドされていないコンボボックスがあります（名前が表示され、IDはバインドされたフィールドです）。会社を選択するときに、その会社のサブフォーム（companySubscriptionビューであるデータソース）にサブスクリプション情報を表示したいと思います。リンクマスターフィールドを設定し、サブフォームの子フィールドプロパティをcompanyIdにリンクします。基本的にはこのように設定します。

理論的には、これは、コンボボックスの値を変更すると、サブフォームにその会社のサブスクリプション情報が表示されることを意味すると思います。ただし、機能していません。コンボボックスが何に設定されていても、サブフォームには常にcompanySubscriptionビューのすべてのデータが表示されます。

ヘルプ！

4

1 に答える 1

0

答えを見つけました-助けになった別のプロジェクトからのいくつかのコードがありました：

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
于 2010-09-21T16:57:35.730 に答える