変更内容を保存してファイルを閉じる　−LibreOffice Base−

以下のマクロを記述。
ボタンにマクロを割り当てる際は、フォームに配置したボタンを右クリック→ 「コントロール」→ 「イベント」タブ→「実行時」にマクロ名を割り当て。

Sub SaveAndClose
    Dim returnV as integer
    returnV = Msgbox ("変更内容を上書保存して閉じます" & chr(13) & "よろしいですか?",4+0+48,"確認しています")
    If returnV = 7 then
        Exit Sub
    Else
        ThisDatabaseDocument.store()      ' 変更内容を上書保存
        ThisDatabaseDocument.Close(True)  ' ファイルを閉じる
    End if
End Sub

JA福岡市のPDF(実践編)に記述のマクロを簡素化。

↓　でも、その後改良版も掲載しました。
ドキュメントを閉じるマクロ　−LibreOffice Base−
ドキュメントを上書き保存するマクロ　−LibreOffice Base−

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