忍者ブログ
里山登山と蕎麦の食べ歩きが大好きです。 このブログは、その活動のメモです。
プロフィール
HN:
haikaichu
性別:
非公開
P R

[PR]

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

Baseマニュアルを見つけました

Libreoffice Baseマニュアルを探していたらこんなページを見つけました。

http://www.forest.impress.co.jp/library/software/libbasepdf/

結構、皆さん勉強しているのですね。
PR

base起動時にフォームを自動的に開く

base起動時にフォームを自動的に開きたいといろいろ試行錯誤していたら、下記のページを見つけました。

OpenOffice.org/LibreOffice Baseで起動時にフォームを自動で開く

早速ためいてみたら、簡単に出来ました。

とても助かります。

わたしのしたことは、下記のマクロを書き直しただけです。

Sub Sb_OpenMainMenu( )
Dim ObjTypeWhat
Dim ObjName As String
ObjTypeWhat = com.sun.star.sdb.application.DatabaseObject.FORM
ObjName = "FRM_メニュー" 'The name of the form you want to open at Base start-up, this needs to exist.
If ThisDatabaseDocument.FormDocuments.hasbyname(ObjName) Then 'Check the form exists
ThisDataBaseDocument.CurrentController.Connect() 'If the form exists connect to the database
ThisDatabaseDocument.CurrentController.loadComponent(ObjTypeWhat, ObjName, FALSE) 'Open the form
Else
MsgBox "すみません。指定されたフォームが見つかりません。"+chr(10)+"Form Name = " & ObjName + chr(10)+"Check the details." , 48, "エラー"
End if
End Sub 'Sb_OpenMainMenu( )


忍者ブログ [PR]

graphics by アンの小箱 * designed by Anne