Access VBA質問箱 IV

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

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


9391 / 9994 ←次へ | 前へ→

【3742】Re:あいまい条件を含んだレコード数のカウントは??
お礼  こもれび  - 04/10/20(水) 15:11 -

引用なし
パスワード
   こもれびです

▼クロ さん:
>>% での SQL がなぜ ADO 接続で正しい RecordCount を返さないのか
>
>私も同じくADOは殆ど使いません...
>ただ、今回の場合はADO内での「% での SQL」でレコードカウントはできているが
>そのSQLをそのままリストボックスの値集合ソースに入れるとリストボックスに現
>れないということではないでしょうか?
>
>レコードカウントは「%」を使い、RowSourceの代入時には「*」を使うしかない
>(Gin-IIさん曰く)と私も思います。

いろいろご検討・ご教示ありがとうございます
SQL変数を増やすことも考えましたが、次の方法で表示することとしました。

複数のあいまい条件の結果を返すSQLを一つ作製します。

○ リストボックスへの表示
  1.SQLからRowSource文字列(;区切り)の変数を作る
  2.[リストボックス名].RowSourceType = "Value List"
  3.[リストボックス名].RowSource = RowSource文字列変数

○ レコードカウントの表示
    rs.Open SQL,cnn …
    rs.RecordCount

と、しました。
蛇足になってしまいますが、レコード数を数えさせている理由は
一度リストボックスにレコードを書き込むとレコード数に関わらず
IsNull([リストボックス名])がtrueになってしまい、レコード数
が0の時のみのメッセージ表示のつもりが毎度毎度表示されてしまう
ことの回避です。

ご回答してくださいました皆様、お手数おかけしました ありがとうございました。

1,906 hits

【3721】あいまい条件を含んだレコード数のカウントは?? こもれび 04/10/19(火) 15:23 質問
【3723】Re:あいまい条件を含んだレコード数のカウン... ぬぅ 04/10/19(火) 15:52 発言
【3725】Re:あいまい条件を含んだレコード数のカウン... こもれび 04/10/19(火) 16:47 発言
【3727】Re:あいまい条件を含んだレコード数のカウン... こもれび 04/10/19(火) 17:12 お礼
【3728】Re:あいまい条件を含んだレコード数のカウン... クロ 04/10/19(火) 17:51 回答
【3730】Re:あいまい条件を含んだレコード数のカウン... こもれび 04/10/20(水) 1:08 発言
【3731】Re:あいまい条件を含んだレコード数のカウン... Gin_II 04/10/20(水) 2:14 回答
【3732】Re:あいまい条件を含んだレコード数のカウン... クロ 04/10/20(水) 7:47 回答
【3734】Re:あいまい条件を含んだレコード数のカウン... こもれび 04/10/20(水) 10:27 発言
【3738】Re:あいまい条件を含んだレコード数のカウン... YU-TANG 04/10/20(水) 12:55 発言
【3740】Re:あいまい条件を含んだレコード数のカウン... クロ 04/10/20(水) 13:33 発言
【3741】Re:あいまい条件を含んだレコード数のカウン... YU-TANG 04/10/20(水) 14:54 発言
【3742】Re:あいまい条件を含んだレコード数のカウン... こもれび 04/10/20(水) 15:11 お礼
【3743】Re:あいまい条件を含んだレコード数のカウン... YU-TANG 04/10/20(水) 16:04 質問
【3746】Re:あいまい条件を含んだレコード数のカウン... こもれび 04/10/21(木) 10:00 お礼
【3724】Re:あいまい条件を含んだレコード数のカウン... Gin_II 04/10/19(火) 16:37 回答
【3726】Re:あいまい条件を含んだレコード数のカウン... こもれび 04/10/19(火) 17:05 お礼

9391 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078293
(SS)C-BOARD v3.8 is Free