Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1504 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6847】オプショングループの使い方 星 05/11/23(水) 23:06 質問[未読]
【6850】Re:オプショングループの使い方 小僧 05/11/24(木) 9:07 回答[未読]
【6847】オプショングループの使い方
質問  星  - 05/11/23(水) 23:06 -
引用なし
パスワード
   オプショングループの使い方がいまいち分からないので教えてください。
テーブル:Table1
フィールド:ID、名前、区分(1〜3のいずれか）
Form1（単票表示）上に以下のものをはりつけております。
　テキストボックス:ID、名前、区分
　オプショングループ:区分用(全件、1、2、3）
オプショングループで2を選択した場合、区分が2のものだけが表示され、全件を選択した場合、全件が表示されるようにしたいのですが、どのようなVBAを書いたらよいのでしょうか？
【6850】Re:オプショングループの使い方
回答  小僧  - 05/11/24(木) 9:07 -
引用なし
パスワード
   ▼星 さん：
おはようございます。

>オプショングループで2を選択した場合、区分が2のものだけが表示され、
>全件を選択した場合、全件が表示されるようにしたいのですが、
>どのようなVBAを書いたらよいのでしょうか？

オプションボタンのプロパティにある、オプション値を

全件の時 0
1　の時 1
2　の時 2
3　の時 3

と設定します。

オプショングループ : 区分用の「更新後処理」に

Private Sub 区分用_AfterUpdate()
　　Me.Filter = "区分 = " & Me.区分用.Value
　　Me.FilterOn = (Me.区分用.Value <> 0)
End Sub

と記述して、結果を確認されてみて下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1504 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078229
(SS)C-BOARD v3.8 is Free