I am trying to create a switchboard to open form in the database I am currently building using push buttons
I have used the following code (which I found on this dusussion board) with success but the forms open in a new window.
Code: Select all
Sub OpenForm(Event As Object)
Dim Form As Object
Dim FormDoc AS Object
Dim FormCollection As Object
Dim DBDoc As Object
Dim Args(1) As New com.sun.star.beans.PropertyValue
Form=Event.Source.Model.Parent
FormCollection=Form.Parent
FormDoc=FormCollection.Parent
DBDoc=FormDoc.Parent
Args(0).Name="ActiveConnection"
Args(0).Value=Form.ActiveConnection
Args(1).Name="OpenMode"
Args(1).Value="open"
DBDoc.FormDocuments.loadComponentFromURL("EMPLOYEES","_blank",0,Args())
End Sub
Thanking you in advance
Warwick