AccessVBAコードの間違いを指摘してください

質問

Microsoft Accessでデータベースを作っています。テーブル「駅時刻リスト」「列車リスト」クエリ「クエリ１」フォーム「一列車フォーム」「サブフォーム」を作りました。「一列車フォーム」から列車コードを選択すると「サブフォーム」の列車が列車コードで絞り込まれるようにするコードを書きました。間違いを指摘してください。

Private Sub 列車コード_AfterUpdate()

Me!サブフォーム.Form.Filter = "列車コード like '*' & [Forms]![一列車フォーム]![列車コード] & '*'"
Me!サブフォーム.Form.FilterOn = True
DoCmd.Requery

End Sub

回答No.1

chie65536（@chie65535）

Msgbox "列車コード like '*' & [Forms]![一列車フォーム]![列車コード] & '*'"
という行を挿入して、フィルターに指定した文字列が期待通りの結果になっているか確かめましょう。

予想外の文字列が表示される筈です。