Dim strSQL As String
' процедура добавления в таблицу нового района
If Not IsNull(Me.txtРайон.Value) Then
    strSQL = "INSERT INTO tblРайоны([Район]) VALUES " & _
"('" & Me.txtРайон.Value & "');"
    CurrentDb.Execute strSQL

Else
    MsgBox "Вы должны заполнить поле [Район]", vbExclamation, "Не указан район"
End If

Dim strSQL As String
' процедура добавления в таблицу новой подстанции
If Not IsNull(Me.txtРайон.Value) Then
    strSQL = "INSERT INTO Подстанции([Подстанции]) VALUES " & _
"('" & Подстанция.text & "');" 'Подстанция - это название поля на форме привязано к таблице Подстанции
    CurrentDb.Execute strSQL ' Желтой строкой останавливается тут
End If

strSQL = "INSERT INTO Подстанции([Подстанции]) VALUES " & _
"('" & Подстанция.Text & "');"
   ' CurrentDb.Execute strSQL 

CurrentDb.Execute strSQL, dbFailOnError

strSQL = "UPDATE Подстанции " & "SET Подстанции='" & tboПодстанции & "'"
dbs.Execute (strSQL)

    Dim tboПодстанции As String:    tboПодстанции = "что-нибудь"
    
    strSQL = "UPDATE Подстанции " & "SET Подстанции='" & tboПодстанции & "'"
    DoCmd.RunSQL strSQL

Private Sub Подстанция_NotInList(NewData As String, Response As Integer)
If MsgBox("Новая подстанция - ДА" + Chr( 13 ) + "Ошиблись при вводе - ОТМЕНА", vbOKCancel, "Внимание! Запись не соответствует списку.") = vbOK Then


Dim strSQL As String

' процедура добавления в таблицу новой подстанции
    strSQL = "INSERT INTO Подстанции([Подстанции]) VALUES " & _
"('" & Подстанция.Text & "');" 'Подстанция - это название поля на форме привязано к таблице Подстанции
CurrentDb.Execute strSQL, dbFailOnError

' отключил обновление базы за ненадобностью, но всеравно спасибо klen
// а это моя химия
    
s = Подстанция.Text
Подстанция.Text = ""
Me.Refresh
Подстанция.Text = s



 Else
 Подстанция.Text = ""
 
 End If
 

End Sub