アクセス2000で、サンプルを見ながらVBAをみようみまねで書いている超初心者です(難しいことは理解できていません)。次のようなところで行き詰っています。ヘルプお願いします。
一つのフォームに、(1)コンボボックス2つで、2段階の絞り込みをするクエリ(全体から「種類」フィールドのAを抽出し、さらに「名前」フィールドからBに絞り込む) と、(2)オプショングループのフレームの中で五十音で検索するトグルボタン(「かな」フィールドからあ行、か行等を抽出) のふたつのフィルタを設置しています。
コンボボックスのほうには、絞り込みの解除のボタン(ここでは「再表示」とします)を設置しており、クリック時のイベントに
Private Sub コマンド1_click()
me.コンボ1=null
me.コンボ2=null
DoCmd.Requery
End Sub
と記述し、「再表示」ボタンを押すことで、何度もやり直しができています。
しかし、五十音検索を一度でも行うと、その後はコンボボックスの絞り込みが動かなくなってしまうのです。
そこで、こちらにも「全表示」ボタンをつくって、以下のような記述をしてみたのですが、いずれもコンボボックスによる絞り込みを復活させることができないでいます。どこが足りないのかわかりません。
1)
Private Sub コマンド2_click()
me.フレーム1=null
me.フレーム2=null
DoCmd.Requery
End Sub
これでトグルの選択は解除されますが、コンボボックスは動きません。よって3行目以降が間違っていると思い、
2)上記の3行目以降を
DoCmd.ShowAllRecords や Me.FilterOn=false など、またそれらとReQueryなどを組み合わせてみたり、
3)コンボボックスの方に1)や2)のような記述を追加してみたりと、いろいろトライしていますが、どうしてもコンボボックスの動作が復活しないのです。
いったんフォームを閉じるとまたできるようになるのですが・・・どうすればよいか、ご教示をお願いいたします。
ps.VBAのお作法はほとんどわかっていません。なるべくわかりやすくお願いいたします。
ちなみに、MSのサイトで[ACC2000]フィルタが設定されたフォームで2回目以降のフィルタが実行されない というヘルプは参照したのですが、意味が分かりませんでした(泣)
また、なぜこの時代にアクセス2000なのか、ですが、いまだに会社のバージョンがこれなのです(苦笑)
No.1ベストアンサー
- 回答日時:
Access2000 は持ち合わせておりませんが
両方の
前略・・
me.コンボ2=null
Me.filter = ""
Me.filterOn = false
'もしくは
docmd.RunCommand acCmdRemoveFilterSort
'どちらかの追加で何とかなりませんか?
Docmd.ShowAllRecords '念のためこれも追加
DoCmd.Requery
・・後略
ご回答ありがとうございます。
試してみたのですが、特に変化はありませんでした。
ちなみに、それぞれどういう意味や働きなのかご教示いただけないでしょうか。VBAを自分で考えるどころか、理解するところまでもいっていませんので、今後のヒントにさせていただければと思っております。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) ExcelVBA ドロップボックスで月を選択するとそれ以降のデータが残るようにしたい。 3 2022/12/16 14:53
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Access(アクセス) Access 複数条件検索の設定が上手く行きません 1 2022/07/22 20:37
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
条件に応じてコンボボックスの...
-
VBA コンボボックスの重複削除
-
Access レポート印刷するときに...
-
YahooのIDがロックされてしまい...
-
クエリで出来た表にチェックボ...
-
レコードを保存するコード ア...
-
passwordが入れられません・・・・
-
データベースのINT型項目にNULL...
-
アクセスで数値型のフィールド...
-
フォームで入力しても反映されない
-
「フォームを作成できませんで...
-
Word縦書きで左から右への行
-
Accessでフォーム上に 直前の...
-
マイクロソフト アクセス2021の...
-
Accessで、フォームからフォー...
-
Accessフォームからパラメータ...
-
アクセスで「モジュールがあり...
-
エクセルをACCESSのレポ...
-
EXCEL VBAのユーザーフォームに...
-
Access 「このレコードを保存す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
条件に応じてコンボボックスの...
-
コンボボックス 選択後のカー...
-
VBA コンボボックスの重複削除
-
Dcount関数が表示されない。
-
Access 数十件のデータからの...
-
CrystalDiskinfoの使い方!HDD/...
-
Accessのコンボボックス内項目...
-
Access 2016 のプロパティ(プル...
-
エクセルVBA コンボボックスで...
-
4月開始年度の月と日を連動さ...
-
access 検索結果をテキストボッ...
-
ACCESS2003のコンボボックスで...
-
java初心者です。
-
ActiveXコントロールのコンボボ...
-
Accessで、コンボボックスから...
-
ユーザーフォーム上にあるコン...
-
【Access2010】フォーム内のコ...
-
ドロップダウンリスト
-
Accessで家計簿を作っているの...
-
エクセルVBAユーザーフォー...
おすすめ情報