Как извлечь значения из записи в связанных таблицах используя VBA

@ivan_boev78 · Регистрация: 03.05.2022

Студворк — интернет-сервис помощи студентам

Здравствуйте. Подскажите, пожалуйста по следующему вопросу: есть две таблицы: "сотрудники" и "должности".
- В таблице "сотрудники" есть поля "фамилия", "имя", "отчество" и "должность".
- В таблице "должности" есть поля "код должности", "должность", "должность кратко", "должностьРП"(должность в родительном падеже).
- Таблицы связаны стандартно по полю "должность"-"код должности".
- Выбор конкретного сотрудника происходит с помощью ComboBox по фамилии(источником строк для списка является таблица "сотрудники").

Как после выбора сотрудника из списка обращаться к остальным данным в VBA? То есть, скажем, присвоить переменной, sName - его имя, а переменной sPostRP - его должность в родительском падеже(значение которой вообще находятся в другой таблице).

На форме ни имя, ни другие данные сотрудника никак не отображаются, только выпадающий список с фамилиями.

@VinniPuh · 04.05.2022, 18:53

ivan_boev78, Кстати, вот нашел примерчик у себя в сусеках.
Может пригодится.

@alvk · 05.05.2022, 06:42

Сообщение от ivan_boev78

или ячейки

Это что?

В VBA рекордсет используйте

@SDKU · 05.05.2022, 20:36

Как-то так
"защита от дурака" типа не выбрано значение в списке не делалась
см Form1:

@SDKU · 05.05.2022, 21:32

и еще-торопился перепутал имена списков-давайте ясные имена-не делайте так как в примере

@ivan_boev78 · 05.05.2022, 21:38 **[ТС]**

Спасибо всем. С этим вопросом, вроде, как разобрался. Появился еще один:
Мне надо по нажатию на кнопку сменить RecordSource у комбобокса. В качестве источника строк выступают два запроса: Запрос1(который изначально привязан к комбобоксу) и Запрос2(который нужно подставить в качестве источника строк). Если я делаю вот так:

Visual Basic
1
2
3
4
 
Private Sub MyBtn_Click()
ComboBox1.RecordSourse = "SELECT Сотрудники.Фамилия FROM Сотрудники WHERE (((Сотрудники.должность)=5));"
End Sub

, где "SELECT Сотрудники.Фамилия FROM Сотрудники WHERE (((Сотрудники.должность)=5));" - это и есть содержимое запроса "Запрос2", то все работает
Собственно вопрос: можно ли вместо строки на SQL просто как-то вызвать запрос по его названию? Чтобы было что-то вроде

Visual Basic
1
2
3
4
 
Private Sub MyBtn_Click()
ComboBox1.RecordSourse = Запрос2
End Sub

@Capi · 05.05.2022, 22:09

ivan_boev78,

Вот так:

Visual Basic
1
ComboBox1.RecordSourse = "Запрос2"

@ivan_boev78 · 07.05.2022, 22:16 **[ТС]**

Спасибо

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

@ivan_boev78 0 / 0 / 0 Регистрация: 03.05.2022 Сообщений: 10

	Как извлечь значения из записи в связанных таблицах используя VBA 03.05.2022, 11:01. Показов 2746. Ответов 26 Метки access, vba, vba access (Все метки) Здравствуйте. Подскажите, пожалуйста по следующему вопросу: есть две таблицы: "сотрудники" и "должности". - В таблице "сотрудники" есть поля "фамилия", "имя", "отчество" и "должность". - В таблице "должности" есть поля "код должности", "должность", "должность кратко", "должностьРП"(должность в родительном падеже). - Таблицы связаны стандартно по полю "должность"-"код должности". - Выбор конкретного сотрудника происходит с помощью ComboBox по фамилии(источником строк для списка является таблица "сотрудники"). Как после выбора сотрудника из списка обращаться к остальным данным в VBA? То есть, скажем, присвоить переменной, sName - его имя, а переменной sPostRP - его должность в родительском падеже(значение которой вообще находятся в другой таблице). На форме ни имя, ни другие данные сотрудника никак не отображаются, только выпадающий список с фамилиями. 0

@ivan_boev78 0 / 0 / 0 Регистрация: 03.05.2022 Сообщений: 10
	07.05.2022, 22:16 [ТС]
	Спасибо 0

Как извлечь значения из записи в связанных таблицах используя VBA

Решение