Обновление таблицы-источника формы

@vadim008 · Регистрация: 08.05.2013

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

Есть две таблицы:
1. НаборЦветов
2. ВыбранныеЦвета
и форма ВыбранныеЦвета
Источником формы является таблица ВыбранныеЦвета.
Поле Название заполняется из таблица НаборЦветов.
Нужно после выбора Названия из списка скопировать поле Цвет из выбранной записи НаборЦветов в текущую запись ВыбранныеЦвета.
Пример во вложении.

@ltv_1953 · 12.05.2013, 12:23

Структура таблиц изменена - принято делать ссылку на код, а не название цвета. Форма во вложении.

@vadim008 · 13.05.2013, 10:03 **[ТС]**

Благодарю!
А почему у меня не получилось вот так:

Visual Basic
1
2
3
4
Private Sub Название_AfterUpdate()
    Me.Цвет = Me.Название.Column(1)
    DoCmd.RunCommand acCmdSaveRecord
End Sub

@ltv_1953 · 13.05.2013, 10:33

Это Вы о какой базе. В вашей выложенной версии такого быть не может. В той. что предложил я - названия нет.
Возможно Вы о такой процедуре

Visual Basic
1
2
3
Private Sub Код_Цвета_AfterUpdate()
    Me.Цвет = Me.Код_Цвета.Column(1)
End Sub

Column(1) - это название. а не цвет. Можно попытаться добавить еще столбец с цветом в запрос для поля со списком и тогда сослаться на Column(2), но. насколько я помню. ничего не получится - данные типа "объект OLE" специфические.

@vadim008 · 13.05.2013, 10:36 **[ТС]**

Это я еще после отправки письма экспериментировал.
Большое спасибо!

@vadim008 · 13.05.2013, 14:45 **[ТС]**

Переделал пример, как мне нужно. Две одинаковые таблицы НаборЦветов и ВыбранныеЦвета.
В форме ВыбранныеЦвета нужно заполнять таблицу ВыбранныеЦвета из таблицы НаборЦветов.
В последствии таблица НаборЦветов м.б. удалена, останется только ВыбранныеЦвета.

@ltv_1953 · 13.05.2013, 15:13

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

Переделал пример, как мне нужно

И он перестал работать. Какая досада. Посмотрите, что Вы слепили. Цвет1 был в источнике данных, теперь он в списке, ... . Внимательно сравните с тем, что работало.

@vadim008 · 13.05.2013, 15:27 **[ТС]**

Может ошибаюсь, поправьте:
- Источником формы ВыбранныеЦвета является таблица ВыбранныеЦвета
- Нужный цвет из таблицы НаборЦветов выбираю через поле со списком Название. Источником этого списка является таблица НаборЦветов. Присоединенный столбец - первый, т.к. первым в запросе идет Название цвета. Второе поле запроса - Цвет1. Это поле нужно присвоить полю Цвет источника данных формы ВыбранныеЦвета. Пробовал так: Me.Цвет = Me.Название.Column(1) - не получается.
Как заполнить таблицу ВыбранныеЦвета именно при той структуре таблиц, которая во вложении?

@ltv_1953 · 13.05.2013, 15:47

- Источником формы ВыбранныеЦвета является таблица ВыбранныеЦвета связанная с НаборЦветов. Цвет из нее - Цвет1 (см. пример).
- Нужный цвет из таблицы НаборЦветов выбираю через поле со списком. Источником этого списка является таблица НаборЦветов. Присоединенный столбец - первый, т.к. первым в запросе идет Название цвета. Других полей не нужно, раз Вы подставляете Название, а код - значение счетчика. И процедура та же, что была в примере

Visual Basic
1
2
3
Private Sub Название_AfterUpdate()
    Me.Цвет = Me.Цвет1
End Sub

Форма будет работать, пока есть обе таблицы (в этом же и есть ее назначение - из всех цветов выбрать нужные). Когда удалите таблицу НаборЦветов, тогда удалите и форму, выбирать же уже не из чего будет.

@vadim008 · 13.05.2013, 16:01 **[ТС]**

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

Форма будет работать, пока есть обе таблицы (в этом же и есть ее назначение - из всех цветов выбрать нужные). Когда удалите таблицу НаборЦветов, тогда удалите и форму, выбирать же уже не из чего будет.

Именно это мне и нужно. Цель - заполнить таблицу ВыбранныеЦвета через форму. Потом эта таблица уйдет в другое место.

Добавлено через 10 минут

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

- Источником формы ВыбранныеЦвета является таблица ВыбранныеЦвета связанная с НаборЦветов. Цвет из нее - Цвет1 (см. пример).
-

Я так понимаю, это ключевой момент: таблица ВыбранныеЦвета, связанная с таблицей НаборЦветов?
И от этой связи не уйти?

@ltv_1953 · 13.05.2013, 16:40

Непонятно, чему это мешает. Тем более в форме, который потом будет заведомо удалена.

@vadim008 · 13.05.2013, 16:54 **[ТС]**

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

Непонятно, чему это мешает. Тем более в форме, который потом будет заведомо удалена.

Да ничему, кроме въезжания в Access.
Ожидал, что раз таблица ВыбранныеЦвета заполняется данными из таблицы НаборЦветов через форму, то источником данных формы должна быть только одна таблица - ВыбранныеЦвета. А оказывается, таблицы нужно связывать. Зачем?

@ltv_1953 · 13.05.2013, 18:06

Чтобы добраться до значения цвета - это один из вариантов когда нужно кроме кода (или наименования) подставить в таблицу еще и значение. Есть и другие варианты (Вы же пробовали вариант с Column(1)), но у Вас специфический тип значения и подошел этот.

@vadim008 · 14.05.2013, 12:54 **[ТС]**

Попытался сделать через запрос

Visual Basic
1
2
3
4
5
Private Sub Название_AfterUpdate()
    Dim r As DAO.Recordset
    Set r = CurrentDb.OpenRecordset("SELECT ВыбранныеЦвета.Название, ВыбранныеЦвета.Цвет FROM ВыбранныеЦвета WHERE ((ВыбранныеЦвета.Название)=[Me]![Название]);")
    DoCmd.RunCommand acCmdSaveRecord
End Sub

При выборе цвета из списка выводится сообщение "Слишком мало параметров. Требуется 1."
Хотя отдельный запрос работает. В чем дело?
Пример во вложении.

mobile · 14.05.2013, 13:59

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

При выборе цвета из списка выводится сообщение "Слишком мало параметров. Требуется 1."

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

Visual Basic
1
WHERE ВыбранныеЦвета.Название='" & [Me]![Название] & "'")

@vadim008 · 14.05.2013, 14:35 **[ТС]**

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

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

Visual Basic
1
WHERE ВыбранныеЦвета.Название='" & [Me]![Название] & "'")

Теперь выдает ошибку: Приложению "Microsoft Office Acces" не удается найти поле "|", указанное в выражении.
Пробовал вместо "!" ставить "." - то же самое. Сейчас текст процедуры следующий:

Visual Basic
1
2
3
4
5
Private Sub Название_AfterUpdate()
    Dim r As DAO.Recordset
    Set r = CurrentDb.OpenRecordset("SELECT ВыбранныеЦвета.Название, ВыбранныеЦвета.Цвет FROM ВыбранныеЦвета WHERE ВыбранныеЦвета.Название='" & [Me].[Название] & "'")
    DoCmd.RunCommand acCmdSaveRecord
End Sub

Добавлено через 13 минут
Запрос заработал в такой редакции:

Visual Basic
1
2
3
4
5
Private Sub Название_AfterUpdate()
    Dim r As DAO.Recordset
    Set r = CurrentDb.OpenRecordset("SELECT ВыбранныеЦвета.Название, ВыбранныеЦвета.Цвет FROM ВыбранныеЦвета WHERE ВыбранныеЦвета.Название='" & Название & "'")
    DoCmd.RunCommand acCmdSaveRecord
End Sub

И как теперь извлечь из r цвет и присвоить полю Цвет?
Наверное так:

Visual Basic
1
Цвет=r.Fields("Цвет")

?

@alvk · 14.05.2013, 15:26

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

DoCmd.RunCommand acCmdSaveRecord

Это некрасиво и много, так лучше:

Visual Basic
1
me.dirty = false

А чтобы сразу получить r :

Visual Basic
1
2
3
dim r
r = CurrentProject.Connection.Execute("SELECT ВыбранныеЦвета.Название, ВыбранныеЦвета.Цвет _
FROM ВыбранныеЦвета WHERE ВыбранныеЦвета.Название='" & me.Название & "'").fields(1).value

но в вашем случае я бы не мудрил особо:

Visual Basic
1
2
dim r
r = dlookup("цвет","выбранныецвета"," Название= '" & me.Название & "'")

@vadim008 · 14.05.2013, 16:23 **[ТС]**

Ой спасибо - заработало! Даже оба варианта:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Название_AfterUpdate()
    Dim r As DAO.Recordset
    Dim k
    Set r = CurrentDb.OpenRecordset("SELECT НаборЦветов.Название, НаборЦветов.Цвет FROM НаборЦветов WHERE НаборЦветов.Название='" & Название & "'")
    k = DLookup("Цвет", "НаборЦветов", "Название='" & Название & "'")
    Цвет = k
    Цвет = r.Fields("Цвет")
    ' DoCmd.RunCommand acCmdSaveRecord
    Me.Dirty = False
End Sub

Оставлю вариант с DLookup, как более шустрый по сравнению с запросом.
А почему лучше так: Me.Dirty = False?

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@vadim008 10 / 7 / 0 Регистрация: 08.05.2013 Сообщений: 268
	13.05.2013, 10:36 [ТС]
	Это я еще после отправки письма экспериментировал. Большое спасибо! 0

@vadim008 10 / 7 / 0 Регистрация: 08.05.2013 Сообщений: 268
	13.05.2013, 15:27 [ТС]
	Может ошибаюсь, поправьте: - Источником формы ВыбранныеЦвета является таблица ВыбранныеЦвета - Нужный цвет из таблицы НаборЦветов выбираю через поле со списком Название. Источником этого списка является таблица НаборЦветов. Присоединенный столбец - первый, т.к. первым в запросе идет Название цвета. Второе поле запроса - Цвет1. Это поле нужно присвоить полю Цвет источника данных формы ВыбранныеЦвета. Пробовал так: Me.Цвет = Me.Название.Column(1) - не получается. Как заполнить таблицу ВыбранныеЦвета именно при той структуре таблиц, которая во вложении? 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	13.05.2013, 16:40
	Непонятно, чему это мешает. Тем более в форме, который потом будет заведомо удалена. 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	13.05.2013, 18:06
	Чтобы добраться до значения цвета - это один из вариантов когда нужно кроме кода (или наименования) подставить в таблицу еще и значение. Есть и другие варианты (Вы же пробовали вариант с Column(1)), но у Вас специфический тип значения и подошел этот. 0