1/ I have a SubForm with “Microsoft Web Browser” control :
Sub Postopen(Source As Notesuidocument)
Dim db As NotesDatabase
Dim url As String
Dim navig_handle As Variant
Dim url2 As String
Set db = source.Document.ParentDatabase
url2="http://xxx.xxx.xxx.xxx/"+db.FilePath+"/"
url = "http://xxx.xxx.xxx.xxx/"+db.FilePath+"/Flex_Reclam?OpenPage&unid="+source.FieldGetText("JavaUNID")+"&filtre="+source.FieldGetText("filtre")+"&doc="+source.Document.form(0) + "&url=" + url2
Set navig_handle = Source.GetObject( "Microsoft Web Browser" )
navig_handle.Navigate(url)
End Sub
2/ I have a form “A” (with the subform)
3/ I have a second Form “B” (with the subform) which is a response to “A”
4/ i create à document “A” the document is open when i create the response “B”. If i close “B” i have a RED screen.
Any idéa ?