- ベストアンサー
コンボボックスへの値の編集方法について
ACCESSで複数のフォームにコンボボックスを配置しています。どのフォームのコンボボックスにも同じようにコンボボックスの値を設定します。それぞれプロパティの値リストを設定することなく、共通のモジュールを作成してそこでADDITEMできるようにしたいと考えています。 モジュールにどのようにコンボボックスを引数として渡したらよいか、またモジュールではどのように引数を受け取り、どのようにadditemしたらよいか教えていただけないでしょうか。 よろしくお願いします。
- kinako_hs
- お礼率50% (12/24)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
標準モジュールに Public Sub AddItems2ComboBox(target As ComboBox) target.AddItem "aaa" target.AddItem "bbb" ' などなどご自由な追加方法で End Sub フォーム側ではコンボボックスに値を追加したいタイミングのイベントで（フォーム初期化イベントなど） AddItems2ComboBox コンボボックス名 てな感じでどうでしょうか。
関連するQ&A
- コンボボックスの値が消えてしまいます。
コンボボックスの値が消えてしまいます。 フォーム(1)にコンボボックスA（値集合ソースはテーブル１）があります、この リスト外入力時で別フォーム(2)（レコード追加用）を開きテーブル１にレコードを追加、 フォーム(2)を閉じる時にコンボボックスAをリクエリかけてフォーム(1)に戻るとコンボボックスAが空になっているのでリストを開き選択し直さなければいけません！ フォーム(1)に戻った時コンボボックスAに入力した値を選択させておくにはどの様にすれば良いか アドバイスよろしくお願いいたします。 WIN XP ACCESS 2003で作成しています。
- ベストアンサー
- その他（プログラミング・開発）
- Access コンボボックスの複数選択
Access2007を勉強中の初心者です。 「空白のフォーム」から作成したコンボボックスで、複数選択が可能になるような設定はありませんか？ テーブル項目の「ルックアップ」「複数の値を許可」を許したテーブルから作成したフォームでは、コンボボックスで複数の値を選択可能になりますが、「空白のフォーム」から作成した場合にはできないのでしょうか。 リストボックスではスペースをとってしまう為、コンボボックスで行いたいです。 言葉足らずな内容かもしれませんし、大変お手数をおかけしますが、よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- [Access2003]コンボボックスのプロパティの「値集合タイプ」について
[Access2003]コンボボックスのプロパティの「値集合タイプ」について 今、参考書でAccess2003のフォームのコントロールの作成について勉強しています。『コンボボックスのプロパティ』の「すべて」の中の「値集合タイプ」の・・・・ 「テーブル/クエリ」、「値リスト」、「フィールドリスト」は、少しの説明だけで理解できなかったです。 Access初心者なので簡潔に「テーブル/クエリ」、「値リスト」、「フィールドリスト」を教えてくださったら助かります。
- ベストアンサー
- オフィス系ソフト
- Access コンボボックスに値が出ません
こんにちは。 Access2010を使っています。 フォーム内のコンボボックスについてですが、クリックすると、リストは問題なく表示されます。が、選択したものがボックス上に表示されないのですが、何が原因かさっぱりわかりません。 挙句、いろいろと、いじっていたら落ちてデータベースが壊れてしまいました。 値は、テーブルなどから引っ張っているわけではなく、任意で作成したものです。プロパティ内の編集や使用も可能な状態になっています。ページヘッダーに置いているというのも関係なさそうな気はしています。 どなたかお分かりの方、いらっしゃいませんでしょうか？よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA コンボボックスの値の転記
エクセルVBAの質問です。 ユーザーフォームを表示し 年を選択するコンボボックス１ 月を選択するコンボボックス２ を入力してもらい ユーザーフォームを閉じるときに sheet1のワークシートのC2セルに 「コンボボックス１の値」＋「年」＋と「コンボボックス２の値」＋「月」をつなげて 入力できるというようなマクロを考えています。 下記の様に考えてみたのですが、 うまく入力できませんでした。 Private Sub UserForm_Initialize() With ComboBox1 .AddItem "2021" .AddItem "2022" .AddItem "2023" .AddItem "2024" End With With ComboBox2 .AddItem "1" .AddItem "2" .AddItem "3" .AddItem "4" .AddItem "5" .AddItem "6" .AddItem "7" .AddItem "8" .AddItem "9" .AddItem "10" .AddItem "11" .AddItem "12" End With Private Sub CommandButton1_Click() 'ユーザーフォームを閉じる Unload UserForm1 'ユーザーフォームの値をセルC2に入力 With Worksheets("sheet1") .Cells(2, 3).Value = "ComboBox1.Text" & "月" & "ComboBox2.Text" & "日" End With End Sub どのように修正すればいいでしょうか？ よろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- 【Access】コンボボックスの値の変更方法
フォームにコンボボックスを配置し、下記の動作をさせたいと思ったのですが、1は出来たものの2が出来ませんでした(値集合ソースの中身は表示されるものの、選択してもコンボボックスに反映されませんでした)。 1. フォームオープン・・・データベースのcmb1の値より、対応する文字をコンボボックスに表示する。 2. コンボボックスの値の変更・・・プルダウンから値集合ソースに表示されている任意の値を選択し、コンボボックスに設定する。 その為、どうすれば値を変更できるようになるかアドバイスいただける方がいらっしゃいましたら、ご教示の程よろしくお願いします。 なお、初期状態から下記を変更しております。 【テーブル】 テーブル名：tbl フィールド名：ID,cmb1 値：1,2 【フォーム】 フォーム名：form1(コンボボックスを一つ配置) フォームのレコードソース：SELECT Choose(tbl.cmb1,"A","B","C") AS nm_cmb FROM tbl WHERE (((tbl.ID)=1)); コンボボックス 列数：2 列幅：0cm;3cm コントロールソース：nm_cmb 値集合タイプ：値リスト 値集合ソース：1;A;2;B;3;C 連結列：2 上記の状態で起動時のコンボボックスの中身は"B"と表示されるものの、コンボボックスのプルダウンメニューを表示して値を変更しようとしても出来ない事が確認できると思います。 以上、よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- Excel ユーザーフォームのコンボボックスについて
始めまして、マクロに関してはまだまだ勉強中なのですが、ユーザーフォームのコンボボックスについてつまづいてしまい、皆さんにご教授頂ければと思います。 一つユーザーフォームを作成後、そのフォーム内にコンボボックスを配置し、リストから項目を選択できるようにしたいと考え下記のように記述したのですが、ユーザーフォームを実行してもフォームは表示されてきますが、ボックスを選択してもリストに項目が表示されてきません。 Private Sub cmd入力_Click() End Sub Private Sub 選択グループCombo_Change() With 選択グループCombo .AddItem "初級" .AddItem "中級" .AddItem "上級" Private Sub cmd閉じる_Click() Unload Me End Sub この記述自体が間違っているのでしょうか。 宜しくお願いします。
- 締切済み
- その他（プログラミング・開発）
- コンボボックスに設定する値
ユーザーフォーム上のコンボボックスに設定する値を ワークシートの入力規則のリストで設定した値から参照するにはどうしたらいいでしょうか？ 入力規則の値は、元の値のテキストボックス？に直接入力されているので これをどこかのセル範囲を参照して～というのはナシでお願いします。
- 締切済み
- オフィス系ソフト
- コンボボックスの初期値（？）
アクセス２０００でデータベースを作成しています。 フォームでコンボボックスを置いています。フォームはなにも打たないと空白になっています。大体、いつも同じものを選択することになるのでそれを初期値としてセットしておきたいと思っています。コンボボックスのプロパティに「既定値」がありそれに入力しておく方法があります。 これではひとつ問題があります。リスト行が何行もある場合、一番上から選択しなければいけません。これをリスト行の真ん中あたりから上下選べるようにしたいのです。 このような場合、どのような方法でやればいいでしょうか？
- ベストアンサー
- オフィス系ソフト
- コンボボックスにリストが表示されません・・・
ユーザーフォーム(UserForm)にコンボボックス(ComboBox1)を作ってリストを入れました。 しかしユーザーフォームを実行してもコンボボックスに何もリストが出てきません。 なにが悪いのでしょうか？チュートリアルどおりにやっているのですが・・・(T T) Private Sub UserForm_Initialize() With ComboBox1 .AddItem "東京" .AddItem "名古屋" .AddItem "福岡" End With End Sub Windows2000+Excel2000です。
- ベストアンサー
- オフィス系ソフト
お礼
おぉ～ありがとうございます。 無事にできました。 しかし、AddItems2ComboBox (me.cboリスト) みたいな感じでは試していたんですが、ダメでした。 どうもありがとうございました。