LO Basic How-TO: FormCalls Module

'**** OPEN AUTHORS FORM *****
Sub OpenAuthorsForm(oEv As Object)
    OpenAForm("Authors")
End Sub



'**** OPEN MEDIA FORM *****
Sub OpenMediaForm(oEv As Object)
    OpenAForm("Media")
End Sub



'**** REFRESH LISTBOX *****
Sub ListRefresh(oEv as Object)
    oEv.source.model.Refresh
End Sub



'**** OPEN SUPPLIED FORM BY NAME *****
Sub OpenAForm (FormName as String)
    Dim GetForm as Object
    GetForm = ThisDatabaseDocument.FormDocuments.GetByName(FormName)
    GetForm.Open
End Sub