Domino Code Fragment

Code Name*
View Name change		Date*
02/19/1999		Source (or email address if you prefer)*
Anonymous
IP address:.172.71.254.80
Description*
Type*
LotusScript		Categories*
Design Configuration
Implementation:
None (plug and play)		Required Client:
4.5		Server:
(none)
Limitations:
Not sure that this would be officially supported by Lotus.		Comments:
I've used this approach in production apps without problems. The code provided is limited but demonstrates the approach.
Files/Graphics attachments (if applicable): Code:
Dim ns As New notessession
Dim db As notesdatabase
Dim vw As NotesView
Dim stViewName$
stViewName$ = "Test"
Set db = ns.CurrentDatabase
Set vw = db.GetView( stViewName$ )
If vw Is Nothing Then
Msgbox( "Can't find view " + stViewName$ )
Exit Sub
End If
Dim dc As notesdocument
Set dc = db.GetDocumentByUnId( vw.UniversalId )
Call dc.ReplaceItemValue( "$Title", "Changed Test" )
Call dc.Save( True, True )