MS Access

Accessで複数レコードを1レコードにまとめる(運送会社送り状作成のため

投稿日:

Accessに入れてある楽天の注文データをもとに、運送屋さんの送り状伝票を作ろうと思い立った。
しかし、楽天の注文データは、同一の受注番号で複数の商品に分かれている。
例えば一人の人が3点買い物をしたら、レコードは3つできている。
このレコードを一つにまとめて、商品1、商品2・・・商品9というフィールドにそれぞれ入れたい。
やりたいことはそういうことなのだが、WEBでいろんな知恵をあさっても、なかなか自分のやり方にマッチするものが出てこなかったので、自分で作ってみた。

以下、コード。

Public Function ProdHolizon(ORDERNO As String, NO As Integer)
'
'[受注番号] と表示位置(1-10)をキーに商品名を取得し横展開

  Dim dbs As Database
  Dim rst As Recordset
  Dim strSQL As String

    Set dbs = CurrentDb
    strSQL = "SELECT TOP 1 temp1.[商品名] FROM (select top " & NO & " [商品名] from [楽天販売TBL] WHERE [受注番号] = '" & ORDERNO & "' order by [商品名])  AS temp1 ORDER BY temp1.商品名 DESC;"
    Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)
    r = DCount("ID", "楽天販売TBL", "[受注番号] = '" & ORDERNO & "'")
    If NO > r Then
      ProdHolizon = Null
    Else
      ProdHolizon = rst!商品名
    End If
    rst.Close
End Function

上記のコードを、クエリの列にセットする。
例えば、以下のように。

商品が1から10までなら、10列分、作る。
引数は、受注番号と注文された商品名のレコード数の2つ。

実行結果は、以下。

結構、簡単にできたかな。

-MS Access

執筆者:

関連記事

no image

ExcelブックをAccessで読みたいときにリンクテーブルを使わない方法があったとは・・・知らなかった

とある業務で、Access内でExcelブックをリンクテーブルで読む・・・という使い方をしてきた。 (AccessのmdbはNASにおいて共有している。Excelのxlsも同じく) これはこれで便利な …

no image

Access2007でテキストファイルエクスポートしたら1文字ずれる

Access2007で、指定フィールドからLeft関数で10文字とったクエリを作り、固定長でテキストファイルにエクスポートしたら、5000件のデータのうち3件だけが、文字が末尾に1桁多く入り、後ろがず …

no image

Accessのフォーム/レポートのコントロール同士をくっつけて桝目状にしたい

レポートを、Excelのような桝目の罫線にしたい。 お客からこんなニーズが多い。 やったことがある人ならわかるけど、これが、なかなか苦労する。 レポートのデザインビューで、いざ個々にコントロールをきち …

no image

Accessであらかじめリンクテーブルを開いておくと劇的に高速化

リンクテーブルに対して「Dlookupで値を探して見つかったらCurrentDb.Execute UPDATE~ で値を更新」という処理をループで回している。 この処理、一旦始めると、終えるのに30分 …

no image

Accessで実行時エラー’2465′ 指定した式で参照されている’txt区分’フィールドが見つかりません

VBAでフォームをMe.RecalcあるいはMe.Requeryしただけで、タイトルのエラーが出るケースに遭遇。F9キーを押すと同じ動作になるはずだが、キー押下では上記エラーは出ず、不思議。 ネット検 …