Access VBA質問箱 IV

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

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


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

6351 / 9994

←次へ　｜　前へ→


	【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

と記述して、結果を確認されてみて下さい。

245 hits

▼

【6847】オプショングループの使い方 星 05/11/23(水) 23:06