[Закрыто] Не могу отредактировать атрибуты.

....
  if Attribute.AttributeDefName = "OBJ_ISDONE" then

    set usr = ThisApplication.CurrentUser
    if Form.Attributes("OBJ_ISDONE") = true then
      Form.Attributes("OBJ_OTMETIL") = usr 
      Form.Attributes("OBJ_DATA_OTMETKI") = date
                

        Form.Controls("OBJ_COMMENT").ReadOnly = true

    Duble_Z(Obj)
     else
      Form.Attributes("OBJ_OTMETIL") = ""
      Form.Attributes("OBJ_DATA_OTMETKI") = ""
     end if
  end if
....

Sub Duble_obj(Obj)
Dim answer, NewObj, EObjDlg
  answer = msgbox("Хотите создать новый объект", vbQuestion + vbYesNo)
  Set Prnt = Obj.Parent
  Prnt.Permissions = SysadminPermissions
  
  If answer = vbNo then
    exit sub
  end if
  
    Set NewObj = Obj.Duplicate (Prnt)
     NewObj.Attributes("OBJ_NUMBER").Value = ""
     NewObj.Attributes("OBJ_ISDONE").Value = false
     NewObj.Update
     
    Set EObjDlg = ThisApplication.Dialogs.EditObjectDlg
      EObjDlg.Object = NewObj
           
    If EObjDlg.Show = False Then
       NewObj.Erase
    end if
End sub