| |
▼チリ子 さん：
こんにちは。
まず、標準モジュールに次のコードをコピペして下さい。
'-----------------------------------------------------------
Function fxMakeGroup(ByVal inNo As Long, inTB As String, ByVal in区分 As Long) As String
Static myGname As String
Static myNum As Long
Static myKUBUN As Long
If myNum <> inNo Or myKUBUN <> in区分 Then
myGname = CStr(inNo) & inTB
End If
myNum = inNo
myKUBUN = in区分
fxMakeGroup = myGname
End Function
'-----------------------------------------------------------
次にクエリーにて、以下をＳＱＬにコピペして下さい。
SELECT UQ2.[No], UQ2.区分, Count(UQ2.区分) AS カウント
FROM (SELECT UQ.*
FROM (SELECT [No], "0504" AS TB, 区分 FROM [0504]
UNION
SELECT [No], "0505" AS TB, 区分 FROM [0505]
UNION
SELECT [No], "0506" AS TB, 区分 FROM [0506]
) AS UQ
ORDER BY [No], TB) AS UQ2
GROUP BY UQ2.[No], UQ2.区分, fxMakeGroup([No],[TB],[区分]);
（ちなみに、フィールド[No]と[区分]は、数値型と想定しています。）
クエリーを実行してみてください。
以上です。
もうちょっと簡単な方法があるかもしれませんが、
とりあえず、参考までに。
|
|
てっちゃん
- 05/10/14(金) 15:06 -
