フィルターに対応するレコード件数を取得するマクロ(関数) −LibreOffice Base−
Libre Office の Base をマクロで使う-Base データの読込み- より 関数は、下記。 Function GetDBRecCount(ByVal tblname as String, ByVal filterstr as String) As Long Dim Doc ...
日々の雑感その他
Libre Office の Base をマクロで使う-Base データの読込み- より 関数は、下記。 Function GetDBRecCount(ByVal tblname as String, ByVal filterstr as String) As Long Dim Doc ...
"No"、"name"という2つのフィールドを持つ"T_main"というテーブルの、"No"が「3」のレコードを抽出して、そのレコードの"name"のフィールドの中身を表示する例。 Sub Select_Sql Dim dstr as string Dim tmpstr a...
LibreOffice BASE は使えるか? (2) マクロで、SQL実行 - Qiita より。 Sub Do_Sql(sql as String) 'msgbox(sql) oresult = ThisDataBaseDocument.DataSource.getconn...
以下のマクロを記述。 ボタンにマクロを割り当てる際は、フォームに配置したボタンを右クリック→ 「コントロール」→ 「イベント」タブ→「実行時」にマクロ名を割り当て。 Sub SaveAndClose Dim returnV as integer returnV = Msgbox (...
以下のマクロを記述。「●見かけのフォーム名●」のところは「Form_Main」等、指定したいフォーム名に変える。マクロを割り当てる際は、ボタンを右クリック→ 「コントロール」→ 「イベント」タブ→「実行時」にマクロ名を割り当て。 Sub FormClose oDoc = ThisDatab...
以下のマクロを記述。「●●見かけのフォーム名●●」のところは「Form_Main」等、指定したいフォーム名に変える。マクロを割り当てる際は、ボタンを右クリック→ 「コントロール」→ 「イベント」タブ→「実行時」にマクロ名を割り当て。 Sub FormOpen oDoc = ThisDatab...
以下のマクロを記述。 「●●見かけのフォーム名●●」のところは「Form_Main」等、指定したいフォーム名に変える。 マクロを割り当てる際は、メニューの「ツール」→ 「カスタマイズ」→ 「イベント」タブ→「文書を開いた時」にマクロ名を割り当て。 ' 起動時に指定のフォームを開く Sub Auto_...