При отсутствии в списке - Добавить значение + Код

@VinniPuh · Регистрация: 27.03.2013

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

Всем Здравствовать!
Помогите люди добрые.
Как добавить значение + код, если оно отсутствует в списке значений.
В форме - Товары есть поле - Тип, от которого зависит выбор значения - Параметр, которые ранее прописаны в справочнике.
Просто добавить - Тип получается процедурой

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub КодТипаТ_NotInList(NewData As String, Response As Integer)
    Dim s
    s = "Тип '" & NewData & "' нет в списке. " & vbCrLf _
    & " Внести - ОК;  Вернуться для выбора - Отмена"
    If MsgBox(s, vbOKCancel) = vbOK Then
        CurrentDb.Execute "insert into Типы(Тип) values('" & NewData & "')"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
    End If
 
End Sub

а вот что бы в подчиненной для - Параметр ни как не получается, т. к. нужно добавить в табличку - Параметры еще и код от - Типы.
Всё какие то ошибки лезут из за незнания синтакси'софф.
Заранее благодарен.

@Nslava · 03.06.2016, 16:54

Что-то я туговато понял что на самом деле надо, но если надо в подчиненной форме ТИПЫ, при создании параметра добавлять КодТипаП из главной формы то вот событие для подчиненной формы:

Visual Basic
1
2
3
4
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error Resume Next
If IsNull(Me![КодТипаП]) Then Me![КодТипаП] = Me.Parent![Код_Типа]
End Sub

@VinniPuh · 03.06.2016, 17:24 **[ТС]**

Nslava, Ваш пример тоже выдает ошибку и ругается как на картинке.
Хотса следующее.
Например в форме - Товары, в подчиненной - фпХарактеристики в поле - Параметр пишу
Скорость.
Его естественно нет, а надо внести, дабы не открывать форму - Типы и не вносить в подчиненную форму этот параметр, а аксик только спросил бы Внести новое значение или Нет, как это реализовано для поля - Параметр (КодПараметраХ) на событии - Отсутствие в списке.
Но так как для каждого Типа прописывается свой параметр, то соответственно и код Типа должен прописаться в табличку - Параметры.
Пытался примерно вот такой процедурой на основе выше приведенной:

Visual Basic
1
2
3
4
5
6
7
8
9
    Dim s
    s = "Параметр '" & NewData & "' нет в списке. " & vbCrLf _
    & " Внести - ОК;  Вернуться для выбора - Отмена"
    If MsgBox(s, vbOKCancel) = vbOK Then
        CurrentDb.Execute "insert into Параметры(Параметр, КодТипаТ) values('" & NewData & "', " & Me!КодТипаТ & ")"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
    End If

Но шибко ругается, что я типа дубина синтакси'са и падежо'в ваще не знаю или найти чего то не может.

Ни как не соображу где я туплю и торможу.

@Nslava · 03.06.2016, 17:46

Ну, тогда так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub КодПараметраХ_NotInList(NewData As String, Response As Integer)
Dim s
    s = "Параметр '" & NewData & "' нет в списке. " & vbCrLf _
    & " Внести - ОК;  Вернуться для выбора - Отмена"
    If MsgBox(s, vbOKCancel) = vbOK Then
        CurrentDb.Execute "insert into Параметры(Параметр, КодТипаП) values('" & NewData & "', " & Me.Parent!КодТипаТ & ")"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
    End If
End Sub

@VinniPuh · 03.06.2016, 17:56 **[ТС]**

Nslava, Большое Спасибо, Выручили.
То что доктор прописал.

Это я тормозяка, как всегда - Parent не прорисал оказывается.

@Nslava · 03.06.2016, 18:04

Пожалуйста.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 из исходников с помощью 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 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@VinniPuh 9131 / 6138 / 593 Регистрация: 27.03.2013 Сообщений: 19,994
	03.06.2016, 17:56 [ТС]
	Nslava, Большое Спасибо, Выручили. То что доктор прописал. Это я тормозяка, как всегда - Parent не прорисал оказывается. 0

@Nslava 458 / 75 / 13 Регистрация: 06.03.2015 Сообщений: 148
	03.06.2016, 18:04
	Пожалуйста. 2

При отсутствии в списке - Добавить значение + Код

Решение