Public Sub tst()
Dim tbl
Dim fld
For Each tbl In CurrentDb.TableDefs
For Each fld In tbl.Fields
If fld.Name =  "ИМЯ_ПОЛЯ"  Then MsgBox tbl.Name 'вместо ИМЯ_ПОЛЯ поставь имя поля'
Next fld
Next tbl

Public Sub tst()
Dim tbl
Dim fld
For Each tbl In CurrentDb.TableDefs
 For Each fld In tbl.Fields
  If fld.Name =  "ИМЯ_ПОЛЯ"  Then MsgBox tbl.Name 'вместо ИМЯ_ПОЛЯ поставь искомое имя поля'
 Next fld
Next tbl

End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы