ボタンのクリックでフォームを閉じる　−LibreOffice Base−

2019/4/13 2020/3/15 LibreOffice, LibreOffice Base

以下のマクロを記述。
「●見かけのフォーム名●」のところは「Form_Main」等、指定したいフォーム名に変える。
マクロを割り当てる際は、ボタンを右クリック→ 「コントロール」→ 「イベント」タブ→「実行時」にマクロ名を割り当て。

Sub FormClose
	oDoc = ThisDatabaseDocument
	Dim interfaceStr As String
	interfaceStr = "com.sun.star.sdb.OfficeDatabaseDocument"
	If oDoc.supportsService(interfaceStr) = false Then
		Exit Sub
	End If
	oDoc.FormDocuments.getByName("●見かけのフォーム名●").close()
End Sub

基本的にはJA福岡市のPDF(実践編)に記述のとおりなんですが、自分用のメモとして。

（　LibreOffice 6.2.0.3　／　Linux Mint Debian Edition3(LMDE3)”Cindy”　）