ちんといいます。 Helpのように、試したのですが、エラーで怒られます。 私には、件数を求める力がないかもしれません。 （テストケース１） Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Set db = session.CurrentDatabase Set collection = db.FTSearch("Business",0) Messagebox( collection.Count ) ※データベースの中から、"Business"という文字を含んだレコード を全件抽出する。 （テストケース２） Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim doc As NotesDocument Dim j As Integer Set db = session.CurrentDatabase Set view = db.GetView( "All Documents" ) j = view.FTSearch( "server AND protocol", 0 ) Set doc = view.GetFirstDocument ※Viewの中から、"server"という文字 かつ "protocol"を含んだ レコードを全件抽出する。 ※この時、ｊには件数がセットされるはず。 （FTSearchで、全件検索する時は、 FTSearch("*",0) <-- *はワイルドカードで全件探すはず。 参考までに・・・ もしうまくいったら、教えて下さい。