作成者	カテゴリ	返答の対象		公開
taka 06/16/2004 11:36 AM		入れ子いうエラーが出る

uidocで現在の文書が編集条件であるかどうか調べるために
Set uidoc = ws.currentdocumentと書いたのですが、
もっとこの構文をシンプルにできますか?正しい構文を教えてください


Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument
Set uidoc = ws.currentdocument
If uidoc.editmode = True Then
Set doc = uidoc.document
Call doc.replaceitemvalue("Form","就業報告書表示加工用")
Call doc.save(True,True)
End If
End Sub