2010年6月アーカイブ

元の文書の値を引き継いで、新しい文書を作成する。現在の文書にあるフィールド「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")

Set uinewdoc= workspace.composedocument("","","FormMain")
Call uinewdoc.fieldsettext("field2",temp)
--------------------------------------------------------------------------------------------------------------------------------
composedocument の引数を正しく渡してあげれば、別DBのフォームを開いて指定のフィールドに値を引き継ぐことができる

ウェブページ

Powered by Movable Type 5.2.7