Hi

I am trying to write a script that gets the name of a view from a profile document then opens the view in the target frame. The issue is that whenever I open the DB the script runs but the view get opened in new frameset not in the the target frame. Following is the script that resides in the Queryopen of the form that I call in the the target frame.

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Dim sess As New NotesSession
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim doc As NotesDocument
    Set db = sess.CurrentDatabase
    Set view=db.Getview("Admin")
    Set doc=view.Getfirstdocument()
    
    If Not doc Is Nothing Then
        Forall x In doc.NEW_TrackedFields
            fieldvalue=doc.Getitemvalue(x)
            If fieldvalue(0)=db.Filepath Then
                viewname=doc.Getitemvalue("DefaultView_"+Right(x,1))
                Exit Forall
            End If            
        End Forall
    End If
    
    Dim ws As New NotesUIWorkspace
    Dim uidb As NotesUIDatabase
    Set uidb = ws.CurrentDatabase
    Call uidb.OpenView(viewname(0), ,False,True)    
    continue=False
End Sub

Please advise urgently

Thanks