Code In LibreOffice Base - Simple Form

Learn how to program a form in LibreOffice (open office) base.
LibreOffice (Open Office) Base programming book with reviews (affiliate) https://amzn.to/35wqtuI
☕ Ko-FI Support ... https://ko-fi.com/seanbjohnson ☕ or buymeacoffee https://www.buymeacoffee.com/seanjohnson ☕
How to create a simple record navigation form in LibreOffice base.
This tutorial will get you started with the basics of programming in LibreOffice.
This lesson covers creating a form, adding two text box controls and two button controls onto the base form.
Then I show you how to set the properties of the form and controls correctly.
You will then learn how to get into the Open Office (LibreOffice) macro editor and create a code module in the standard library to write code for the form.
I then show you how to add code to the navigation buttons I placed on the form.
We make use of the code pasted below by adding it to the form code module.

Video on how to create a LibreOffice Form with SubForm    • How To Create A LibreOffice Base Form...  

All my LibreOffice Tutorial videos can be seen at this link    • How To download Libre Office Mac and ...  

LibreOffice and OpenOffice macros are similar to Microsoft VBA, main differences are that Microsoft has IntelliSense and a different API.

☕
If you found this tutorial helpful consider supporting this channel with a steaming hot cup of coffee... https://buymeacoffee.com/seanjohnson
☕

The code referred to in the video is below ...

Private Function getFormFromEvent(e as Object) as Object
Dim szModuleRoutineName as String
szModuleRoutineName = "m_frmMoveRecord.GetFormFromEvent"
On Error Goto ErrorCheck

select case e.Source.ImplementationName
case "com.sun.star.form.FmXFormController"
GetFormFromEvent = e.source.model
case "com.sun.star.form.OButtonControl"
GetFormFromEvent = e.source.model.parent
case "com.sun.star.comp.forms.ODatabaseForm"
GetFormFromEvent = e.source
case else
msgbox e.Source.ImplementationName
msgbox "Unknown event in mSwitchboard.LoadMainKeywordFile"
msgbox "Need to look at the locals window to trace up the stack" & chr(13) & "to find the form reference."
end select
Exit Function

ErrorCheck:
MsgBox "Error in " & szModuleRoutineName & chr(13) & "Error Number: " & err & " " & Error$ & chr(13) & "Error Line : " & erl
End Function

In This Video
-------------------------
Cameras Used Canon 70D http://ebay.us/YyjzeV
Lens EFS 18-135 http://ebay.us/WoGVpr
Microphone Rode NT-USB http://ebay.us/BvsfcA

Latest Gear
---------------------
Video Production
===============
Sony Camera: https://amzn.to/3mqyqfu
Elgato HDMI Stream Capture: https://amzn.to/2Yfyrum

Microphones
---------------
Screen Casting: https://amzn.to/3a2TnHN
Microphone and Arm : https://amzn.to/3iwvL2S
Talking To Camera: https://amzn.to/3FqXI6b

Video Kit
-------------
Lights
Elgato video Lights: https://amzn.to/3sSK3xg
Background Light: https://amzn.to/3uTXyPh

Note Taking
--------------
Rocketbook reusable notebook https://amzn.to/3sSK3xg


#libreoffice #openoffice

DISCLAIMER: This video and description contain affiliate links, this means if you click on one of the product links, I'll receive a small commission.