Private Sub Кнопка0_Click()
Dim strSQL As String
On Error GoTo MyErr
strSQL = "INSERT INTO Temp ( ID_наименование, Пашня, Многолетние, Сенокосы, пастбища, Мел_строительство, Покрыт_лесом, Лесополосы, Болота, Под_водой, Площади, Парки, Застроенные, Нарушенные, Полигоны_наруш, Овраги_наруш, Пески_наруш, Другие_наруш, Пашня_орош, Многолет_орош, Сенокосы_орош, пастбища_орош, Прочие_орош, Дата )" & _
"SELECT Собственность.ID_наименование, Собственность.Пашня, Собственность.Многолетние, Собственность.Сенокосы, Собственность.пастбища, Собственность.Мел_строительство, Собственность.Покрыт_лесом, Собственность.Лесополосы, Собственность.Болота, Собственность.Под_водой, Собственность.Площади, Собственность.Парки, Собственность.Застроенные, Собственность.Нарушенные, Собственность.Полигоны_наруш, Собственность.Овраги_наруш, Собственность.Пески_наруш, Собственность.Другие_наруш, Собственность.Пашня_орош, Собственность.Многолет_орош, Собственность.Сенокосы_орош, Собственность.пастбища_орош, Собственность.Прочие_орош, Собственность.Дата " & _
"FROM Собственность WHERE (((Собственность.ID_наименование)=Add_Id_Z()));"
CurrentDb.Execute strSQL, dbFailOnError
MsgBox "Запись добавлена", vbInformation, "Добавление записи"

strSQL = Nothing
strSQL = "UPDATE Temp SET Temp.Дата = Add_Data_Z()"
CurrentDb.Execute strSQL, dbFailOnError
MsgBox "Значение изменено", vbInformation, "Изменение записи"

strSQL = Nothing
strSQL = "INSERT INTO Собственность ( ID_наименование, Пашня, Многолетние, Сенокосы, пастбища, Мел_строительство, Покрыт_лесом, Лесополосы, Болота, Под_водой, Площади, Парки, Застроенные, Нарушенные, Полигоны_наруш, Овраги_наруш, Пески_наруш, Другие_наруш, Пашня_орош, Многолет_орош, Сенокосы_орош, пастбища_орош, Прочие_орош, Дата )" & _
"SELECT Temp.ID_наименование, Temp.Пашня, Temp.Многолетние, Temp.Сенокосы, Temp.пастбища, Temp.Мел_строительство, Temp.Покрыт_лесом, Temp.Лесополосы, Temp.Болота, Temp.Под_водой, Temp.Площади, Temp.Парки, Temp.Застроенные, Temp.Нарушенные, Temp.Полигоны_наруш, Temp.Овраги_наруш, Temp.Пески_наруш, Temp.Другие_наруш, Temp.Пашня_орош, Temp.Многолет_орош, Temp.Сенокосы_орош, Temp.пастбища_орош, Temp.Прочие_орош, Temp.Дата " & _
"FROM Temp;"
CurrentDb.Execute strSQL, dbFailOnError
MsgBox "Данные добавлены в Собственность", vbInformation, "Изменение записи"
strSQL = Nothing
Exit Sub
MyErr:
MsgBox Err.Description
Debug.Print Err.Description
End Sub