同僚の 1 人から別の Access データベースのコードを借りて、別の "people" テーブルから検索することで、サブフォームにバインドされているテーブルを簡単に検索しました。私は構文に少し慣れていないので、コードを修正してプログラムで機能させる方法がわかりません。
そのため、コンボボックスから人物が選択されると、「vehicles」テーブルの「owner」フィールドで一致するすべてのレコードを検索し、それらを表示することになっています。
Private Sub Form_Open(Cancel As Integer)
Combo0.SetFocus
End Sub
Private Sub Combo0_AfterUpdate()
' Find the record that matches the control.
Dim rs As DAO.Recordset
Set rs = Me.Recordset.Clone
rs.FindFirst "[Owner.vehicles] = '" & Str(Nz(Me![Combo0], 0)) & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Forms!frmVehReg!subFrmVehReg.SetFocus
Forms!frmVehReg!subFrmVehicles.Form!Make.SetFocus
End Sub