Добавить запись в таблицу через форму

Считывание данных в переменные и проверка заполненности полей
 
Id.SetFocus: D_Id = Id.Text
Nam.SetFocus: D_Nam = Nam.Text
Stall.SetFocus: D_st = Stall.Text
Length.SetFocus: D_L = Length.Text
Diameter.SetFocus: D_Dm = Diameter.Text
Step.SetFocus: D_sl = Step.Text
Поставщик.SetFocus: D_Ps = Поставщик.Text
Data_pos.SetFocus: D_Dp = Data_pos.Text
Кол_пост.SetFocus: D_Kp = Кол_пост.Text
Цена.SetFocus: D_Zn = Цена.Text
Дата_след_пост.SetFocus: D_Ds = Дата_след_пост.Text
Кол_сл_пост.SetFocus: D_Ks = Кол_сл_пост
 
'проверка заполненности полей
If Len(D_Id) * Len(D_Nam) * Len(D_st) * Len(D_L) * Len(D_Dm) * Len(D_Zn) = 0 Or _
Len(D_sl) * Len(D_Ps) * Len(D_Dp) * Len(D_Kp) * Len(D_Ds) * Len(D_Ks) = 0 Then
MsgBox "Заполнены не все поля!", vbCritical, ""
Exit Sub
End If
 
 
Назначение списку уникальных значений полей таблицы:
 
Set dbs = CurrentDb
Set Диаметры.Recordset = dbs.OpenRecordset("SELECT DISTINCT Метизы.Diameter from Метизы")'уникальный диаметр
Set Длинны.Recordset = dbs.OpenRecordset("SELECT DISTINCT Метизы.Length from Метизы")'уникальная длина
 
 
Обор данных из таблицы запросом по двум(или одному) условиям
 
Dim S_S 'строка условий отбора
Dim D, L 'значения диаметра и длины
 
'считывание данных с комбобоксов
Диаметры.SetFocus: D = Диаметры.Text
Длинны.SetFocus: L = Длинны.Text
'назначение текущей базы
Set dbs = CurrentDb
 
'если установлен флаг диаметры
If Флажок0.Value = -1 And D <> "" Then
'пишем в строку запроса условие
S_S = " WHERE Метизы.Diameter ='" & D & "'"
End If
'если установлен флаг длина
If Флажок2.Value = -1 And L <> "" Then
'в зависимости от содержания строки запроса пишем или дописываем условия
    S_S = IIf(S_S = "", " WHERE Метизы.Length ='" & L & "'", S_S & " And  Метизы.Length ='" & L & "'")
End If
 
'назначаем списку рекордсет запроса к таблице Метизы с условиием(условиями) отбора
Set Me.Результат_фильтра.Recordset = dbs.OpenRecordset("SELECT Метизы.Name,Метизы.Stall from Метизы " & S_S)
 
 
Поиск нужной для редактирования записи и редактирование её
 
Set dbs = CurrentDb
sSQL = "SELECT * FROM Склад;" ' запрос к таблице
Set rst = dbs.OpenRecordset(sSQL)
rst.FindFirst "Id ='" & Id.Text & " '"
 
   If rst.NoMatch Then ' если нет
        MsgBox "Такого ID не существует!", vbCritical, "": Exit Sub
 
   Else
        rst.Edit
        rst(2) = D_Nam 'наименование
        rst(3) = D_st 'Материал
        rst(4) = D_L 'Длина
        rst(5) = D_Dm 'диаметр
        rst(6) = D_sl 'шаг
        rst(7) = D_Ps 'поставщик
        rst(8) = D_Dp 'Дата поставки
        rst(9) = D_Kp 'количество
        rst(10) = D_Zn 'цена
        rst(11) = D_Ds 'дата следующей поставки
        rst(12) = D_Ks 'количество следующей поставки
        rst(13) = 500 'запас
        rst.Update
End If
rst.Close
Set rst = Nothing

Private Sub Кнопка8_Click()
    Dim strSQL As String
 
    strSQL = "insert into Хранение (Код_оборудования, Код_детали, Номер_поддона, Количество, Полон) values ('" & Me.oborud.Value & "', '" & Me.detal.Value & "', '" & Me.poddon.Value & "', 100, false)"
    CurrentDb.Execute strSQL
    MsgBox "Товар принят", vbInformation, "Успех"
    Me.[подчиненная форма].Requery
 
End Sub

Id.SetFocus: D_Id = Id.Text

Private Sub Êíîïêà8_Click()
    Dim strSQL As String
    Dim Ob As Integer
    Dim Det As Integer
    Dim Pd As Integer
    Dim Co As Integer
    
    oborud.SetFocus: Ob = oborud.Text
    detal.SetFocus: Det = detal.Text
    poddon.SetFocus: Pd = poddon.Text
    counter.SetFocus: Co = counter.Text
    
 
    
    strSQL = "insert into Хранение (Код_оборудования, Код_детали, Номер_поддона, Количество, Полон) values (Ob, Det, Pd, Co, false)"
    CurrentDb.Execute strSQL
    MsgBox "Товар принят", vbInformation, "Успех"
    Me.[подчиненная форма].Requery
    
 
End Sub

Private Sub Form_Load()
    datef.SetFocus
    Me.datef.Text = Date
End Sub
 
Private Sub Кнопка8_Click()
    With CurrentDb.OpenRecordset("select * from Хранение")
    .AddNew
    !Код_оборудования = Me.oborud
    !Код_детали = Me.detal
    !Номер_поддона = Me.poddon
    !Количество = Me.counter
    !Дата_формирования = Me.datef
    .Update
    End With
    Me.[Хранение].Requery
End Sub