作成者	カテゴリ		公開
イナモリ 10/17/2017 01:26 PM	-- 分類を選んでください --

あるフォームのフィールド（管理者）で検索をかけて、フォルダに表示したいのですがうまくいきません。どこが悪いのか行き詰ってます。
わかる方いましたら、ご教授願います。

Sub Click(Source As Button)
Dim workspace As New Notesuiworkspace
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim SearchKey As String
Dim collection As NotesDocumentCollection
Dim strAndOr As String
Dim strOr As String

'検索結果クリア
Set db = session.CurrentDatabase
SearchKey = "FIELD Form contains ""Form_Excel_Load"""
Set collection = db.FTSearch( Searchkey, 0 )
Call collection.RemoveAllFromFolder( "SearchFolder" )

Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.document

'検索条件取得
'AND検索
strAndOr = " AND "
'OR検索
strOr = " Or "

SearchKey = "FIELD Form contains ""Form_Excel_Load"""

'管理者
If doc.key1(0) <> "" Then
SearchKey = SearchKey & strAndOr & "FIELD 管理者 = " & doc.key1(0)
End If

Msgbox SearchKey
Set collection = db.FTSearch( Searchkey, 0 ,,512)

Print collection.count & "文書が見つかりました。"

If collection.count > 0 Then
'検索結果表示用ﾌｫﾙﾀﾞｰ(共有個人ﾌｫﾙﾀﾞ)に文書をｺﾋﾟｰする
Call collection.PutAllInFolder( "SearchFolder" )
Print collection.count & "コピーしました。"
End If
Call workspace.ViewRefresh
End Sub