I have a piece of code that does a lookup to a view to get a document.  This works fine most of the time, however something happens to the Notes Client where the code suddenly returns a type mismatch error.  

This cannot be reproduced.

It randomly happens, then I get the user to restart the Notes client and it works fine.  When it happens to one user, it does not happen to another user doing exactly the same thing.

This is the piece of code where it errors.  As it is a type mismatch I have checked the content of the documents, done a cstr conversion, am pretty clueless as to how this is an error, and that this error disappears once the client has been reopened.

Does anyone have any thoughts on how to fix this?

The docFooter documents do not change regularly (once a month?) - this happens randomly.  The view indexes are okay - and have been rebuilt, just in case.

 

TIA,

A

===================================================================

        If Not (view Is Nothing) Then
            Set docFooter = view.Getfirstdocument()
            While Not (docFooter Is Nothing)
                Forall x In docFooter.ShowFooter
                    If (Cstr(x) = "13") Then    ***** <<< This is where it errors
                        Set rtFooter = docFooter.Getfirstitem("Body")
                        If Not (rtFooter Is Nothing) Then
                            Call rtMailbody.Appendrtitem(rtFooter)
                        End If
                    End If
                End Forall
                Set docFooter = view.Getnextdocument(docFooter)
            Wend
        End If

===================================================================