Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1197 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8282】クエリのデータ参照 ハジメ 06/7/17(月) 15:30 質問[未読]
【8283】Re:クエリのデータ参照 小僧 06/7/18(火) 11:22 発言[未読]
【8285】Re:クエリのデータ参照 ハジメ 06/7/18(火) 13:48 質問[未読]
【8284】Re:クエリのデータ参照 レモン 06/7/18(火) 11:32 回答[未読]
【8286】Re:クエリのデータ参照 小僧 06/7/18(火) 14:30 回答[未読]
【8315】Re:クエリのデータ参照 ハジメ 06/7/20(木) 14:27 お礼[未読]
【8282】クエリのデータ参照
質問  ハジメ  - 06/7/17(月) 15:30 -
引用なし
パスワード
   ACCESSの初心者です。
テーブルから同一得意先No.のデータを集計してクエリを作成しました。
そして次の処理で作成したクエリを得意先No.で集計結果を参照したいのですが
コードの書き方が分かりません。テーブルを参照するSQLでは上手くできるのですが
クエリを参照するコードの書き方が分かりません。
初歩的な質問ですが、どなたかお教え下さい。お願いします。
【8283】Re:クエリのデータ参照
発言  小僧  - 06/7/18(火) 11:22 -
引用なし
パスワード
   ▼ハジメ さん：
こんにちは。

> テーブルを参照するSQLでは上手くできるのですが
> クエリを参照するコードの書き方が分かりません。

テーブルを参照するコードもクエリを参照するコードも
基本的な所では変わりはありません。

現在どのようなコードを書いていて、
どこで躓いてしまっているのかをご提示して頂くと
回答が付きやすくなると思われます。
【8284】Re:クエリのデータ参照
回答  レモン  - 06/7/18(火) 11:32 -
引用なし
パスワード
   VBAから参照して使用するということでしょうか？

Dim db　As Database
Dim rs1 As Recordset

Set db = CurrentDb()

Set rs1 = db.OpenRecordset("que01", dbOpenDynaset)

if rs1!項目1=0 then
・・・・
end if


それともクエリを参照するクエリを作成・・？
もう少し具体的な情報を・・・
【8285】Re:クエリのデータ参照
質問  ハジメ  - 06/7/18(火) 13:48 -
引用なし
パスワード
   小僧さん レモンさん
早速のお返事ありがとうございます。

テーブルの参照のコードは以下のようにしています（この方法だけ知っています）

　dim Sql as string
　dim DB　as database
　dim RS　as recordset

　set DB = curentDb

　Sql = "select * from T_TOKMAS where TOKCD = " & me!TOKCD

　set RS = DB.OpenRecordset(Sql)
　if RS.Recordcount=0 then
　　 ・・・・
　else
　　・・・
　end if
　
　上のコードでT_TOKMASのところをクエリに変更して実行しましたが
上手くできませんした。
　よろしくお願いします。

　
【8286】Re:クエリのデータ参照
回答  小僧  - 06/7/18(火) 14:30 -
引用なし
パスワード
   ▼ハジメさん、レモン さん：
こんにちは。

ツリーの一番下にレスしますね。

> dim Sql as string
> dim DB　as database
> dim RS　as recordset
>
>　set DB = curentDb
>
>　Sql = "select * from T_TOKMAS where TOKCD = " & me!TOKCD
>
>　set RS = DB.OpenRecordset(Sql)
>　if RS.Recordcount=0 then
>　　 ・・・・
>　else
>　　・・・
>　end if

どこでどの様なエラーが出ているのかが明記されておりませんので
まずはエラー内容やエラー箇所を提示してみて下さい。

ご提示されたコードだけですと
基本的にはテーブルでもクエリでも変わりなく実行できる模様ですが、
以下いくつか気づいた点を…。


> dim Sql as string

MSの技術情報よりです
Access 2002 と Access 2003 の予約語の一覧

http://support.microsoft.com/default.aspx?scid=kb;ja;286335

SQLという変数は予約語の為、早い段階での変更をお勧めします。


> if RS.Recordcount=0 then

ヘルプの Recordcountプロパティに詳細な解説がありますが、
この記述ですと正しいレコード数を返さない場合がありますよ。


>　・・・・

この部分で行っている処理によっては、
テーブルなら許可される事がクエリだと問題になる事もあります。
【8315】Re:クエリのデータ参照
お礼  ハジメ  - 06/7/20(木) 14:27 -
引用なし
パスワード
   小僧さん、レモンさん　

何とか解決しまいた。
ありがとう御座いました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1197 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1084339
(SS)C-BOARD v3.8 is Free