Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
wappo30
0 / 0 / 0
Регистрация: 10.03.2014
Сообщений: 39
1

Свод данных из одинаковых полей разных таблиц

23.04.2015, 09:45. Просмотров 1107. Ответов 6
Метки нет (Все метки)

Добрый день.

Просьба помочь со следующей задачей:

Имеются отдельные таблицы по запчастям у которых есть одинаковые поля: "Код", "Наименование", "Примечание".
Есть необходимость свести эти поля из разных таблиц в одну "Свод", но не могу понять как это сделать из разных таблиц, поскольку через мастер подстановок для одного поля выбирается поле только из одной таблицы, а у меня их несколько, возможно как то через запросы?
0
Вложения
Тип файла: rar Database1.rar (853.5 Кб, 4 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.04.2015, 09:45
Ответы с готовыми решениями:

Заполнение одинаковых полей в двух разных таблицах
Всем добрый день. Нужна помощь. Есть две разные таблицы. Но в них есть...

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

Сумма двух полей разных таблиц
Создаю две таблицы. В первой есть поле с количеством товаров (склад товаров)...

Сделать равенство определенных полей разных таблиц
Что нужно сделать чтобы при занесении данных в одну таблицу автоматом эти...

Какое максимально количество полей можно использовать при запросе из разных таблиц?
Подскажите при запросе из разных таблиц какое максимально колличество полей...

6
duh_si
566 / 166 / 22
Регистрация: 18.10.2012
Сообщений: 887
24.04.2015, 16:35 2
wappo30, посмотрите архив
1
Вложения
Тип файла: rar Database1.rar (853.9 Кб, 7 просмотров)
wappo30
0 / 0 / 0
Регистрация: 10.03.2014
Сообщений: 39
28.04.2015, 14:05  [ТС] 3
Спасибо за предыдущий ответ!
Правда оказалось не совсем то, что задумывалось, но как говорится какой вопрос, такой ответ.

Попробую сформулировать идею более понятно:

Необходимо сделать Форму списка товаров, которая состоит из картинки и подчиненной табличной формы (пример формы «СписокТоваров» в приложенной базе).
В подчиненной табличной форме сводятся по универсальным полям (Артикул, Наименование, Примечание) товары из таблиц товаров (Оси, Втулки и т.д.), но в тоже время не все, а определенные, которые сам пользователь туда подтянет.
Самая главная задача, это установка связи между этой подчиненной формой и таблицами с перечнем товаров (Оси, Втулки и т.д.) для возможности открытия формы Карт товара (КартаВтулки, КартаОси и т.д.) по щелчку номера артикула.

Я уже больше недели ломаю голову над этим вопросом, но смог только додуматься создать таблицу-буфер «Свод» куда сводилась бы вся информация из универсальных полей и после этого подтягивалась в соответствующие подчиненные таблицы для списков товаров. Однако после этого, связь между таблицами всеравно нарушается.
Прошу помочь с решением данного вопроса, если это возможно сделать, или возможно это можно сделать каким то другим способом?

Заранее спасибо!
0
Вложения
Тип файла: rar БазаФ.rar (885.9 Кб, 2 просмотров)
duh_si
566 / 166 / 22
Регистрация: 18.10.2012
Сообщений: 887
28.04.2015, 17:06 4
wappo30, если правильно понял. Так?
1
Вложения
Тип файла: rar БазаФ.rar (908.4 Кб, 9 просмотров)
wappo30
0 / 0 / 0
Регистрация: 10.03.2014
Сообщений: 39
29.04.2015, 07:49  [ТС] 5
Да, совершенно верно.

Я кстати тоже сообразил, как сделать открытие окон из разных таблиц:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Артикул_DblClick(Cancel As Integer)
 
If Me![Наименование] = "Втулка" Then
Me.Поле9 = Me!Артикул
DoCmd.OpenForm "КартаВтулки", , , "Артикул= " & Поле9, , acDialog
End If
 
If Me![Наименование] = "Ось" Then
Me.Поле9 = Me!Артикул
DoCmd.OpenForm "КартаОси", , , "Артикул= " & Поле9, , acDialog
End If
 
If Me![Наименование] = "Подшипник" Then
Me.Поле9 = Me!Артикул
DoCmd.OpenForm "КартаПодшипник", , , "Артикул= " & Поле9, , acDialog
End If
 
End Sub
Т.е. получается, таблица "Свод" и запросы ее формирующие здесь ненужна?

И просьба для общего развития, если не затруднит пояснить код для карт товара:

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Form_Load()
Dim rst As String
rst = "SELECT Втулки.*, Втулки.Артикул " _
    & "FROM Втулки " _
    & "WHERE (((Втулки.Артикул)= " & Artikul & "));"
Me.RecordSource = rst
 
End Sub
и

Visual Basic
1
Public Artikul
0
duh_si
566 / 166 / 22
Регистрация: 18.10.2012
Сообщений: 887
29.04.2015, 08:18 6
Лучший ответ Сообщение было отмечено wappo30 как решение

Решение

код для карт товара
Просто форме программно подсовываем Источник записей, с которым она и будет открыта.

Public Artikul
Объявляется в общем модуле, чтобы её значение можно было получить в любом из модулей форм.

в вашем коде, вот эту строку Me.Поле9 = Me!Артикул можно единожды написать в начале процедуры, этого должно быть достаточно.

По поводу типа данных поля Артикул, сделайте его либо везде числовым, либо текстовым( если предполагаться присутствие текстовых символов в нем ), а не так как у вас сейчас, в одних таблицах число, в других текст.
1
shanemac51
Модератор
Эксперт MS Access
7825 / 3038 / 434
Регистрация: 07.08.2010
Сообщений: 8,259
Записей в блоге: 2
29.04.2015, 09:42 7
МАКЕТ РЕАЛИЗАЦИИ
0
Миниатюры
Свод данных из одинаковых полей разных таблиц  
Вложения
Тип файла: zip БазаФ29.zip (981.1 Кб, 4 просмотров)
29.04.2015, 09:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2015, 09:42

Подставление ряда полей из разных таблиц в зависимости от содержимого другого (ключвого?) поля в форме
Здравствуйте Уважаемые специалисты - программисты и все кто хоть что нибудь ...

Автоматическое создание таблиц из наименований таблиц, имен полей, типов полей
Форумчане, доброго времени суток! Есть таблица в которую автоматом выгрузили...

Запись данных из разных таблиц
добрый день.помогите разобраться.у меня форма заполняеться из таблицы1.в этой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru