Private Sub Form_Open(Cancel As Integer)
 If IsNull(Me.OpenArgs) Or Me.OpenArgs = "" Then
        MsgBox ("Возникла проблема")
    
 End If
End Sub

Private Sub Form_Load()

        
        Dim rs As dao.Recordset
    	Set rs = CurrentDb.OpenRecordset("SELECT * FROM [Все_ИП] WHERE ИП = '" & Me.OpenArgs & "';")
    If Not rs.EOF Then
        Me.ИП = rs!ИП
        Me.местонахождение = rs!местонахождение
        Me.Год = rs!Год
        Me.В_норме = rs!В_норме
        Me.Примечание = rs!Примечание
    End If
           
 End Sub

 
Private Sub ОК_Click()
If IsNull(Me.New_ИП) Or Me.New_ИП = "" Then
        MsgBox ("Введите ИП")
        

Else
     Dim rs0 As dao.Recordset
        Set rs0 = CurrentDb.OpenRecordset("Измененные_ИП", dbOpenDynaset)
        rs0.AddNew
        rs0!ИП= Me!ИП
        rs0!местонахождение= Me!местонахождение
        rs0!Год= Me!Год
        rs0!В_норме= Me!В_норме
        rs0!Примечание= Me!Примечание
        rs0!Дата_изменения = Date
                        
        rs0.Update
        rs0.Close
        Set rs0 = Nothing
        
        Dim entry As String
        entry = Me.New_ИП
        
          Dim sql2 As String
        sql2 = "DELETE * FROM [Все_ИП] " & _
              "WHERE ИП = '" & entry & "';"

        DoCmd.RunSQL sql2



         Dim rs As dao.Recordset
        Set rs = CurrentDb.OpenRecordset("Все_ИП", dbOpenDynaset)
        rs.AddNew
        rs!ИП= Me!New_ИП
        rs!местонахождение = Me!New_местонахождение
        rs!Год= Me!New_Год
        rs!В_норме = Me!New_В_норме  
        rs!Дата_изменения = Date
        rs!Примечание = Me!New_Примечание
                
        rs.Update
        rs.Close
        Set rs = Nothing
        
        
        
    End If
    DoCmd.Close
    DoCmd.OpenForm "ИП"
    DoCmd.Requery
    
End Sub

Private Sub Отмена_Click()
    DoCmd.Close
    DoCmd.OpenForm "Все_ИП"
    DoCmd.Requery
End Sub