Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7332 / 9994

←次へ　｜　前へ→


	【5856】Re:複雑なクエリ処理方法について

小僧 - 05/8/15(月) 9:59 -


	引用なし

	パスワード

▼MK&db さん、Gin_II さん：
おはようございます。

>>以下のクエリＡＤがあるとします、クエリＡＤを使って、列の縦方向の合計が
>>ゼロの列を除外したいです。このような煩雑な処理は可能でしょうか？

Null値があるとうまくいかないかもしれませんが、

Sub 動的SQLを作成()
'要参照設定 Microsoft DAO x.x Object Library
Dim SQLCode As String
Dim QD As DAO.QueryDef
Dim FName(1 To 4) As Variant
Dim RecCNT As Long
Dim I As Long

　　FName(1) = "Fe"
　　FName(2) = "Cu"
　　FName(3) = "Si"
　　FName(4) = "Ca"
　　
　　SQLCode = "SELECT ModelNo, NameNo, "
　　
　　RecCNT = DCount("*", "テーブルＡＤ_Group")
　　
　　For I = 1 To UBound(FName, 1)
　　　　If DSum(FName(I), "テーブルＡＤ_Group") > 0 Then
　　　　　　SQLCode = SQLCode & FName(I) & ", "
　　　　End If
　　Next
　　　　SQLCode = Left(SQLCode, Len(SQLCode) - 2) _
　　　　　　　　& " FROM テーブルAD_Group"
　　　　　　　　　　
　　Set QD = CurrentDb.CreateQueryDef("クエリＡＤNew", SQLCode)
　　QD.Close
　　Set QD = Nothing
End Sub

「CreateQueryDef」メソッドでわざわざクエリを作成しているため、
同名のクエリが存在するとエラーになります。

「クエリＡＤNew」をフォームやレポートの基にしたい場合であれば
クエリを作成しなくても変数：SQLCode をレコードソースに代入すれば
結果が表示されると思います。

926 hits

▼

【5704】複雑なクエリ処理方法について MK&db 05/7/29(金) 21:19