Adding a Button To Open Another Form

From NeoWiki

If you attempt to add a new field trip involving a location not already in the Locations table, you will encounter an error message. New locations must be added before the field trip data is entered. Because the Field Trips data entry form will be used most often, and because it is likely that users will forget to enter new locations first, we can make the user's experience easier by adding a button to the Field Trips Data Entry form that will open the Locations Data Entry form. This article explains how to do that.

Create The Necessary Macros

Note: The macros below were found in This thread of the oooforums.org Base forum. The only changes involve changing the form names.

1. In the main database document window, click on Forms in the left hand column.
2. Control-click or right-click on the Field Trips Data Entry form and choose Edit from the contextual menu. The form will open.
3. Under the Tools menu, choose Macros, then Organize Macros and finally NeoOffice Basic
4. Click the Organizer button
5. Click on the flippy triangle to the left of the document icon named Field Trips Data Entry
6. Click on the folder icon named Standard that appears
7. Click the New button; the New Module window appears.
8. Give the new module a name. I chose "ButtonMacros" (without the quotes)
9. Click OK
10. A new window will open, titled Field Trips Data Entry.Standard - Basic. You will see the following lines:

    Sub Main

    End Sub

11. Click in the blank space after the "End Sub" line
12. Enter the following code:
    

    REM Generic macros needed to open any form 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 function getFormsTC() as variant getFormsTC = thisComponent.Parent.getFormDocuments end function function getConnectionTC() as variant getConnectionTC = thisComponent.Drawpage.Forms(0).ActiveConnection end function REM Macro to open specific form called 'Locations Data Entry'. One is needed for each form you wish to open from another form. sub OpenForm_Locations_Data_Entry( oev as variant ) sFormName = "Locations Data Entry" OpenForm( getFormsTC, getConnectionTC, sFormName ) end sub

    --> Note: code under REM Generic macros needed to open any form only needs to be entered once in the Module. If you add buttons to open other forms later, all you need to do is copy the code under REM Macro to open specific form and change the names in the first two lines to reflect the form you want opened. In the first line (that begins sub OpenForm_), you cannot use spaces in naming the macro; you must use underscores instead.

13. Click on the Save button on the toolbar (it looks like an external "floppy" drive)
14. Close the window by clicking on the red circle in the upper left hand corner.

--> Note: This tutorial has you save this macro in the document. It is possible to save it to a module in "My Macros." But if you copy or move the document to another computer (or another user account), the form will be unable to find the macro that way. Saving the macro in the document insures that it will always be available to the form.

Add the Button

1. With the Field Trips Data Entry form still open, make sure that the form controls toolbar is visible. If it is not, go to the View menu and choose Toolbars and then Form Controls.
2. Click on the Push Button icon on the Form Controls Toolbar.
3. Move the mouse to the spot on the form where you want to add the button. I choose to place it near the "Location" label.
4. Click and drag to create the button.
5. Double-click the button to open the properties window.
6. Under the General tab, make the following changes:
   1. Give the button a descriptive Name. I called it "Open Location Form"
   2. Give the button a Label this will appear on the button. I entered "New Location" (without the quotes)
   3. Set Tabstop to "No." This way the button will not be part of the tab order. (leave it at Yes if you want it to be part of the tab order)
   4. Near the bottom, enter some descriptive Help text. This will appear as a "tool tip" when you mouse over the button, unless you have such tips turned off.
7. In the Events tab, find the line that says Mouse button pressed.... Click the ... button that is to the right of the field box in that same line. The Assign Actions window opens.
8. Make sure that Mouse button pressed line is selected. If not, select it.
9. Click the Macro...
10. In the Macro Selector window, click on the flippy triangle next to the Field Trips Data Entry document icon.
11. Click on the flippy triangle next to the Standard folder icon
12. Click on the Button macros folder icon
13. In the Macro Name column, select the macro named Open_Form_Locations_Data_Entry
14. Click OK
15. Close the Assign Action by clicking the OK
16. Close the Properties:Button window
17. Click on the Design Mode On/Off button (the blue drafting triangle)
18. Click on the newly made button, and verify that the Locations Data Entry form opens.

External Links

OOo Forums thread on this topic