Sorguda sütun başlıklarına nasıl koşul konur?

Merhabalar;

Arkadaşlar siteyi epeydir takip ediyorum, ve faydalanıyorum. Siteye olan bu ilk sorumu cevaplayan arkadaş olursa sevinirim. Sitede bulamadım.
Benim sorum bir sorguda sütun başlığına nasıl koşul yazılır? Ekteki örnekte açıklamaya çalıştım. Sütun başlığı bir formdaki bir metin kutusuna yazılan ifadeye göre nasıl değişir.

Yardımcı olacak arkadaşa şimdiden teşekkürler.

İstediğiniz bu mu ?

Merhaba..

Düğmeye bu kodu yazıp trz isimli sorguyu açınız..:

Not: il ve ilçesi alanları için aynı tablodaki gibi ilk harfleri büyük kullanmanız gerekir..

Dim aa As DAO.QueryDef
Dim bb As DAO.Database
Dim sorgu As String


Const GeciciSorgu As String = "trz"
sorgu = "select adı, " & Me.Metin0 & " from tanım"

Set bb = CurrentDb
On Error Resume Next
DoCmd.DeleteObject acQuery, GeciciSorgu
Set aa = bb.CreateQueryDef(GeciciSorgu, sorgu)

Sn taruz ve sn ayhan2122, katkılarınız için teşekkürler..

Sayın ayhan2122 önce sizin yaptığınızı denedim ancak sadece etiketler değişti. Veriler gelmedi. Daha sonra Sayın Taruz un verdiği kodu kullandım ve tam istediğim gibi çalıştı. İkinizi de katkılarınızdan dolayı teşekkür ederim.

Sayın mahirozcan;

Merhaba... İyi hafta sonları...

Sayın ayhan2122 ve Taruz hocamın önerine göre, dosyanın en son halini siteye ekleyebilir misiniz?

Teşekkürler...