Не принимает значение из поля со списком

@pasha_2001 · Регистрация: 14.11.2012

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

Добрый день.
Есть поле со списком, которое называется ПолеСоСписком19, в котором значения из таблицы списка должностей.
Необходимо при вносе данных о сотруднике в другую таблицу также внести и должность из той таблицы.
На кнопку повесил добавление данных о сотруднике:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Добавить_должность_Click()
               
        Dim rst As ADODB.Recordset
        Set rst = New ADODB.Recordset
        With rst
        .Open "Sotrudniki", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
        .AddNew
        .Fields("FIO") = Me.FIO
        .Fields("id_dolz") = ПолеСоСписком19.Value
        .Fields("date_birth") = Me.date_birth
        .Fields("obrazovanue") = Me.obrazovanue
        .Update
        End With
        rst.Close
        Set rst = Nothing
        
End Sub

Однако при нажатии на кнопку выскакивает ошибка на строку .Fields("id_dolz") = ПолеСоСписком19.Value
"Не удается найти объект в семействе, соответствующий требуемому имени или порядковому номеру"
Как правильно принять значение поля со списком?

Pelena · 02.10.2013, 23:09

Может
Me.ПолеСоСписком19

@Agapov_stas · 03.10.2013, 08:12

Попробуйте:

Visual Basic
1
ПолеСоСписком19.Column(0)

mobile · 03.10.2013, 08:28

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

Однако при нажатии на кнопку выскакивает ошибка на строку .Fields("id_dolz") = ПолеСоСписком19.Value
"Не удается найти объект в семействе, соответствующий требуемому имени или порядковому номеру"

В сообщении достаточно определенно сказано, что элемент рекордсета rst по имени "id_dolz" не найден в коллекции. Надо исправить имя на правильное.
Либо, если поле id_dolz многозначное, то требуется иная запись.

@Agapov_stas · 03.10.2013, 08:31

Не обратил внимание, дальше кода ничего не читал, действительно.
Но однозначно придется ТС-у менять на Column(0), если у него именно список(скорее всего мастером, поэтому Column(0)).

@pasha_2001 · 03.10.2013, 09:36 **[ТС]**

Попробовал Column(0) - проблема таже.
Прикладываю базу.

@Agapov_stas · 03.10.2013, 09:45

Во-первых, у Вас поле [id_dolz:] а никак не [id_dolz].
Во-вторых, как и говорил, необходимо указывать Column(0).
И, наконец, абсолютно не понятно что Вы хотите сделать. Два объявления рекордсета открытие рекордсета запроса, обновление данных в таблице...Все в куче как то..

Напишите что Вы хотели сделать то?

@pasha_2001 · 03.10.2013, 09:51 **[ТС]**

Необходимо в форме Сотрудники_администратор заполнить поля и по кнопке все данные перебросить в таблицу Sotrudniki, только вместо наименования должности в таблице должен быть id должности

@Agapov_stas · 03.10.2013, 10:02

Чем не страивает мастер форм?

@pasha_2001 · 03.10.2013, 10:06 **[ТС]**

Agapov_stas, хочу разобраться как это по кнопке делать

@Agapov_stas · 03.10.2013, 10:06

Вы не сразу указали форму, поэтому не туда смотрел.
В любом случае, не пойму почему не используете мастер.
Никаких рекордсетов открывать не нужно.

mobile · 03.10.2013, 10:09

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

Необходимо в форме Сотрудники_администратор заполнить поля и по кнопке все данные перебросить в таблицу Sotrudniki, только вместо наименования должности в таблице должен быть id должности

Даже не смотря БД, можно сказать, что лучшее решение это форма с источником: Me.Recordsource="Сотрудники". А не свободная форма, откуда приходится перекачивать данные в таблицу.
Задайте источник форме и все дела :-)

@Agapov_stas · 03.10.2013, 10:09

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

хочу разобраться как это по кнопке делать

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Добавить_должность_Click()
               
        Dim rst As ADODB.Recordset
        Set rst = New ADODB.Recordset
        With rst
        .Open "Sotrudniki", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
        .AddNew
        .Fields("FIO") = Me.FIO
        .Fields("id_dolz:") = Me.ПолеСоСписком19.Column(0)
        .Fields("date_birth") = Me.date_birth
        .Fields("obrazovanue") = Me.obrazovanue
        .Update
        End With
        rst.Close
        Set rst = Nothing
        
End Sub

Но зачем строить огород, не понятно.

@pasha_2001 · 03.10.2013, 10:14 **[ТС]**

Agapov_stas, по вашему решению запись не добавляется а заменяется

Добавлено через 3 минуты
Agapov_stas, по последнему варианту спасибо, работает

@Agapov_stas · 03.10.2013, 10:17

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

по вашему решению запись не добавляется а заменяется

Во-первых, не по моему варианту, а по Вашему.
Во-вторых, если уж хотите добавлять открывая рекрдсет, то нет смысла в источнике для формы.
И в третьих, если уж добавляете через рекордсет, то не забывайте очищать данные из формы "для видимости".

@pasha_2001 · 03.10.2013, 16:44 **[ТС]**

Подскажите заодно, в форме 2, при выборе из ПоляСоСписком4 хочу чтобы в Поле 2 автоматом цена появлялась. Код написал на первый взгляд верный, но не работает. Где ошибся?

@Agapov_stas · 03.10.2013, 16:49

Правильнее "вытягивать" данные цены по коду работы.
Т.е.:

Visual Basic
1
Поле2.Value = DLookup("[cena_raboti]", "[Vid_rabot]", "[id_rabot:]=" & ПолеСоСписком4.Column(0))

Но если уж так хотелось именно по текстовому значению, то:

Visual Basic
1
Поле2.Value = DLookup("[cena_raboti]", "[Vid_rabot]", "[Name_raboti]='" & ПолеСоСписком4.Column(1) & "'")

@pasha_2001 · 03.10.2013, 16:53 **[ТС]**

Agapov_stas, Премного благодарен

@pasha_2001 · 04.10.2013, 09:48 **[ТС]**

Еще один вопрос. Не знаю как лучше реализовать. Есть 2 таблицы - Заказ и Состав заказа, в которой есть поле из таблицы Заказа id_zakaz. Сделал форму Заказ, в которую подключил форму Состав заказа. При выборе клиента и даты нажимаю кнопку добавить запись с тем, чтобы запись добавилась в таблицу и сформировался id_zakaz. Далее планирую во вложенной форме выбрать виды работ, таким образом, чтобы они добавились в таблицу Состав заказа, но тут надо как то прочитать id_zakazю В общем наведите на мысли как это лучше реализовать, либо если логика не верна, подскажите как грамотнее. Спасибо.

@pasha_2001 · 04.10.2013, 11:42 **[ТС]**

Переделал форму Заказ, в итоге при нажатии кнопки Добавить запись в таблицу zakaz данные добавляются, а затем при попытке сохранить данные в таблицу sost_zakaz пишет что не удается найти в семействе...
Код на кнопку сохранения следующий

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
 
Dim rst As ADODB.Recordset
        Set rst = New ADODB.Recordset
        With rst
        .Open "Sost_zakaz", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
        .AddNew
        .Fields("id_rabot") = Me.ПолеСоСписком7.Column(0)
        .Fields("id_sotr") = Me.ПолеСоСписком13.Column(0)
        .Fields("id_zakaz") = "Select id_zakaz from zakaz where id_client =" & Me.ПолеСоСписком0.Column(0) _
        & "Date_zakaza =" & Me.Поле4
        .Update
        End With
        rst.Close
        Set rst = Nothing
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
Exit_Кнопка15_Click:
    Exit Sub
 
Err_Кнопка15_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка15_Click
    
End Sub

Подозреваю, что в Селекте ошибка, глянте плиз.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

Pelena 2643 / 1342 / 256 Регистрация: 25.10.2010 Сообщений: 2,196
	02.10.2013, 23:09
	Может Me.ПолеСоСписком19 0

@Agapov_stas 3357 / 1776 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	03.10.2013, 08:31
	Не обратил внимание, дальше кода ничего не читал, действительно. Но однозначно придется ТС-у менять на Column(0), если у него именно список(скорее всего мастером, поэтому Column(0)). 0

@Agapov_stas 3357 / 1776 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	03.10.2013, 09:45
	Во-первых, у Вас поле [id_dolz:] а никак не [id_dolz]. Во-вторых, как и говорил, необходимо указывать Column(0). И, наконец, абсолютно не понятно что Вы хотите сделать. Два объявления рекордсета открытие рекордсета запроса, обновление данных в таблице...Все в куче как то.. Напишите что Вы хотели сделать то? 0

@pasha_2001 0 / 0 / 0 Регистрация: 14.11.2012 Сообщений: 89
	03.10.2013, 09:51 [ТС]
	Необходимо в форме Сотрудники_администратор заполнить поля и по кнопке все данные перебросить в таблицу Sotrudniki, только вместо наименования должности в таблице должен быть id должности 0

@pasha_2001 0 / 0 / 0 Регистрация: 14.11.2012 Сообщений: 89
	03.10.2013, 10:06 [ТС]
	Agapov_stas, хочу разобраться как это по кнопке делать 0

@pasha_2001 0 / 0 / 0 Регистрация: 14.11.2012 Сообщений: 89
	03.10.2013, 10:14 [ТС]
	Agapov_stas, по вашему решению запись не добавляется а заменяется Добавлено через 3 минуты Agapov_stas, по последнему варианту спасибо, работает 0

@pasha_2001 0 / 0 / 0 Регистрация: 14.11.2012 Сообщений: 89
	03.10.2013, 16:53 [ТС]
	Agapov_stas, Премного благодарен 0