AX ボタンのクリックでフォームを開く −LibreOffice Base−

ボタンのクリックでフォームを開く −LibreOffice Base−

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

Sub FormOpen
	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("●●見かけのフォーム名●●").open()
End Sub

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

( LibreOffice 6.2.0.3 / Linux Mint Debian Edition3(LMDE3)”Cindy” )

シェアする

  • このエントリーをはてなブックマークに追加

フォローする