0

同僚の 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
4

1 に答える 1