Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
868 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9739】コンボボックス smith 07/8/7(火) 21:14 質問[未読]
【9740】Re:コンボボックス 小僧 07/8/8(水) 9:29 回答[未読]
【9741】Re:コンボボックス smith 07/8/8(水) 10:25 お礼[未読]
【9739】コンボボックス
質問  smith  - 07/8/7(火) 21:14 -
引用なし
パスワード
   AccessのコンボボックスのRowsourceをVBではめこんで、そこに
もう一行「すべて」という言葉の行を加えることができますか。

コントロール名：cmb_組織A
値集合ソース: テーブル「組織」

cmb_組織A.RowSource = "SELECT [組織コード] FROM 組織 "

エクセルのフィルタのイメージです。「すべて」という文字を加えたいだけです。
【9740】Re:コンボボックス
回答  小僧  - 07/8/8(水) 9:29 -
引用なし
パスワード
   ▼smith さん：
こんにちは。

>AccessのコンボボックスのRowsourceをVBではめこんで、そこに
>もう一行「すべて」という言葉の行を加えることができますか。

組織コードに重複がない事が条件ですが、
ユニオンクエリでどうにかできそうですね。


Me.cmb_組織A.RowSource = "SELECT [組織コード] FROM 組織 UNION " _
　　　　　　　　　　　　　 & "SELECT '全て' AS 組織コード FROM 組織"
【9741】Re:コンボボックス
お礼  smith  - 07/8/8(水) 10:25 -
引用なし
パスワード
   ありがとうございます！

うまくいきました。
これで複数のコンボボックスの中で一つだけ抽出解除できます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
868 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078201
(SS)C-BOARD v3.8 is Free