Автоматическая вставка данных из таблицы в форму

@daewoosh · Регистрация: 23.12.2010

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

имеется таблица людей каждый их кот. имеет серию и номер документа и ФИО. так же имеется форма для добавления записей в другую таблицу.она содержит в себе поля для ввода серии номера и ФИО человека.как сделать чтоб при добавлении в поля серии и номера документа,ФИО подставлялось в остальные поля из первой таблицы по однозначному соответствию автоматически?

@daewoosh · 24.12.2010, 00:55 **[ТС]**

все в таблицах нормализовано.сделать надо с помощью ВБА

@Елена · 24.12.2010, 06:55

daewoosh, дайте источники и формы

@daewoosh · 24.12.2010, 07:27 **[ТС]**

вот источник, таблица в которую подставляется и форма с помощью котрой добаавляем.необходимо на форме ввести только серию и полис, а ФИО заполняется автоматически

@RoNikyo · 24.12.2010, 12:33

в таблицах этого не надо делать, а вот в запросе достаточно просто. И в Форме тоже. Просто через мастер создания форм добавьте еще поле с кодом и Всё

@Kadrovik · 28.03.2011, 19:23

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

в таблицах этого не надо делать, а вот в запросе достаточно просто. И в Форме тоже. Просто через мастер создания форм добавьте еще поле с кодом и Всё

У меня не получается. В форме выбираю из списка данные но все остальные из таблицы данные не вставляются в форму, почему?

@Agapov_stas · 29.03.2011, 09:53

Kadrovik, DLookup Вам в помощь!

Вот пример :

Visual Basic
1
2
3
4
5
Private Sub n_pol_AfterUpdate()
On Error Resume Next
Me!fam.Value = DLookup("[fam]", "[ВашаТаблица]", _
               "[key] = " & Me. n_pol.Column(1))
End Sub

ВашаТаблица - таблица, откуда будете брать значения fam.

@RoNikyo · 29.03.2011, 11:20

И не должно получатся. Таблицы то у вас разные? Вот Access и не понимает. что Вы от него хотите. Вам нужно сделать запрос. в котором объединить данные из первой таблицы и из второй. А потом на основе запроса сделать форму. Тогда связь для Access'а будет понятна, и он сделает так, как Вам нужно. Только учитывайте, что поскольку форма сделана на основе запроса, редактировать данные в ней не получится.

@ironegg · 29.03.2011, 18:31

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

Только учитывайте, что поскольку форма сделана на основе запроса, редактировать данные в ней не получится

вообще говоря это не так. чаще всего, всетаки, получиться.

@Kadrovik · 30.03.2011, 13:50

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

Kadrovik, DLookup Вам в помощь!

Вот пример :

Visual Basic
1
2
3
4
5
Private Sub n_pol_AfterUpdate()
On Error Resume Next
Me!fam.Value = DLookup("[fam]", "[ВашаТаблица]", _
               "[key] = " & Me. n_pol.Column(1))
End Sub

ВашаТаблица - таблица, откуда будете брать значения fam.

Спасибо друг!!! Только объясни пожалуйста куда нужно вставить твой код! Спасибо еще раз.

@Agapov_stas · 30.03.2011, 14:18

Базу скиньте(естественно упрощенный вид,по теме) покажу..Ато непонятно из какой таблицы необходимо именно брать значения,так как у Вас в обеих одно и то же поле.

Только объясни пожалуйста куда нужно вставить твой код!

Откройте VBA Вашей формы(которая указана Вами вначале топика), и вставьте код.

@ironegg · 31.03.2011, 12:27

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

Только объясни пожалуйста куда нужно вставить твой код

в режиме конструктора открой свойства элемента n_pol, на вкладке События нажми кнопку с тремя точками для события ПослеОбновления. откроется редактор VBA с заготовкой пустого обработчика этого события

@Kadrovik · 31.03.2011, 18:10

Спасибо дружище! Но я наверное не смогу преодолеть это препятствия. У меня не получается, выдает ошибки. Вот выкладываю свою базу может сможет кто помочь?

@Agapov_stas · 01.04.2011, 09:18

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

Спасибо дружище! Но я наверное не смогу преодолеть это препятствия. У меня не получается, выдает ошибки. Вот выкладываю свою базу может сможет кто помочь?

Здравствуйте,Kadrovik!
Вы уж тогда хоть в Access 2003 выложите базу.

@Anatolij13 · 01.04.2011, 19:14

Скачал, посмотрел.
А куда подстановка-то нужна?

p.s. раз уж уже скачал, то выкладываю в А2003

@Kadrovik · 01.04.2011, 23:41

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

Здравствуйте,Kadrovik!
Вы уж тогда хоть в Access 2003 выложите базу.

Спасибо за вопрос. Подстановка нужна в главной форме, а именно, после запуска программы нажимаем кнопку работа с базой, далее в таблицу список учреждений. Выбираю учреждение хотелось бы чтобы код ГРБС сам ставился. И еще может кто поможет посмотреть почему не работает выгрузка с формы отчета в эксель (после запуска программы нажимаем кнопку работа с базой, далее кнопка отчет, далее кнопка основные показатели, и наконец кнопка копировать в таблицу. Если кто поможет буду благодарен. Спасибо всем кто помогает!!!!

@Agapov_stas · 02.04.2011, 12:41

Kadrovik,непонятно откуда должны браться значения для поля со списком "Наименование"?
Из таблицы "Список учреждений" ? или же из таблицы "Перечень предприятий"?
Вообщем если первое, то так :
1)Для поля со списком "Наименование"

SQL
1
SELECT DISTINCT [Список учреждений].[Наименование], [Список учреждений].[№ п\п]  FROM [Список учреждений]

Число столбцов - 2, Присоединенный столбец-1,Ширина -3,651;0
На форме код:

Visual Basic
1
2
3
4
5
6
Private Sub Наименование_AfterUpdate()
On Error Resume Next
Me![код учреждения].Value = DLookup("[код ГРБС (ПБС)]", "[Список учреждений]", _
                     "[№ п\п] = " & Me.Наименование.Column(1))
 
End Sub

Если второе, то:
2)Для поля со списком "Наименование" :

SQL
1
SELECT DISTINCT [Перечень предприятий].[Наименование], [Перечень предприятий].[Код]  FROM [Перечень предприятий]

Число столбцов - 2, Присоединенный столбец-1,Ширина -3,651;0

Visual Basic
1
2
3
4
5
6
Private Sub Наименование_AfterUpdate()
On Error Resume Next
Me![код учреждения].Value = DLookup("[Код ГРБС]", "[Перечень предприятий]", _
                    "[Код] = " & Me.Наименование.Column(1))
 
End Sub

Как-то так..Только непонятно, что Вы хотите сделать

@Kadrovik · 02.04.2011, 22:16

Вариант №2. Спасибо огромное сейчас попробую. А для чего скажу просто, заказчик попросил.

Добавлено через 19 минут
Братишка, у меня что то не получилось. У меня офис 2007, может по этому, или что то надо подключить? Сделал по 2 варианту.

@Agapov_stas · 03.04.2011, 12:55

Вы действительно так все написали?
От версии Акса это не влияет..
Скорее всего что-то упустили..Я проверял два варианта, - у меня работало.
Проверьте :
Число столбцов -2
Присоединенный-1
И название контрола на форме..(чаще всего тут у всех проблема)

@Kadrovik · 03.04.2011, 18:54

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

Вы действительно так все написали?
От версии Акса это не влияет..
Скорее всего что-то упустили..Я проверял два варианта, - у меня работало.
Проверьте :
Число столбцов -2
Присоединенный-1
И название контрола на форме..(чаще всего тут у всех проблема)

Извини, не понял что такое "контрола на форме.." А число столбцов и присоединенный совпадает с твоими. Может вышлешь свою рабочую форму, а я её импортирую! Спасибо заранее!

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@daewoosh 1 / 1 / 0 Регистрация: 23.12.2010 Сообщений: 3

	Автоматическая вставка данных из таблицы в форму 24.12.2010, 00:18. Показов 5213. Ответов 26 Метки нет (Все метки) имеется таблица людей каждый их кот. имеет серию и номер документа и ФИО. так же имеется форма для добавления записей в другую таблицу.она содержит в себе поля для ввода серии номера и ФИО человека.как сделать чтоб при добавлении в поля серии и номера документа,ФИО подставлялось в остальные поля из первой таблицы по однозначному соответствию автоматически? Миниатюры 1

@daewoosh 1 / 1 / 0 Регистрация: 23.12.2010 Сообщений: 3
	24.12.2010, 00:55 [ТС]
	все в таблицах нормализовано.сделать надо с помощью ВБА 0

@Елена 2454 / 797 / 24 Регистрация: 18.08.2009 Сообщений: 1,697
	24.12.2010, 06:55
	daewoosh, дайте источники и формы 0

@daewoosh 1 / 1 / 0 Регистрация: 23.12.2010 Сообщений: 3
	24.12.2010, 07:27 [ТС]
	вот источник, таблица в которую подставляется и форма с помощью котрой добаавляем.необходимо на форме ввести только серию и полис, а ФИО заполняется автоматически Миниатюры 0

@RoNikyo 4 / 4 / 0 Регистрация: 10.12.2010 Сообщений: 24
	24.12.2010, 12:33
	в таблицах этого не надо делать, а вот в запросе достаточно просто. И в Форме тоже. Просто через мастер создания форм добавьте еще поле с кодом и Всё 0

@RoNikyo 4 / 4 / 0 Регистрация: 10.12.2010 Сообщений: 24
	29.03.2011, 11:20
	И не должно получатся. Таблицы то у вас разные? Вот Access и не понимает. что Вы от него хотите. Вам нужно сделать запрос. в котором объединить данные из первой таблицы и из второй. А потом на основе запроса сделать форму. Тогда связь для Access'а будет понятна, и он сделает так, как Вам нужно. Только учитывайте, что поскольку форма сделана на основе запроса, редактировать данные в ней не получится. 0

@Kadrovik 1 / 1 / 0 Регистрация: 04.01.2011 Сообщений: 27
	02.04.2011, 22:16
	Вариант №2. Спасибо огромное сейчас попробую. А для чего скажу просто, заказчик попросил. Добавлено через 19 минут Братишка, у меня что то не получилось. У меня офис 2007, может по этому, или что то надо подключить? Сделал по 2 варианту. 0

@Agapov_stas 3357 / 1776 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	03.04.2011, 12:55
	Вы действительно так все написали? От версии Акса это не влияет.. Скорее всего что-то упустили..Я проверял два варианта, - у меня работало. Проверьте : Число столбцов -2 Присоединенный-1 И название контрола на форме..(чаще всего тут у всех проблема) 1