ボタンのクリックでフォームを閉じる −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(実践編)に記述のとおりなんです
