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
    Set td = db.TableDefs(tabloAdi)
    If Err.Number <> 0 Then
        MsgBox "Bu isimde bir tablo bulunamadı: " & tabloAdi, vbCritical, "Hata"
        Exit Sub
    End If
    On Error GoTo 0
    
    ' Alanları sırayla dolaş
    For Each fld In td.Fields
        If mesaj <> "" Then mesaj = mesaj & ", "
        mesaj = mesaj & fld.Name
    Next fld
    
    ' Sonucu mesaj kutusunda göster
    MsgBox mesaj, vbInformation, "Tablo Alan Listesi"
    
    'Eğer sonucu bir metin kutusuna yazdırmak istiyorsanız metin kutusu adını aşağıya yazınız
    
    'Me.metinkutusu = mesaj
    
End Sub