Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
If db.IsMultiDbSearch Then
Messagebox "Is On",, "MultiDbSearch"
Else
Messagebox "Is Off",, "MultiDbSearch"
End If

関連項目

IsMultiDbSearch プロパティ

用語集