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

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　←※
　：
End Sub

なぜCurrentDocumentを再取得しているのですか？
何か意味（目的）があるのでしょうか？