当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。

テクてく Lotus 技術者 Slack に参加しよう!

2008年4月26日土曜日

データベース名の表示

DBのタイトルの取得方法です。
こんなのTipsのうちにも入らないけど、一応記載しておきましょう。

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    
    Set db = session.CurrentDatabase
    Messagebox db.Title , 64, "スクリプト"
End Sub


ちなみに・・・@関数で実現する時は、下記のような感じになる。
@DBTitle関数は、サーバ名とDBタイトルをリスト形式で返すので、2番目(引数の-1は一番後ろという意味)を
取得するようにするのがコツ。

@Prompt([Ok];"@関数";@Subset(@DbTitle;-1))


0 件のコメント: