Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
305 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12193】帳票形式のオプショングループをコンボボックスの値により不可視にする方法 初心 12/10/27(土) 4:27 質問[未読]
【12196】Re:帳票形式のオプショングループをコンボ... hatena 12/10/28(日) 16:13 回答[未読]
【12197】Re:帳票形式のオプショングループをコンボ... 初心 12/10/29(月) 8:48 お礼[未読]
【12193】帳票形式のオプショングループをコンボボ...
質問  初心 E-MAIL  - 12/10/27(土) 4:27 -
引用なし
パスワード
   いつもお世話になったおります。
もし、おわかりになる方いらっしゃればお伺いしたいのですが、
(ACCESS2000)を使用しており、コンボボックスで選択された値によって、２つあるオプショングループの可視・不可視、もしくは編集可、不可を設定する方法はないでしょうか。
帳票形式ということを踏まえるとVBAでの対処は難しく、条件付き書式を使用しボタンをテキストボックスで隠し、そのテキストボックスに細工するような設定になるのではないかと考えているのですが、知識も具体的な案も浮かばない状態です。

コンボボックス[txtkubun] は数値型のフィールドをコントロールにもち、（1,3,5）を選択した時、オプショングループを可視、もしくは編集可能といった具合にしたのです。ちなみにテキストボックスではこちらの掲示板にお世話になりすでに条件付き書式を用いて[txtkubun] In (1,3,5)というかたちで実現いたしまた。
何卒、よろしくお願い致します。
【12196】Re:帳票形式のオプショングループをコン...
回答  hatena  - 12/10/28(日) 16:13 -
引用なし
パスワード
   とりあえず下記のような方法で可能です。

オプショングループの上にテキストボックスを重ねて配置して下記の様に設定します。

コントロールソース　=IIf([txtkubun] In (1,3,5),"","gggggg")
使用可能　いいえ
編集ロック　はい
背景スタイル　透明
フォント名　Webdings
前景色　背景色と同じ色
フォントサイズ　72

これで、可視、不可視を切り替えることができます。
ただし、使用可能 いいえ になってますので、オプショングループをクリックすることが出来なくなります。

そこで、さらにその上にオプションボタンとそのラベルに重なるようにコマンドボタンを２つ配します。

例えば、フレーム1 に オプション1(1)　オプション2(2) と配置してあるとして、
()内はオプション値

オプション1 に重ねて配置するコマンドボタンを下記のように設定します。

透明　はい
タブストップ　いいえ

クリック時のイベントプロシージャ

Private Sub コマンド1_Click()
　　Me.フレーム1.SetFocus
　　Me.フレーム1 = 1
End Sub


オプション2に重ねた透明ボタンを同様に設定して

Private Sub コマンド1_Click()
　　Me.フレーム1.SetFocus
　　Me.フレーム1 = 2
End Sub
【12197】Re:帳票形式のオプショングループをコン...
お礼  初心 E-MAIL  - 12/10/29(月) 8:48 -
引用なし
パスワード
   hatena様、誠にありがとうございました。
理想どおりのものができました。最初は半ばあきらめていたのですが、うれしい限りです。
いつも、調べていくうちに、最終的にはhatena様のホームページにたどり着く事が多いのですが、accessの知識があるだけではなく、柔軟な独自の発想で、理想を具現化する技術はいつも感心させられるばかりです。
この度は永きにわたる御指導、大変ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
305 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078191
(SS)C-BOARD v3.8 is Free