Displaying default field name

Hi! I have two fields in a form

  1. database title

  2. database filename



 While entering some value in the database title field, it need to be displayed automatically with .nsf extension in the database filename field ( as similar to create new database window in Notes)

Anyone plz give me a idea.

Thanks in advance

Subject: Displaying default field name

Assuming your in the notes client. Place this code in the Exiting event of your database title field:

Dim ws as new notesuiworkspace

dim uidoc as notesuidocument

dim entry as String

set uidoc = ws.currentdocument

entry = CStr(uidoc.FieldGetText(“database_title_field”)) + “.nsf”

call uidoc.FieldSetText(“database_filename_field”, entry)

uidoc.Refresh(true)