AccessでQuerySQL変更後のForm画面の更新コマンド

Question

下記手順でForm画面を表示させています。
その後にQueryTBLのSQL文を変更して、Form画面に反映させたいと思っています。
[画面更新]やForm.Requeryでは内容は反映されませんが、[A->Z並び替え]⇒[すべての並び替えをクリア]では反映されます。444レコードのみ表示する。
並び替えは必要ないので、これと同様な機能のコマンドを捜しています。
ご存じの方宜しくお願い致します。

(作成環境)
テーブル:TBL (項目名:LOTNO 値:111,222,333,444,555)
クエリ:QueryTBL (テーブルTBLより引く)
フォーム:Form1 (QueryTBLより一覧表示)
Access2007

(運用手順)
フォームを起動後に下記ソースにてSQL文を更新。画面を反映させたい！

Set objQuery = CurrentDb.QueryDefs("QueryTBL")
strSQL = CurrentDb.QueryDefs("QueryTBL").SQL
strSQL = Replace(strSQL, ";", "")
strSQL = strSQL & " WHERE LOTNO = 444;"
objQuery.SQL = strSQL

p.s.並び替えのVBAなら反映される。

Me.OrderBy = "LOTNO"
Me.OrderByOn = True
Me.OrderBy = ""
Me.OrderByOn = False

Answer 1

やるとしたら下記でしょうか。

    Dim Src As String
    Src = Me.RecordSource
    Me.RecordSource = ""
    Me.RecordSource = Src

---

抽出条件を設定したいなら、クエリを書き換えなくてもFilterプロパティを使えばいいと思いますが。
クエリを書き換えてしまうと、後で元に戻す必要があったり、すでにWhere句やOrder By句があったりすると面倒だと思いますが。

Me.Filter = "LOTNO = 444"
Me.FilterOn = True

Comments

[ad.sys.soleil]

ご回答有難う御座います。
データ量が多く速度が心配だったので、Me.RecordSource = Srcを使って、丸ごと条件も入れたソースを入れ替えて運用する事にしました。