Script question: open frameset

HCL Domino Domino Forum
1

I have to say that I’ve no idea about script, but I found this very helpful script as a database script to open role-specific navigators. Now I would like to modify my old design of the database and would like to use different framesets instead.Could you please tell me how to modify this script to open framesets:

Sub Postopen(Source As Notesuidatabase)

Dim session As New NotesSession

Dim acl As NotesACL 

Dim entry As NotesACLEntry

Dim db As NotesDatabase

Set db = session.CurrentDatabase

Set acl = db.ACL

Set entry = acl.GetEntry( session.CommonUserName )

If entry Is Nothing Then

	Set entry = acl.GetEntry( session.UserName )

End If

If entry Is Nothing Then Exit Sub ' Something went wrong....



If entry.IsRoleEnabled( "[xy]" ) Then

	Call Source.OpenNavigator( "xy")

	

Elseif entry.IsRoleEnabled( "[z]" ) Then

	Call Source.OpenNavigator( "z")

	

	End If

End Sub

I tried:

Elseif entry.IsRoleEnabled( “[A]” ) Then

Call Source.OpenNavigator( A$ [, fullWindow] )

but it didn’t work.

Thank you for your help in advance.

Leini

2

Subject: Script question: open frameset

Call notesUIWorkspace.OpenFrameSet( frameset$ )

Check out the help.

VH

3

Subject: this results in error 26 Not a sub or function name: NOTESUIWORKSPACE

Elseif entry.IsRoleEnabled( “[A]” ) Then Call notesUIWorkspace.OpenFrameSet( A$ )

Doesn’t work. I can’t save due to script error 26: Not a sub or function name: NOTESUIWORKSPACE

Leini

4

Subject: RE: this results in error 26 Not a sub or function name: NOTESUIWORKSPACE

dim uiwork as new notesuiworkspaceCall uiwork.OpenFrameSet( A$ )

5

Subject: wonderful! Thanks a lot… n/t