This database search functionality will search for Lotus Notes documents created in a specific time zone -- within the date/time range the user gives -- with just a couple of steps.
- Get the From date and time and the To date and time of Lotus Notes documents created from the search form.
- Now, search for the Lotus Notes documents created in that particular date and time range. The following code should be implemented into the search button:
Dim wks As NotesUIWorkspace
Dim session As NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim dc As NotesDocumentCollection
Dim docCurrent As NotesDocument
Dim From_datetime As NotesDateTime
Dim To_datetime As NotesDateTime
Dim strFromDateTime As String
Dim strToDateTime As String
Set wks = New NotesUIWorkspace
Set session = New NotesSession
Set db = session.CurrentDatabase
Set uidoc = wks.CurrentDocument
Set docCurrent = uidoc.Document
'FromDate and FromTime are the fields
to get corresponding Date and Time
values of Search form
strFromDateTime =
Format(docCurrent.FromDate(0), "Short Date")
&" " & Format(docCurrent.FromTime(0),
"Long Time")
Set From_datetime =
New NotesDateTime(strFromDateTime)
'ToDate and ToTime are the fields to get
corresponding Date and Time values of
Search form
strToDateTime =
Format(docCurrent.ToDate(0), "Short Date")
&" " & Format(docCurrent.ToTime(0), "Long Time")
Set To_datetime =
New NotesDateTime(strToDateTime)
'docCreatedOnUS holds the date/time
field (in US timezone) of the document created.
'This query will helps to find the result.
querysearch$ = { Form =
"Sample" & (docCreatedOnUS >= [}
& From_datetime.ZoneTime & _
{]) & (docCreatedOnUS
<= [} & To_datetime.ZoneTime & {])}
'The collection of documents as result
Set dc =
db.Search(querysearch$, Nothing, 0)
Msgbox dc.Count,0+64, db.Title
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip library by member Gunasekaran Subramanian. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.
