AccessVBA １レコード目の値が勝手に変わる

Question

AccessでVBAコードを書いています。フォーム「一列車フォーム」と「サブフォーム」があり、一列車フォームの「列車コード」を入力するとサブフォームの「列車コード」が絞り込まれるようにしたいです。絞り込みは成功しましたがなぜか１レコード目の列車コードが勝手に変わっています。

Private Sub 列車コード_AfterUpdate()

Dim SQL As String

SQL = "列車コード like '*" & Me.列車コード & "*'"

Me!サブフォーム.Form.Filter = SQL

Me!サブフォーム.Form.FilterOn = True

DoCmd.Requery

End Sub

Answer 1

こんにちは。

「一列車フォーム」と「サブフォーム」のレコードソースに同じテーブルまたはクエリーを使用している様ですね。

「一列車フォーム」のフォームのレコードソースを空欄にして「サブフォーム」と同じレコードソースを使用しない様にするか、「一列車フォーム」の検索用のテキストボックスの「列車コード」のコントロールソースを空欄にして非連結にしてみて下さい。

.

Answer 2

解決しました。ありがとうございます。

Answer 3

VBAの公式サポート場所は海外となっています。

VBA(マクロ)に関しては、海外コミュニティで聞いて下さい。

・Stack Overflow(VBA)

　　[VBA プログラミングに関する質問]

　　Stack Overflow には、説明的なタイトル、完全で簡潔な問題ステートメント、問題を再現する
　　ための十分な詳細の要求などのガイドラインがあることに注意してください。
　　機能要求または過度に広範な質問は、トピック外と見なされます。
　　新しいユーザーの場合は、Stack Overflow ヘルプ センター にアクセスして詳細を確認して下さい。

※ 閲覧者・回答者が多い公式サポートサイトをお勧めします。

　 英語で質問を送信してください。