文書番号: 155489 - 最終更新日: 2011年7月4日 - リビジョン: 4.0

ACC: クロス集計クエリで列見出しを変更するコードを使用する方法

英語を並べて表示英語と日本語を並べて表示する
機械翻訳機械翻訳版の免責を確認する
Retired KB Articleサポート期間が終了した「サポート技術情報」資料に関する免責事項
対象製品
お知らせお使いのオペレーティング システムには適用しない情報が含まれている場合があります。
警告: は、基本的なマクロ、コーディング、および相互運用性のスキルが必要です。
すべて展開する | すべて折りたたむ

概要

この資料で Visual Basic for Applications を使用して変更する方法を示していますクロス集計クエリの列見出し。

この資料を Visual Basic に精通している前提としていますアプリケーションとを使用して Microsoft Access アプリケーションを作成するのにはMicrosoft Access に付属のプログラミング ツールです。詳細についてはアプリケーションの Visual Basic については、バージョンを参照してください、「Microsoft access アプリケーションを構築する」のマニュアル。

注: Visual Basic for Applications のアクセス基本的なマイクロソフトで呼び出されますAccess バージョン 2.0 です。アクセスの基本の詳細についてを参照してください。「アプリケーションの構築」マニュアルをします。

注: この資料で使用されるテクニックのデモンストレーション アプリ ケーションします。サンプル ファイルで、Qrysmp97.exe。取得する方法についてこのサンプル ファイルは、microsoft の次の資料を参照してくださいナレッジ ベース:
182568? (http://support.microsoft.com/kb/182568/EN-US/ ) [Acc97]: Microsoft Access 97 のサンプル クエリ利用可能なダウンロード センターで
先頭へ戻る

詳細

唯一の方法は、列見出しをプログラムによって変更できます、クロス集計クエリは、クエリの SQL プロパティの PIVOT 句を変更することです。

次の使用例は、Microsoft では、クロス集計クエリを作成する方法を示していますアクセスします。これを使用して、クエリの列の見出しを変更する方法を示していますし、Vba の SQL の PIVOT 句を変更するのには[プロパティ] します。次の使用例を使用して、サンプル データベース Northwind.mdb (または NWIND。MDB2.0) にします。
  1. 開き、サンプル データベース Northwind.mdb (または NWIND。MDB) 2.0。
  2. デザイン ビューで新しいクエリを作成し、顧客と注文を追加します。テーブル。
  3. [クエリ] メニューの [クロス集計] をクリックします。
  4. クエリ グリッドで、次のフィールドを追加します。
           Field: Country
          Total: Group By
          Crosstab: Row Heading
          Sort: Ascending
       Field: Country Total: OrderID (or Order ID in version 2.0)
          Total: Count
          Crosstab: Row Heading
       Field: CompanyName (or Company Name in version 2.0)
          Total: Group By
          Crosstab: Column Heading
       Field: OrderID (or Order ID in version 2.0)
          Total: Count
          Crosstab: Value
  5. [クエリ] メニューの [実行] をクリックします。各顧客の注文のクエリを数します。国によってそれらをグループ化します。各顧客の名前が表示されることに注意してください。列の見出しにします。
  6. [表示] メニューの [SQL] をクリックします。なお、PIVOT 句の末尾にSQL の"ピボット Customers.CompanyName;"ステートメントを読み取りますつまり"ピボット顧客。[会社名];"バージョン 2.0)。
  7. QryOrdersByCountry としては、クエリを保存して閉じます。
  8. モジュールを作成し、宣言で次の行を入力セクションがない場合にします。
    明示的なオプション
  9. 次のプロシージャを入力します。

    Microsoft Access で 7.0 および 97。
     Function ChangeColumnHeadings()
      Dim db As DATABASE
      Dim qd As QueryDef
      Dim strSQL as string
      Set db = CurrentDb()
      Set qd = db.QueryDefs("qryOrdersByCountry")
      strSQL = "TRANSFORM Count(Orders.[OrderID]) AS [CountOfOrder ID] "
      strSQL = strSQL & "SELECT Customers.Country, "
      strSQL = strSQL & "Count(Orders.[OrderID]) AS [Country Total] "
      strSQL = strSQL & "FROM Customers INNER JOIN Orders ON "
      strSQL = strSQL & "Customers.[CustomerID] = Orders.[CustomerID] "
      strSQL = strSQL & "GROUP BY Customers.Country ORDER BY "
      strSQL = strSQL & "Customers.Country PIVOT "
      strSQL = strSQL & "IIf(Customers.[CompanyName] Like 'A*', "
      strSQL = strSQL & "'A', 'B-Z');"
      qd.SQL = strSQL
      End Function
    Microsoft Access 2.0 では。
          Function ChangeColumnHeadings()
      Dim db As DATABASE
      Dim qd As QueryDef
      Dim strSQL as string
      Set db = CurrentDb()
      Set qd = db.QueryDefs("qryOrdersByCountry")
      strSQL = "TRANSFORM Count(Orders.[Order ID]) AS [CountOfOrder ID] "
      strSQL = strSQL & "SELECT Customers.Country, "
      strSQL = strSQL & "Count(Orders.[Order ID]) AS [Country Total] "
      strSQL = strSQL & "FROM Customers INNER JOIN Orders ON "
      strSQL = strSQL & "Customers.[Customer ID] = Orders.[Customer ID] "
      strSQL = strSQL & "GROUP BY Customers.Country ORDER BY "
      strSQL = strSQL & "Customers.Country PIVOT "
      strSQL = strSQL & "IIf(Customers.[Company Name] Like 'A*', "
      strSQL = strSQL & "'A', 'B-Z');"
      qd.SQL = strSQL
      End Function
  10. この関数をテストするには、次の行がデバッグ ウィンドウに入力しますまたは。イミディ エイト ウィンドウでバージョン 2.0)、し、ENTER キーを押します。
    ?ChangeColumnHeadings()
  11. QryOrdersByCountry クエリを実行します。2 つの列があることに注意してください。見出し。1 つの列の見出しが"受注数 A を"と呼ばれます文字 A で始まる会社名です。1 つは「B ・ Z」という、〜 Z の文字 B で始まる会社名の注文をカウントします。
  12. [表示] メニューの [SQL] をクリックします。ピボットの表現だけに注意してください。句は、元のクエリでは、SQL からに変更されました。
先頭へ戻る

関連情報

SQL プロパティは、クエリ定義オブジェクトの詳細についてを検索します。ヘルプのキーワード、フレーズ"SQL、"および、ビュー [SQL] プロパティを"でまたは、Microsoft Access 97 の Office アシスタントに問い合わせてください。

IIf() 関数を使用しての詳細については、ヘルプを検索します。「IIf 関数では」をインデックス付けするか、Microsoft Access 97 の Office アシスタントに問い合わせてください。
先頭へ戻る
この資料は以下の製品について記述したものです。
  • Microsoft Access 2.0 Standard Edition
  • Microsoft Access 97 Standard Edition
先頭へ戻る
キーワード:?
kbhowto kbprogramming kbusage kbmt KB155489 KbMtja
先頭へ戻る
機械翻訳機械翻訳
重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。
英語版 KB：155489? (http://support.microsoft.com/kb/155489/en-us/ )
先頭へ戻る
"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"
Retired KB Articleサポート期間が終了した「サポート技術情報」資料に関する免責事項
この資料は、マイクロソフトでサポートされていない製品について記述したものです。そのため、この資料は現状ベースで提供されており、今後更新されることはありません。
先頭へ戻る