Filtering a view in R5 with a dialog box form

the non-full text search simply follows formula rules, so you create a searchString, and make sure quotes are doubled, so use the curly braces.
When you have a date range, you need to decide how restrictive you want to be.   For example, seeing if one date falls in a range is easy.

Seeing if a range falls into another range is a bit more difficult.  For instance:
StartDate="03/01/2006" and EndDate="03/31/2006"

If my filter is StartDateFilter="02/15/2006" and EndDateFilter="03/15/2006"

Then the following formula will be true for the startDateFilter:

searchMacro = {Form = "Your Form Name" & StartDate <=[} & dialogdoc.EndDateFilter (0) & {] & EndDate >=[} & doc.StartDateFilter(0) & {]}

So, if you want none of the dates to fall outside of the startDateFilter, then you would have to fiddle with the formula some more.


Here is example:

Sub Click(Source As Button)
      Dim Session As New NotesSession
      Dim db As NotesDatabase
      Set db = session.currentdatabase
      Dim doc As NotesDocument
      Dim coll As NotesDocumentCollection
      Dim dialogdoc As NotesDocument
      Set dialogdoc = db.Createdocument
      With dialogdoc
            .form="the form name"
            .StartDateFilter = Today()
            .EndDateFilter=Today()
            .computewithform False, False
      End With
      Dim result As Variant
      Dim ws As New NotesUIWorkspace
      'call the dialog box so that you have the handle on the fields to be returned
      result = ws.dialogbox("the form name",True, True, False, False, True,False, "Date Range",dialogdoc)
      If Not result Then Exit Sub 'user canceled
      
      'Now we have the dates to filter
      
      Dim searchMacro As String
      searchMacro = {Form = "Your Form Name" & StartDate <=[} & dialogdoc.EndDateFilter (0) & {] & EndDate >=[} & doc.StartDateFilter(0) & {]}
      
      Set coll = db.search(searchMacro, Nothing, 0)
      
      If coll.count > 0 Then
            Call coll.PutAllInFolder("This Folder")
      End If
      
      
End Sub

Thanks for the response.  I made some minor changes to your example to match my field names and form names.  The dialogbox comes up and I can pick my date range to search on but I get an "Object Variable Not Set" when I click OK in the dialog box.  The debugger is of no help because it says it cannot debug inside of a dialog box.  I confirmed my field names and form names and I created the folder, "Filter Results".  Any help will be appreciated.  Increasing the points to 1000!

Sub Click(Source As Button)
      Dim Session As New NotesSession
      Dim db As NotesDatabase
      Set db = session.currentdatabase
      Dim doc As NotesDocument
      Dim coll As NotesDocumentCollection
      Dim dialogdoc As NotesDocument
      Set dialogdoc = db.Createdocument
      With dialogdoc
            .form="Filter Dialog"
            .StartFilterDate = Today()
            .EndFilterDate=Today()
            .computewithform False, False
      End With
      Dim result As Variant
      Dim ws As New NotesUIWorkspace
     'call the dialog box so that you have the handle on the fields to be returned
      result = ws.dialogbox("Filter Dialog",True, True, False, False, True,False, "Date Range",dialogdoc)
      If Not result Then Exit Sub 'user canceled
      
     'Now we have the dates to filter
      
      Dim searchMacro As String
      searchMacro = {Form = "Assignment" & StartDate <=[} & dialogdoc.EndFilterDate (0) & {] & EndDate >=[} & doc.StartFilterDate(0) & {]}
      
      Set coll = db.search(searchMacro, Nothing, 0)
      
      If coll.count > 0 Then
            Call coll.PutAllInFolder("Filter Results")
      End If
      
      
End Sub

I will increase the points as soon as I can find out how to do it.

Don't think you can :)

Add Option Declare to the Option section, and then save your button and see if you can get an undeclared error.

oops, typo:
 doc.StartFilterDate << dialogdoc.StartFilterDate(0)

Also, make sure you have a folder "Filter REsults"

OK

I am making progess, fixed the typo...no more error.  Also, I need the search to pick up docs where the two date ranges overlap in any way so if (StartDate - EndDate) falls anwhere in (StartFilterDate - EndFilterDate) even by one day and even if any some days in (StartDate - EndDate) are both inside and outside of (StartFilterDate - EndFilterDate) range.  Hope that is clear.  I have always hated DT calcs.

Also, it looks like this code will place the resulting doc set into my folder "Filter Results" so I just need to add some code to open that folder correct?

Thanks

Thanks for the points, good luck!