eeperry

LO Basic How-TO: FormCalls Module

Dec 16th, 2012
847
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. '**** OPEN AUTHORS FORM *****
  2. Sub OpenAuthorsForm(oEv As Object)
  3.     OpenAForm("Authors")
  4. End Sub
  5.  
  6.  
  7.  
  8. '**** OPEN MEDIA FORM *****
  9. Sub OpenMediaForm(oEv As Object)
  10.     OpenAForm("Media")
  11. End Sub
  12.  
  13.  
  14.  
  15. '**** REFRESH LISTBOX *****
  16. Sub ListRefresh(oEv as Object)
  17.     oEv.source.model.Refresh
  18. End Sub
  19.  
  20.  
  21.  
  22. '**** OPEN SUPPLIED FORM BY NAME *****
  23. Sub OpenAForm (FormName as String)
  24.     Dim GetForm as Object
  25.     GetForm = ThisDatabaseDocument.FormDocuments.GetByName(FormName)
  26.     GetForm.Open
  27. End Sub
RAW Paste Data