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)