Code In LibreOffice Base - Simple Form

Learn how to program a from in LibreOffice (open office) base.
LibreOffice (Open Office) Base programming book with reviews (affiliate) https://amzn.to/35wqtuI
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 https://www.youtube.com/watch?v=e4rAHshAEj8&t=5s

All my LibreOffice Tutorial videos can be seen at this link https://www.youtube.com/watch?v=k6XUpvYwuPg&list=PLQORZjfSPqSkhPbBrwfLOkd_BthVsRqpM

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

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
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.

Видео Code In LibreOffice Base - Simple Form канала Sean Johnson