Удаление данных из основной таблицы

@Sega2173 · Регистрация: 28.10.2021

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

Уважаемые! Не могу сообразить как правильно сделать. Есть база, заполнение которой планируется через несколько последовательно открывающихся форм. В примере пока две. Необходимо на форме ТХ сделать кнопку "выход без сохранения", но так чтобы при нажатии на нее удалялась текущая запись формы ТХ и связанная запись главной таблицы "карточка_двигателя".

@Eugene-LS · 15.11.2021, 10:40

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

Не могу сообразить как правильно сделать.

Думаю, лучше убрать связь "один к одному" и объединить таблицы "Карточка_двигателя" и "Технические_характеристики" с переименованием в "Двигатели".
Всё станет логичнее и проще, т.к. одно без другого быть не может.

@Sega2173 · 15.11.2021, 10:59 **[ТС]**

Eugene-LS Возможно вы и правы, но велико желание сделать как написано

@Eugene-LS · 15.11.2021, 11:08

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

но велико желание сделать как написано

Это называется "перемудрить", и создать самому себе сложности ...

@Sega2173 · 15.11.2021, 12:13 **[ТС]**

Сообщение от Eugene-LS

Это называется "перемудрить", и создать самому себе сложности ...

Согласен, просто планировалось что эти разделы после наполнения будут вести разные люди и лишняя инфа им не к чему, а пока надо сделать вариант длянаполнения

Добавлено через 59 минут
Господа форумчане! Может есть еще варианты решения кроме озвученного?

@Eugene-LS · 15.11.2021, 12:49

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

Может есть еще варианты решения кроме озвученного?

Ну нечто такое ...
(если я правильно понял вашу "хотелку" (а у вас там противоречие ....))

Visual Basic

Private Sub cmdDelete_Click()
'Необходимо на форме ТХ сделать кнопку "выход без сохранения", _
    но так чтобы при нажатии на нее удалялась текущая запись формы ТХ _
    и связанная запись главной таблицы "карточка_двигателя".
Dim vVal, sVal As String
    vVal = Me!ID
    
    If Me.NewRecord = True Then
        Me.Undo
    Else
        If Not Len(vVal) = 0 Then
            sVal = "DELETE FROM Конструктивные_особенности WHERE (ID='" & vVal & "');"
            CurrentDb.Execute sVal
        End If
    End If
    If Not Len(vVal) = 0 Then
        sVal = "DELETE FROM Карточка_двигателя WHERE (Модель='" & vVal & "');"
        CurrentDb.Execute sVal
    End If
    
    DoCmd.Close acForm, Me.Name
 
End Sub

@Sega2173 · 15.11.2021, 13:07 **[ТС]**

Сообщение от Eugene-LS

(а у вас там противоречие ....))

Если можно поподробнее, глаз совсем замылился.

@Eugene-LS · 15.11.2021, 13:22

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

Если можно поподробнее, глаз совсем замылился.

Код:

Visual Basic

1
2
3

Private Sub Form_Load()
    DoCmd.GoToRecord , , acNewRec
End Sub

В форме запись всегда НОВАЯ (непонятно к чему относящиеся)

@Sega2173 · 15.11.2021, 13:34 **[ТС]**

Сообщение от Eugene-LS

В форме запись всегда НОВАЯ (непонятно к чему относящиеся)

Да, действительно, ступил

@Eugene-LS · 15.11.2021, 13:42

Sega2173, и зря вы сделали связи по текстовому полю в 15 символов!
- Код производителя обычно до 20-ти символов (международный стандарт) ...
- Просто добавьте уникальный индекс, а связи по полю типа "Счётчик" - это добавит скорости обработки данных .

@Eugene-LS · 15.11.2021, 13:45

Сообщение от Eugene-LS

- Просто добавьте уникальный индекс, а связи по полю типа "Счётчик" - это добавит скорости обработки данных .

+ Китайцы выпускают копии - с тем же индексом ... Поле: "производитель" - не помешает.

@Sega2173 · 15.11.2021, 15:19 **[ТС]**

Сообщение от Eugene-LS

это добавит скорости обработки данных .

ОК, спасибо, учту

Добавлено через 1 час 32 минуты
Eugene-LS,
Можно еще короткий ликбез, когда форма ТХ загружается - все поля пустые, как и положено, но стоит изменить любое сразу в молях мощность и т.д появляются нули т.е. значения по умолчанию. Как от этого избавиться? что бы поля были пустыми.

@Eugene-LS · 15.11.2021, 15:25

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

Как от этого избавиться?

Установить значения по умолчанию = Null
Либо в таблице, либо у полей в форме ... а лучше и там, и там ...

@Sega2173 · 15.11.2021, 15:45 **[ТС]**

Сообщение от Eugene-LS

Установить значения по умолчанию = Null

В таблице помогло. Спасибо. Плохо заниматься серьезным делом наскоками (это я про себя)

@alvk · 16.11.2021, 01:49

Схема данных ещё очень далека от нормализации.

@Sega2173 · 18.11.2021, 12:59 **[ТС]**

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

@Sega2173 · 18.11.2021, 13:12 **[ТС]**

Схему по сравнению с вложенной базой немного переделал

@Sega2173 · 18.11.2021, 14:28 **[ТС]**

Eugene-LS, Может что то подскажете?

@Eugene-LS · 18.11.2021, 15:02

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

Может что то подскажете?

Легко!

Формируйте свои "хотелки" чётче пожалуйста.
Что конкретно у вас не получается?

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

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

Может что то подскажете?

Я бы развернул характеристики (обе таблицы) на 90 градусов, и заполнял по мере надобности, а основные характеристики (те что есть у всех) перенёс в главную.

@Sega2173 · 18.11.2021, 15:53 **[ТС]**

Сообщение от Eugene-LS

Я бы развернул характеристики (обе таблицы) на 90 градусов

Очень не хочется все переделывать

Делаю форму на заполнение потребителя. По своему разумению в эту форму вставил подчиненную форму привязанную к таблице P_D. Код потребителя заносится без проблем, а вот как подтянуть туда второй ключ (модель) из таблицы Карточка_двигателя сообразить не могу.

@Eugene-LS 10741 / 5582 / 1409 Регистрация: 05.10.2016 Сообщений: 15,787
	15.11.2021, 10:40	2
	Сообщение от Sega2173 Не могу сообразить как правильно сделать. Думаю, лучше убрать связь "один к одному" и объединить таблицы "Карточка_двигателя" и "Технические_характеристики" с переименованием в "Двигатели". Всё станет логичнее и проще, т.к. одно без другого быть не может. 0

@Sega2173 0 / 0 / 0 Регистрация: 28.10.2021 Сообщений: 59
	15.11.2021, 10:59 [ТС]	3
	Eugene-LS Возможно вы и правы, но велико желание сделать как написано 0

@Eugene-LS 10741 / 5582 / 1409 Регистрация: 05.10.2016 Сообщений: 15,787
	15.11.2021, 11:08	4
	Сообщение от Sega2173 но велико желание сделать как написано Это называется "перемудрить", и создать самому себе сложности ... 0

@Sega2173 0 / 0 / 0 Регистрация: 28.10.2021 Сообщений: 59
	15.11.2021, 12:13 [ТС]	5
	Сообщение от Eugene-LS Это называется "перемудрить", и создать самому себе сложности ... Согласен, просто планировалось что эти разделы после наполнения будут вести разные люди и лишняя инфа им не к чему, а пока надо сделать вариант длянаполнения Добавлено через 59 минут Господа форумчане! Может есть еще варианты решения кроме озвученного? 0

@Sega2173 0 / 0 / 0 Регистрация: 28.10.2021 Сообщений: 59
	15.11.2021, 13:07 [ТС]	7
	Сообщение от Eugene-LS (а у вас там противоречие ....)) Если можно поподробнее, глаз совсем замылился. 0

@Sega2173 0 / 0 / 0 Регистрация: 28.10.2021 Сообщений: 59
	15.11.2021, 13:34 [ТС]	9
	Сообщение от Eugene-LS В форме запись всегда НОВАЯ (непонятно к чему относящиеся) Да, действительно, ступил 0

@Eugene-LS 10741 / 5582 / 1409 Регистрация: 05.10.2016 Сообщений: 15,787
	15.11.2021, 13:42	10
	Sega2173, и зря вы сделали связи по текстовому полю в 15 символов! - Код производителя обычно до 20-ти символов (международный стандарт) ... - Просто добавьте уникальный индекс, а связи по полю типа "Счётчик" - это добавит скорости обработки данных . Миниатюры 1

@Eugene-LS 10741 / 5582 / 1409 Регистрация: 05.10.2016 Сообщений: 15,787
	15.11.2021, 13:45	11
	Сообщение от Eugene-LS - Просто добавьте уникальный индекс, а связи по полю типа "Счётчик" - это добавит скорости обработки данных . + Китайцы выпускают копии - с тем же индексом ... Поле: "производитель" - не помешает. 0

@Sega2173 0 / 0 / 0 Регистрация: 28.10.2021 Сообщений: 59
	15.11.2021, 15:19 [ТС]	12
	Сообщение от Eugene-LS это добавит скорости обработки данных . ОК, спасибо, учту Добавлено через 1 час 32 минуты Eugene-LS, Можно еще короткий ликбез, когда форма ТХ загружается - все поля пустые, как и положено, но стоит изменить любое сразу в молях мощность и т.д появляются нули т.е. значения по умолчанию. Как от этого избавиться? что бы поля были пустыми. 0

@Eugene-LS 10741 / 5582 / 1409 Регистрация: 05.10.2016 Сообщений: 15,787
	15.11.2021, 15:25	13
	Сообщение от Sega2173 Как от этого избавиться? Установить значения по умолчанию = Null Либо в таблице, либо у полей в форме ... а лучше и там, и там ... 1

@Sega2173 0 / 0 / 0 Регистрация: 28.10.2021 Сообщений: 59
	15.11.2021, 15:45 [ТС]	14
	Сообщение от Eugene-LS Установить значения по умолчанию = Null В таблице помогло. Спасибо. Плохо заниматься серьезным делом наскоками (это я про себя) 0

@alvk 7439 / 4574 / 300 Регистрация: 12.08.2011 Сообщений: 14,228
	16.11.2021, 01:49	15
	Схема данных ещё очень далека от нормализации. 0

@Sega2173 0 / 0 / 0 Регистрация: 28.10.2021 Сообщений: 59
	18.11.2021, 13:12 [ТС]	17
	Схему по сравнению с вложенной базой немного переделал Миниатюры 0

@Sega2173 0 / 0 / 0 Регистрация: 28.10.2021 Сообщений: 59
	18.11.2021, 14:28 [ТС]	18
	Eugene-LS, Может что то подскажете? 0

@Eugene-LS 10741 / 5582 / 1409 Регистрация: 05.10.2016 Сообщений: 15,787
	18.11.2021, 15:02	19
	Сообщение от Sega2173 Может что то подскажете? Легко! Формируйте свои "хотелки" чётче пожалуйста. Что конкретно у вас не получается? Добавлено через 3 минуты Сообщение от Sega2173 Может что то подскажете? Я бы развернул характеристики (обе таблицы) на 90 градусов, и заполнял по мере надобности, а основные характеристики (те что есть у всех) перенёс в главную. 0

@Sega2173 0 / 0 / 0 Регистрация: 28.10.2021 Сообщений: 59
	18.11.2021, 15:53 [ТС]	20
	Сообщение от Eugene-LS Я бы развернул характеристики (обе таблицы) на 90 градусов Очень не хочется все переделывать Делаю форму на заполнение потребителя. По своему разумению в эту форму вставил подчиненную форму привязанную к таблице P_D. Код потребителя заносится без проблем, а вот как подтянуть туда второй ключ (модель) из таблицы Карточка_двигателя сообразить не могу. 0