Notes Ninjas Notes Ninjas
Lotus Notes hints, tips, error messages
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://www.notesninjas.com/#NewVersionOfNotes or http://www.notesninjas.com/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."

   

 

 Jump to:     Notes Tips
    Lotus Notes Index 
  Register for Tips
Previous Lotus Notes Tip 
    Next Lotus Notes Tip
Your company logo here?
Adam Foster
Free Cash Making Web Site
Free Revenue Earning Blog Site
 Free Revenue Earning Newsletter Site   
Free Search Pages Free Web stats
Free Contact Us page
Cheap .com domain names
 Need a website or 
   Lotus Notes
  problem solved?
Adam Foster
Lotus Notes 5 All-in-one Certification Exam Guide by Libby Schwarz, Ben Malekzadeh
Sort out your CLP with this book.
See at: Amazon.co.uk | Amazon.com |