Dim TabloAdi As Recordset
Dim AlanAdi As Field
 
Set TabloAdi = CurrentDb.OpenRecordset("EVRAK_KAYIT_TABLOSU")
    For Each AlanAdi In TabloAdi.Fields
        Açılan_KutuAdi.AddItem AlanAdi.Name
    Next
TabloAdi.Close
Set TabloAdi = Nothing

Dim TabloAdi As Recordset
Dim AlanAdi As Field
Dim txtSql As String
Açılan_Kutu78.RowSource = ""
txtSql = " SELECT EVRAK_KAYIT_TABLOSU.SNO, EVRAK_KAYIT_TABLOSU.KAYIT_TARIHI, EVRAK_KAYIT_TABLOSU.EVRAK_TARIHI, " & _
         " EVRAK_KAYIT_TABLOSU.ONCELIK_DURUMU, EVRAK_KAYIT_TABLOSU.EVRAK_KAYIT_YERI, EVRAK_KAYIT_TABLOSU.HATIRLATMA_TARIHI" & _
         " FROM EVRAK_KAYIT_TABLOSU"
 
Set TabloAdi = CurrentDb.OpenRecordset(txtSql)
    For Each AlanAdi In TabloAdi.Fields
        Açılan_Kutu78.AddItem AlanAdi.Name
    Next
TabloAdi.Close
Set TabloAdi = Nothing