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)
#3
