strSQL = "UPDATE импорт INNER JOIN импорт1 ON импорт.F1 = импорт1.F1 SET " & _
"импорт.F2 = импорт1!F2, импорт.F3 = импорт1!F3, импорт.F4 = импорт1!F4, " & _
"импорт.F5 = импорт1!F5, импорт.F6 = импорт1!F6, импорт.F7 = импорт1!F7, " & _
"импорт.F8 = импорт1!F8, импорт.F9 = импорт1!F9, импорт.F10 = импорт1!F10, " & _
"импорт.F11 = импорт1!F11, импорт.F12 = импорт1!F12;"
CurrentDb.Execute strSQL, dbFailOnError

strSQL = "DELETE импорт.*, IIf(импорт.F1=импорт1.F1,True,False) AS Выражение1, " & _
"IIf([импорт].[F1]=[импорт1].[F1],True,False)" & _
"FROM импорт LEFT JOIN импорт1 ON импорт.F1 = импорт1.F1 " & _
"WHERE (((IIf([импорт].[F1]=[импорт1].[F1],True,False))=False));"
CurrentDb.Execute strSQL, dbFailOnError

strSQL = "INSERT INTO импорт " & _
"SELECT импорт1.* FROM импорт RIGHT JOIN импорт1 ON импорт.F1=импорт1.F1 " & _
"WHERE (((IIf(импорт.F1=импорт1.F1,True,False))=False));"
CurrentDb.Execute strSQL, dbFailOnError