Makale numaras�: 155489 - Son G�zden Ge�irme: 19 Ocak 2007 Cuma - G�zden ge�irme: 2.3

ACC: Nas�l �apraz sorguda s�tun ba�l�klar�n� De�i�tir kodu kullan

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

Kullan�m D�� Bilgi Bankas� ��eri�i Yasal Uyar�

Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Sistem �pucuBu makale, kulland��n�zdan farkl� bir i�letim sistemine y�neliktir. Sizinle ilgili olmayabilecek makale i�eri�i devre d�� b�rak�ld�.

Orta: temel makro, kodlama ve birlikte �al��abilirlik becerileri gerektirir.

Hepsini a� | Hepsini kapa

�zet

Bu makalede, Visual Basic for Applications �apraz sorgudaki s�tun ba�l�klar� olarak de�i�tirmek i�in nas�l kullan�laca��n� g�sterir.

Bu makalede, Visual Basic for Applications ve programlama Microsoft Access ile sa�lanan ara�lar� kullanarak Microsoft Access uygulamalar� olu�turma bildi�inizi varsayar. Hakk�nda daha fazla bilgi i�in Visual Basic for Applications "Building uygulamalar� ile Microsoft Access" el ile s�r�m� i�in bkz.

Not: Visual Basic for Applications Access Basic Microsoft Access s�r�m 2.0 adland�r�l�r. Access Basic hakk�nda daha fazla bilgi i�in "Uygulamalar?n?n Kurulmas?" el kitab�na ba�vurun.

Not: Bu makalede kullan�lan teknik BIR g�sterimini, �rnek dosyada Qrysmp97.exe g�r�lebilir. Bu �rnek dosyay� edinme hakk�nda daha fazla bilgi i�in l�tfen Microsoft Knowledge Base'de a�a��daki makaleye bak�n:

182568� (http://support.microsoft.com/kb/182568/EN-US/ ) ACC97: Microsoft Access 97 �rnek sorgular kullan�labilir Y�kleme Merkezi'ndeki

�ste

Daha fazla bilgi

Bir �apraz sorgudaki s�tun ba�l�klar� programsal olarak de�i�tirmek i�in tek yol PIVOT sorgunun SQL �zelli�ine yan t�mcesi d�zeltmektir.

A�a��daki �rnek, Microsoft Access'te bir �apraz sorgu olu�turma konusunda size g�sterir. Sonra size PIVOT sorgunun SQL �zelli�ine yan t�mcesi de�i�tirmek i�in Visual Basic for Applications'� kullanarak sorgu s�tun ba�l�klar� de�i�tirme g�sterir. Bu �rnek �rnek veritaban� Northwind.mdb (veya NWIND.MDB 2.0) kullan�r.

�rnek veritaban�n� Northwind.mdb (veya 2. 0'daki NWIND.MDB) a��n.
Tasar�m g�r�n�m�nde yeni bir sorgu olu�turun ve m��teriler ve Sipari�ler tablolar�n� ekleyin.
Sorgu) men�s�nde, �apraz'� t�klat�n.

Sorgu tasar�m k�lavuzunda, a�a��daki alanlar� ekleyin:

       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

Sorgu) men�s�nde, �al��t�r'� t�klat�n. Sorgu, her m��terinin sipari�lerini sayar ve bunlar� �lkeye g�re grupland�r�r. Her m��terinin ad�, bir s�tun ba�l�� olarak g�r�nd��n� unutmay�n.
G�r�n�m men�s�nden SQL'i t�klat�n. PIVOT yan t�mcesinde'SQL deyimi sonunda, "P�VOT Customers.CompanyName;" okur unutmay�n (veya "PIVOT Customers. [�irket ad�];" s�r�m 2.0).
Sorgu qryOrdersByCountry kaydedin ve sonra kapat�n.
Bir mod�l olu�turun ve hen�z yoksa Tan�mlamalar b�l�m�ne a�a��daki sat�r� yaz�n:
Se�enek Belirtik

A�a��daki yordam yaz�n.

Microsoft Access 7.0 ve 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'�n:

      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

Bu i�levi s�namak i�in <a0></a0>, hata ay�klama penceresi (veya komut penceresi i�inde s�r�m 2.0), a�a��daki sat�r� yaz�n ve ENTER tu�una bas�n.
? ChangeColumnHeadings()
QryOrdersByCountry sorguyu �al��t�r�n. Iki s�tun ba�l�klar� da oldu�unu unutmay�n. Bir s�tun ba�l�� "A harfi ile ba�layan �irket adlar�n� sipari�lerini sayar A" olarak adland�r�l�r; bir "B-Z'ye harfler B ile ba�layan �irket adlar�n� sipari�lerini sayar, Z" olarak adland�r�l�r.
G�r�n�m men�s�nden SQL'i t�klat�n. Yaln�zca ifade unutmay�n PIVOT yan t�mcesi �zg�n sorgudaki SQL taraf�ndan de�i�tirildi.

�ste

Referanslar

Bir <a0>QueryDef</a0> nesnesinin SQL �zelli�i hakk�nda daha fazla bilgi i�in Yard�m dizini �zerinde "�zelli�inde," t�mceci�ini aramak ve "SQL �zelli�i" g�r�nt�lemek veya Microsoft Access 97 Office Yard�mc�s�'n� isteyin.

IIf() i�levi kullanma hakk�nda daha fazla bilgi i�in Yard�m dizininde "I�f i�levi" veya Microsoft Access 97 Office Yard�mc�s�'n� isteyin.

�ste

Bu makaledeki bilginin uyguland�� durum:

Microsoft Access 2.0 Standard Edition
Microsoft Access 95 Standard Edition
Microsoft Access 97 Standard Edition

�ste

kbmt kbhowto kbprogramming kbusage KB155489 KbMttr

�ste

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:155489� (http://support.microsoft.com/kb/155489/en-us/ )

�ste

Kullan�m D�� Bilgi Bankas� ��eri�i Yasal Uyar�

Bu makale, Microsoft'un art�k destek sa�lamad�� r�nler ile ilgili olarak yaz�lm��t�r. Bu nedenle, bu makale "oldu�u gibi" sa�lanm��t�r ve bundan sonra g�ncelle�tirilmeyecektir.

�ste

This site in other countries/regions:

ACC: Nas�l �apraz sorguda s�tun ba�l�klar�n� De�i�tir kodu kullan

�zet

Daha fazla bilgi

Referanslar

Bu makaledeki bilginin uyguland�� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

This site in other countries/regions:

ACC: Nas�l �apraz sorguda s�tun ba�l�klar�n� De�i�tir kodu kullan

�zet

Daha fazla bilgi

Referanslar

Bu makaledeki bilginin uyguland��� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

Bu makaledeki bilginin uyguland�� durum: