| |
Accessは学校で習得しましたが、8年のブランクがあり、ほとんど覚えていない状態です。
初心者に近いと思いますが、宜しくお願い致します。
[WinXP:Access2002]
【フォームの形】
このフォームでの手動でのデータの変更は一切なし。検索のみ。
ただし、規定の位置をダブルクリックする事で、データの自動更新、詳細画面を開く。
データ自動更新＞IEよりデータを抜出して、レコード更新。
詳細画面＞詳細情報を別フォーム(単票形式)で開く。
【フォーム＞レコードセット方法】
3つのテーブルをADOで開き、それをフォームのRSに代入して帳票表示しています。
Set rs = New ADODB.Recordset
rs.Open mySQL, cn, adOpenKeyset, adLockReadOnly
Set Me.Recordset = rs
【絞込み】
最初はテーブルの全レコードを表示させています。
絞込条件を入力すると絞り込んだ結果をフォームに表示させたいのですが、ここで詰まってます。
rs.Filter = "(完了日 >= #2009/01/01#) and (完了日 <= #2009/01/21#)"
で、実行すると rs.RecordCount は(1536件中)414となります。
ただフォームの表示が絞り込まれません。1536件のまま。
フォームをクリックすると、画面の表示位置が検索条件に一致した位置に変わるだけです。
フォームのRSを再セットしようとしても、
Set Me.Recordset = rs
【プロシージャの呼び出し、または引数が不正です】と表示されます。
駄目元で、
Me.Filter = "(完了日 >= #2009/01/01#) and (完了日 <= #2009/01/21#)"
としても、Me.FilterON の行でエラーになります。
どのように対処すればよろしいでしょうか？
回答や別の方法の提案、参考になるサイトなどお教えください。
宜しくお願い致します。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
