Public Function SutunAdi(Kolon As String) As String
Dim Tbl As TableDef, Sayac, Cvp As Long
For Each Tbl In CurrentDb.TableDefs
    If Left(Tbl.Name, 4) <> "MSys" Then
        For Sayac = 0 To Tbl.Fields.Count - 1
            If Kolon = Tbl.Fields(Sayac).Name Then SutunAdi = Tbl.Name: Cvp = 0: Exit Function Else Cvp = -1
        Next Sayac
    Sayac = 0
    End If
Next Tbl
If Cvp = -1 Then SutunAdi = "Aranan Sutun Yok"
End Function

Sub ds()
Debug.Print SutunAdi("no")
End Sub