macro for opening form in base

[giorgio.ventavoli]

what the syntax for a macro opening a form named “pippo” in base?

[Ratslinger]

Hello,

Option Explicit

Sub Main
    Dim ObjTypeWhat
    Dim ObjName       As String
	ObjTypeWhat = com.sun.star.sdb.application.DatabaseObject.FORM
REM  The name of the form you want to open.
	ObjName = "pippo"
REM Check the form exists
	If ThisDatabaseDocument.FormDocuments.hasbyname(ObjName) Then 
REM  If the form exists connect to the DB
		ThisDataBaseDocument.CurrentController.Connect()
REM Open the form
		ThisDatabaseDocument.CurrentController.loadComponent(ObjTypeWhat, ObjName, FALSE) 
	Else
		MsgBox "Can't find the requested form to open!"+chr(10)+"Form Name = " &_
                   ObjName + chr(10)+"Check the details." , 48, "Encountered a problem!"
	End if

End Sub