現在のデータベースを閉じる（NotesUIDatabase クラス）

Sub Initialize
	Dim ws As New NotesUIWorkspace
	Dim uidb As NotesUIDatabase
	Set uidb = ws.CurrentDatabase
	Call uidb.Close
End Sub





LotusScript 入門 Step2-2 NotesUIDatabase

3行目 NotesUIDatabase クラスの変数 uidb を宣言
4行目 NotesUIWorkspace クラスの CurrentDatabase プロパティから現在のデータベースを取得、変数 uidb に格納。NotesSession クラスの CurrentDatabase プロパティと違って、戻り値は NotesUIDatabase オブジェクトであることに注意
5行目 NotesUIDatabase クラスの Close メソッドを実行。データベースのすべてのビュート文書を閉じてから、データベースを閉じる

※ データベースを開いた状態で実行すること

LotusScript
tyoshida
April 29, 2018 at 12:15 PM
Rating
0





No comments yetLogin first to comment...