Еще раз доброго Всем времени суток.
Со вчерашнего дня парился с кодом SQL на обновление данных, вроде бы решил проблемку, запрос нормально запускается через VBA, но НО записи, которые были изменены в таблице "РедактированиеДанных" (изменения производятся на форме) не обновляются в основной таблице "Филиал" - оператор t в коде.

Private Sub Кнопка1076_Click()

Dim xx As Variant
Dim t As Integer
Dim lSQL$
    t = Me.Поле1077.Value
    xx = MsgBox("Сохранить изменения?", vbYesNo, "Light26")
    If xx = 6 Then
        lSQL = "UPDATE РедактированиеДанных INNER JOIN " & t & " ON РедактированиеДанных.APPLICATION_NUMBER = [" & t & "].APPLICATION_NUMBER " & _
            "SET [" & t & "].[ТПЗ отправлено в канцелярию] = РедактированиеДанных.[ТПЗ отправлено в канцелярию], [" & t & "].[Дата передачи ТПЗ в канц-ю] = РедактированиеДанных.[Дата передачи ТПЗ в канц-ю], " & _
            "[" & t & "].[ТПЗ отправлено заемщику] = РедактированиеДанных.[ТПЗ отправлено заемщику], [" & t & "].[Дата отправки ТПЗ заемщику] = РедактированиеДанных.[Дата отправки ТПЗ заемщику], " & _
            "[" & t & "].[Получение АВТО] = РедактированиеДанных.[Получение АВТО], [" & t & "].[Дата получения АВТО] = РедактированиеДанных.[Дата получения АВТО], " & _
            "[" & t & "].[УНО отправлено в канцелярию] = РедактированиеДанных.[УНО отправлено в канцелярию], [" & t & "].[Дата передачи УНО в канц-ю] = РедактированиеДанных.[Дата передачи УНО в канц-ю], " & _
            "[" & t & "].[УНО отправлено заемщику] = РедактированиеДанных.[УНО отправлено заемщику], [" & t & "].[Дата отправки УНО заемщику] = РедактированиеДанных.[Дата отправки УНО заемщику], " & _
            "[" & t & "].[Причины отказа предоставления АВТО] = РедактированиеДанных.[Причины отказа предоставления АВТО], [" & t & "].[Дата отказа] = РедактированиеДанных.[Дата отказа], " & _
            "[" & t & "].[УПТ отправлено в канцелярию] = РедактированиеДанных.[УПТ отправлено в канцелярию], [" & t & "].[Дата передачи УПТ в канц-ю] = РедактированиеДанных.[Дата передачи УПТ в канц-ю], " & _
            "[" & t & "].[УПТ отправлено заемщику] = РедактированиеДанных.[УПТ отправлено заемщику], [" & t & "].[Дата отправки УПТ заемщику] = РедактированиеДанных.[Дата отправки УПТ заемщику], " & _
            "[" & t & "].[Дата проведения торгов (АМ)] = РедактированиеДанных.[Дата проведения торгов (АМ)], [" & t & "].[Результат торгов (АМ)] = РедактированиеДанных.[Результат торгов (АМ)], " & _
            "[" & t & "].[Дата проведения торгов (ГМ)] = РедактированиеДанных.[Дата проведения торгов (ГМ)], [" & t & "].[Результат торгов (ГМ)] = РедактированиеДанных.[Результат торгов (ГМ)], " & _
            "[" & t & "].Этап = РедактированиеДанных.[Этап] " & _
            "WHERE ((([" & t & "].APPLICATION_NUMBER)=РедактированиеДанных.[APPLICATION_NUMBER]));"
        CurrentDb.Execute lSQL
        
        MsgBox "Данные успешно сохранены!"
        Else
            MsgBox "Данные не сохранены!"
            Exit Sub
    End If
    Forms("ФормаОфицер").Visible = True
    DoCmd.Close acForm, "РедактированиеДанных", acSaveNo
End Sub

http://www.sql.ru/forum/1130205/obnovlenie-tablicy-update