[ホーム] - [ノーツドミノ プログラミングサンプル一覧] - [他のフォームを使用した文書をノーツ文書内で生成するサンプルコード]




他のフォームを使用した文書をノーツ文書内で生成するサンプルコード


開いている文書内で、他のフォームを使用した文書を作成する方法を紹介します。
CreateDocumentメソッドを使用して実現します。
以下の例では、文書内から Form2フォームを使用して文書を作成し保存します。その際、開いている文書のfield1の値を作成する文書のfield1の値へ代入します。


Dim session As New notessession
Dim workspace As New NotesUIWorkspace

Set uidoc = workspace.CurrentDocument
Set db = session.Currentdatabase
Set newdoc=db.CreateDocument

field1=uidoc.FieldGetText("field1")

newdoc.Form="Form2"
newdoc.field1=field1

rem 新規文書を保存し、戻り値のエラーチェックを行う。
If (newdoc.Save(False,True)) Then
 Messagebox"正常に作成されました。",0,"確認"
Else
 Messagebox"保存に失敗しました。",0,"エラー"
End If






本ページは IBM Lotus Notes Domino (ロータスノーツドミノ)を対象としています。 基本的には Notes 4,5,及び6以後を対象としていますが、バージョンによっては対応していない場合があります。 lotus scriptや @関数 (@コマンド)を対象としていて、VB Scriptには対応していません。 本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。 このページはリンクフリーです。(このページへの直接リンクも可能です。)

[ホーム] - [ノーツドミノ プログラミングサンプル一覧]