Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2323 / 9994

←次へ　｜　前へ→


	【10946】帳票フォームでレコード絞込み(ADO)

眠眠 - 09/1/21(水) 17:14 -


	引用なし

	パスワード

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 の行でエラーになります。

どのように対処すればよろしいでしょうか？
回答や別の方法の提案、参考になるサイトなどお教えください。
宜しくお願い致します。

1,225 hits

▼

【10946】帳票フォームでレコード絞込み(ADO) 眠眠 09/1/21(水) 17:14