https://bugs.documentfoundation.org/show_bug.cgi?id=111998

Luis <[email protected]> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |[email protected]
                   |                            |m

--- Comment #1 from Luis <[email protected]> ---
Macro is not correct as ThisComponent is not bound to Form when loaded.

Test that:

Sub OnOpenDocument()
Dim oController

Dim xDoc as object

oController = ThisDatabaseDocument.CurrentController
If not ( oController.isConnected() ) Then oController.connect() ' Connect to
the database, if necessary

xDoc=oController.loadComponent(
com.sun.star.sdb.application.DatabaseObject.FORM, _
"Formular1", FALSE ) ' Parameters: ObjectType, Parameter ObjectName, ForEditing

Dim xCurrentController as Object
   Dim xLayoutManager as Object
' If Design mode, just exit the routine and display standard menu and toolbars'
   xCurrentController = xDoc.CurrentController
   If xCurrentController.isFormDesignMode Then
       Exit Sub
   End If
   xLayoutManager = thisComponent.CurrentController.Frame.LayoutManager
   xLayoutManager.visible = false   
end sub

-- 
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs

Reply via email to