定義域関数の抽出と連結表示について

質問

• Win XP Access2002で、クエリ上で同一種別groupで20個のcodeを抽出し連結したい。
• 抽出するデータは、同一種別の中で常時最大20個で、欠番を含め約30000件ある。
• VBAもしくはSQLで簡単な関数による連結方法を教えてほしい。

回答No.2

30246kiku

＃１です

> 1.種別groupが空白の場合、#エラーが表示されます。

＃１　で提示した
Public Function GetCode20(iNum As Long) As String
は、NULL を受け取れません。なので、クエリから呼び出す際にエラーになったと思います。

NULL を受け取れるようにするのなら Variant である必要があります。
Public Function GetCode20(iNum As Variant) As String

NULL の扱いがあることから SQL 部分をそれなりに処理追加します。

If (IsNull(iNum)) Then
　　rs.Source = "SELECT TOP 20 code FROM T_code WHERE 種別group Is Null ORDER BY code;"
Else
　　rs.Source = "SELECT TOP 20 code FROM T_code WHERE 種別group = " & iNum & " ORDER BY code;"
End If

> 3.TOP 20を削除するとすべて表示されます。ループ部分で２０件カウントという表示方法

変数の宣言部分で Dim i As Integer を追記しているとします。
例えば、ループのところで以下のように記述します。

　　i = 0
　　While ((Not rs.EOF) And (i<20))
　　　　sRet = sRet & " " & rs("code")
　　　　rs.MoveNext
　　　　i = i + 1
　　Wend

とか

　　i = 0
　　Do While (Not rs.EOF)
　　　　sRet = sRet & " " & rs("code")
　　　　rs.MoveNext
　　　　i = i + 1
　　　　If( i >= 20 ) Then Exit Do
　　Loop

> 2.種別groupの数が100件以上有る場合、同一データが抽出されてしまうのですが、
> 種別group_2を追加して複合検索、またさらに検索条件を複数追加する時はどのようにすればよろしいでしょうか

すみません。テーブル構造等イメージできてません。
そもそも、＃１　の回答であっていたのか、わからなくなっています。

素の構造と素のサンプルデータを提示いただければ、回答できるかもしれません。

お礼

迅速なご回答本当にありがとうございます。

＃１　＃３　両方ともクリアできました。
徐々に勉強しながら進めて下ります。

問題の＃２ですが、ご教授していただきましたことで実際に入力していくと
どんどんエスカーレートしてしまい本題がご指摘どおりずれていってしまいました。
大変申し訳ございません。

補足

テーブル構造をお伝えさせていただきます。おかげさまで理想にかなり近づきました。
今度は、複合検索後のcode抽出をし始まりの番号を１つずつずらしていきたいのですが・・・
DMaxなどで動作をさせるのでしょうか。私の言葉の説明不足でここで初めて定義域関数ということにつながると思うのですが・・・

抽出項目
1.種別group_1　同一グループで最大20個のcodeを抽出
ここまでOKです。

2.sold　欠番を飛ばしてつめて抽出(表示codeから外したいです)

3.種別group_2　最初のcode番号を変えたいです(300件くらいの同一データの分割)

4.rinkフィールドでcodeを1つずつずらして表示したいです)

テーブル名1　[T_cart_category]
フィルード名1 code　(データ型・・・数値　長整数型)
フィルード名2 sold　(データ型・・・テキスト型)

テーブル名2　[T_code]
フィルード名1　ID　　(データ型・・・オートナンバー)
フィルード名2 code　(データ型・・・数値　長整数型)
フィルード名3 種別group_1　(データ型・・・数値　長整数型)

テーブル名3　[T_cart_item]
フィルード名1 code　(データ型・・・数値　長整数型)
フィルード名2 種別group_2　(データ型・・・数値　長整数型)

クエリ名　[C_code]
フィルード名1 [T_category]![code]
フィルード名2 rink: GetCode20([T_code]![種別group])

大変お手数をおかけいたします、再度ご教授よろしくお願いいたします。