Apache OpenOffice Community Forum

Code: Select all

ThisDatabaseDocument.FormDocuments.getbyname("NewDocumentName").open

Code: Select all

sub openfrmTrack
ThisDatabaseDocument.FormDocuments.getbyname("frmTrackAdd").open

End Sub

Code: Select all

REM *****Open Contact Data Form*****
Sub OpenContactForm
Dim sNewDocumentName as string
sNewDocumentName="frmTrackadd"
oNewDoc = ThisDatabaseDocument.FormDocuments.getbyname(sNewDocumentName).open
oNewDoc.DrawPage.Forms.GetByIndex(0)
End Sub

Code: Select all

REM  *****  BASIC  ****


'----- suite to open any form 
Sub OpenFormCloseForm_Button_Click1( oEv as variant )
'reads sOpenFormName & sCloseFormName separated by a comma from tag of calling button
Dim N1 as integer,N2 as integer, xpos as integer, ypos as integer
 Dim XX as string, sOpenFormName as string, sCloseFormName as string
 
'  Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
'  oMRI = CreateUnoService( "mytools.Mri" )  
   
XX=oEv.Source.Model.Tag ' get button's form from Additional information on button control
N1=len(XX)
N2=instr(XX,",")
If N2<>0 then
   sOpenFormName = left(XX,N2-1)
   sCloseFormName = right(XX,N1-N2)
else
   sOpenFormName = XX
   sCloseFormName = ""
endif


' this Basic routine shows different results for a Text, Spreadsheet and Presentation document
' Depending on the document type, a different set of interfaces are supported by the object
' A portion of the interfaces are common to all these document types representing
' the general functionality that documents of any type offer. In particular, all OpenOffice.org
' documents support the com.sun.star.document.OfficeDocument service, including the interfaces
' com.sun.star.frame.XStorable and com.sun.star.view.XPrintable. Another interface is
' com.sun.star.frame.XModel.
'      MsgBox ThisComponent.Dbg_SupportedInterfaces

If sOpenFormName<>"" then OpenForm( getFormsTC, getConnectionTC, sOpenFormName ) 

If sCloseFormName<>"" then ThisDatabaseDocument.FormDocuments.GetByName(sCloseFormName).close

End Sub

Function OpenForm( formContainer as variant, oConnection as variant, sFormName as string) as variant
Dim aProp(1) As New com.sun.star.beans.PropertyValue
aProp(0).Name = "ActiveConnection"
aProp(0).Value = oConnection
aProp(1).Name = "OpenMode"
aProp(1).Value = "open"
OpenForm = formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())
End Function