To continue reading for free, register below or login
To read more you must become a member of SearchDomino.com
This works in Notes release 6 and up (from the Domino Designer help):
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim newName As String
Set db = s.CurrentDatabase
Set view = db.GetView("Topics")
newName = Inputbox$("New name", _
"Change name:", view.Name)
If newName = "" Then Exit Sub
view.Name = newName
End Sub
Do you have comments on this Ask the Expert Q&A? Let us know.
|
