<html>
    <head>
      <base href="https://bugs.documentfoundation.org/">
    </head>
    <body><span class="vcard"><a class="email" href="mailto:luismiguel.lacosta@gmail.com" title="Luis <luismiguel.lacosta@gmail.com>"> <span class="fn">Luis</span></a>
</span> changed
          <a class="bz_bug_link 
          bz_status_UNCONFIRMED "
   title="UNCONFIRMED - BASIC-Laufzeitfehler. Eigenschaft oder Methode nicht gefunden: isFormDesignMode."
   href="https://bugs.documentfoundation.org/show_bug.cgi?id=111998">bug 111998</a>
          <br>
             <table border="1" cellspacing="0" cellpadding="8">
          <tr>
            <th>What</th>
            <th>Removed</th>
            <th>Added</th>
          </tr>

         <tr>
           <td style="text-align:right;">CC</td>
           <td>
                
           </td>
           <td>luismiguel.lacosta@gmail.com
           </td>
         </tr></table>
      <p>
        <div>
            <b><a class="bz_bug_link 
          bz_status_UNCONFIRMED "
   title="UNCONFIRMED - BASIC-Laufzeitfehler. Eigenschaft oder Methode nicht gefunden: isFormDesignMode."
   href="https://bugs.documentfoundation.org/show_bug.cgi?id=111998#c1">Comment # 1</a>
              on <a class="bz_bug_link 
          bz_status_UNCONFIRMED "
   title="UNCONFIRMED - BASIC-Laufzeitfehler. Eigenschaft oder Methode nicht gefunden: isFormDesignMode."
   href="https://bugs.documentfoundation.org/show_bug.cgi?id=111998">bug 111998</a>
              from <span class="vcard"><a class="email" href="mailto:luismiguel.lacosta@gmail.com" title="Luis <luismiguel.lacosta@gmail.com>"> <span class="fn">Luis</span></a>
</span></b>
        <pre>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</pre>
        </div>
      </p>


      <hr>
      <span>You are receiving this mail because:</span>

      <ul>
          <li>You are the assignee for the bug.</li>
      </ul>
    </body>
</html>