Hi
I have a question. I have a form in a database that on creation displays a dialogbox with 12 different forms selected via a list field(created in a tabbed table). Once the user has selected and completed the form, click on ok and the dialog box values displays on a subform. What I need to do is the following, I need the document to be saved and before closing a new document to be created and the dialog box reappear. The user is struggling with having to go in and out to recreate as they are creating call reports. Is this possible…here is the code on postopen in the form that displays the dialog box.
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim userDoc As NotesDocument
Dim item As NotesItem
Dim UserColl As NotesDocumentCollection
Set doc=Source.Document
Set db = session.CurrentDatabase
Dim server As String
Dim dbpath As String
server = db.Server
dbpath = doc.IENConfigPath(0)
Dim Userdb As New NotesDatabase( server,dbpath)
If (doc.IENActType(0)=“Call Report”) And (doc.IsNewNote) Then
If userdb.IsOpen Then
Set db = session.CurrentDatabase
Set doc = Source.Document
Set item = doc.GetfirstItem("IENSalesRep") 'Get handle on sales rep
'Manipulate the data type to produce text acceptable for the search function
salesChap = item.Text
TempSalesChap = Evaluate( | @name([CN];"| & salesChap & |" ) | )
salesChap = TempSalesChap(0)
'get handle on the sales rep info in the Settings db
Set UserColl = Userdb.Search(|@contains(UserName; "| & salesChap & |" ) & Form ="User" |, Nothing, 0 )
Set userDoc = UserColl.GetFirstDocument 'There should be only one
If Not (userDoc Is Nothing) Then 'compile sendto fields
Set item = userDoc.GetFirstItem("UserManagers")
Set item = doc.ReplaceItemValue("lsrManager",item)
End If
Call workspace.DialogBox( "BELLCallReport", True, True, True, True, False, False, "Call Report",,True )
End If
End If
Many thanks.
Coll