[ホーム] - [ノーツドミノ プログラミングサンプル一覧] - [フィールドの値を引継ぎながら新規文書を作成するサンプル]




フィールドの値を引継ぎながら新規文書を作成するサンプル


ある文書からフィールドの値を引継ぎながらフロントエンドの新規文書を作成する方法を紹介します。
composedocumentメソッドを使用しフロントエンド文書を作成します。事前に取得しておいたフィールド値をこのフロントエンド文書のフィールドに代入しています。

以下の例ではFormMain文書を新規に作成し、元の文書のfield1の値を新規作成する文書のfield2に引き継ぎます。


Dim workspace As New notesuiworkspace
Dim uidoc As notesuidocument

Dim session As New notessession
Set uidoc = workspace.CurrentDocument
Dim temp As Variant

temp=uidoc.FieldGetText("field1")

If temp="" Then
Messagebox "field1が空です。",0,"注意"
Exit Sub
End If

Set uinewdoc= workspace.composedocument("","","FormMain")
Call uinewdoc.fieldsettext("field2",temp)



(補足)Lotus Script を使用しています。(VBを Notesに拡張した言語です。)




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

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