[code=vba]Sub ListeleTabloAlanlari()
   Dim db As DAO.Database
   Dim td As DAO.TableDef
   Dim fld As DAO.Field
   Dim tabloAdi As String
   Dim mesaj As String
   
   ' Kullanıcıdan tablo adını al
   tabloAdi = InputBox("Alan adlarını görmek istediğiniz tablo adını girin:", "Tablo Adı Girişi")
   If tabloAdi = "" Then Exit Sub  ' Boş geçilirse çık
   
   ' Veritabanı nesnesini ayarla
   Set db = CurrentDb
   
   ' Tablo mevcut mu kontrol et
   On Error Resume Next