Hi All,
I have a button on the form to create a repsonse Doc , and the code behind this button is
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim uidoc1 As NotesUiDocument
Dim doc As NotesDocument
Dim doc1 As NotesDocument
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
uidoc.EditMode = True
Set uidoc1 = workspace.ComposeDocument( "", "", "Claim Usage")
Set doc1 = uidoc1.Document
doc1.ClaimuParentClaimID = doc.claimClaimID
doc1.ClaimuParentClaim = doc.claimClaim
doc1.ClaimuCategory = doc.claimCategory
doc1.ClaimuBrandName = doc.claimBrandName
doc1.ClaimuClaimType= doc.claimClaimType
End Sub
When I run this code, I get this error" No document is selected . Please selecte a document to create a response doc"
When i am composing a response doc from this form button , I get this error.
Please help
Thanks in advance,
ac ac