< Back

Document Subject: Design element modified by a newer version of Notes
Hint Short Cut: Add this to your code & documentation to help you find this page.
http://#NewVersionOfNotes or http://A555F9/nn.nsf/ByAlias/NewVersionOfNotes

"Design element modified by a newer version of Notes". This error comes up when you try and change a design element that was previously saved in R5. It also comes up in R4.6.6 clients when they run an agent that was saved in R5 designer.




The message comes up for 4.6.6 clients when they run agents.

It does not prevent the running of the agent, but it can be annoying.

To remove the problem run this code and answer yes for the agent causing the problem:

 

Create a button or agent that has this code:

NB Thanks to wolfgang for the original code.

   ' remove all R5 DesignerVersion fields
   
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim ChangeCount As Integer
    Dim i As Integer
    Dim id As String
   
    Dim ni As notesitem
    Dim x As Integer
   
    Set db=session.CurrentDatabase
   
    For i%=1 To 5000
         id = Hex$ (i%)
         If Len ( id ) <> 8 Then
'pad with zeros
              id = String$ ( 8-Len(id), "0" ) & id
         End If
         Set doc=db.GetDocumentByID( id )
         If Not (doc Is Nothing) Then
              If doc.HasItem ("$DesignerVersion") Then
                   If doc.GetItemValue ( "$DesignerVersion" ) (0) = "5" Then
                        Set ni = doc.getfirstitem("$Title")
                                                 
                        x=Messagebox("Remove the $DesignerVersion for """ & ni.text & """ ?",36,"Remove?")
                       
                        If x = 6 Then '6 is Yes
                             Call doc.RemoveItem ( "$DesignerVersion")
                             Call doc.save ( True, True )
                             ChangeCount% = ChangeCount% + 1
                        Else
                             'user answered no
                        End If
                                                                         
                   End If
              End If
         End If
    Next i
   
    Print ChangeCount%;" design elements updated."