Дублирование данных, с изменением одного поля

Private Sub ПереводДанных_Click()
Dim strSQL1 As String
a = Forms!Данные![Перевод1].Value
b = Forms!Данные![ПереводВ].Value
strSQL1 = "UPDATE Данные SET Перевод=" & b & " WHERE Перевод=" & a & ""
CurrentProject.Connection.Execute (strSQL1)
Me.Requery
End Sub

Option Compare Database
Private Sub Form_Load()
Dim strSQL1 As String
Dim strSQL2 As String
Dim strSQL3 As String
 
strSQL1 = " INSERT INTO tbl_Данные_Temp(Деятельность,Перевод,ШС_02, ШС_03,ШС_04,ШС_05)" & _
         " SELECT Данные.Деятельность, Данные.Перевод, Данные.ШС_02, Данные.ШС_03, Данные.ШС_04, Данные.ШС_05 " & _
         " FROM Данные "
strSQL2 = " SELECT tbl_Данные_Temp.КодОбщ, tbl_Данные_Temp.Деятельность, tbl_Данные_Temp.Перевод, " & _
         " tbl_Данные_Temp.ШС_02, tbl_Данные_Temp.ШС_03, tbl_Данные_Temp.ШС_04, tbl_Данные_Temp.ШС_05 " & _
         " FROM tbl_Данные_Temp "
strSQL3 = " DELETE FROM tbl_Данные_Temp "
 
CurrentProject.Connection.Execute (strSQL3) 'Сначала удаляем записи если есть во временной таблице
CurrentProject.Connection.Execute (strSQL1) 'Затем вносим текущие данные из основной таблицы
Me.RecordSource = strSQL2 'Присваиваем данные временной таблицы текущей форме
Me.Requery 'Обновляем форму
End Sub
 
Private Sub ПереводДанных_Click()
Dim strSQL1 As String
a = Forms!MyForm_Данные![Перевод1].Value
b = Forms!MyForm_Данные![ПереводВ].Value
strSQL1 = "UPDATE tbl_Данные_Temp SET Перевод=" & b & " WHERE Перевод=" & a & ""
CurrentProject.Connection.Execute (strSQL1)
Me.Requery
End Sub
 
'Сохранение измененных данных
Private Sub btnSave_Click()
Dim strSQL1 As String
 
 
strSQL1 = " INSERT INTO Данные(Деятельность,Перевод,ШС_02, ШС_03,ШС_04,ШС_05)" & _
          " SELECT tbl_Данные_Temp.Деятельность, tbl_Данные_Temp.Перевод, tbl_Данные_Temp.ШС_02," & _
          " tbl_Данные_Temp.ШС_03, tbl_Данные_Temp.ШС_04, tbl_Данные_Temp.ШС_05 " & _
          " FROM tbl_Данные_Temp "
 
'Производим действия
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 'Сохраняем записи во временную таблицу
CurrentProject.Connection.Execute (strSQL1) 'Затем вносим текущие данные в основную таблицу
 
End Sub