Lisa B Sherman 17.Apr.12 04:55 PM a Web browser Notes ClientAll ReleasesAll Platforms
I have a simple postopen code to set the db filename and server into fields on the document. It runs on all docs, new or existing, however, the data is not getting set. I inherited this database from another developer and its working fine in Production. I made a copy of the database and put in on the Development server (without documents) so I could update the design, but for some reason this postopen code is not setting the fields in Development, but it is in Production (still). Can you see the problem?
Sub Postopen(Source As Notesuidocument)
If source.EditMode = True Then
Dim ses As New NotesSession
Dim curdb As NotesDatabase
Set curdb = ses.Currentdatabase
If source.IsNewDoc Then
Call source.FieldSetText ("EditHist", now() & " " & ses.commonusername & " : Created Document")
End If