Accessのフォームで値が見た目変更されない
はじめまして、こんにちは。
Accessを使用して自社ツールを作成しています。
バージョン：Access2003
OS：WindowsXP
フォームのレコードソースに、あるテーブルを連結させて一覧にして表示しています。
複数のコンボボックスを用意して、選択された値によって検索をかけ、
レコードソースの値を書き換えて再表示しています。
この検索はコンボボックスの更新後処理にVBAでSQLを記述して行っています。
Dim str_sql As String
str_sql = str_sql & "select * from T_テーブルA where ○○コード = 1"
Me.RecordSource = str_sql
かなり省略していますが、実際はコンボボックスで選択された値によって
SQLを生成しています。
フォームにはtxt_件数という名前でテキストボックスを用意してあります。
レコードソースを設定した後に、同じ条件でカウントし件数を表示しようと
しているのですが、これがうまくいきません。
Me!txt_件数 = Nz(DCount("*", "T_テーブルA", "○○コード = 1"), 0)
件数が1件でもある時は正しい値が表示されます。
0件の場合は前回の表示のまま見た目上かわりません。
例）
１回目の検索で200件→テキストボックス[200]と表示
２回目の検索で0件→テキストボックス[200]と表示
３回目の検索で10件→テキストボックス[10]と表示
このような感じです。
ただし、実際は正しい値[0]が設定されているみたいです。
別のウインドウを一度フォームにかぶせて避けると[0]になりますし、、
２回目で[200]と表示されているものをコピーすると[0]がコピーされます。
Me!txt_件数 = Nz(DCount("*", "T_テーブルA", "○○コード = 1"), 0)
If Me!txt_件数 = 0 Then
Me!txt_件数 = 0
End If
馬鹿げていますが、このようにしても正しく[0]が表示されませんでした。
Accessを再起動しても状態は変わらず、困っています。
環境の問題でしょうか？
解決策など解る方いらっしゃいましたら教えてください。
よろしくお願いいたします。
お礼
アドバイスありがとうございます。 Google Patents でもやってみたのですが、Googleの場合、USクラスで検索すると、どうもオリジナルクラスからしか検索してこないようで、USPTOでの検索結果と件数が異なってしましました。 また、USPTOでの検索結果から登録番号でGoogleから検索したのですが、どうもGoogleにはデータがない文献がかなり存在するようです。 あきらめて、効率は悪いですが、USPTOで検索した結果（登録番号）を基に、地道にFree Patents Online （http://www.freepatentsonline.com/） で検索してPDFを収集し、印刷してファイリングすることにしました。