My $0.02.........
You could
- set the default property of the text box "txtFrom" to #1/1/1901#
- set the default property of the text box "txtTo" to #12/31/2099#
Change the name of the buttons and add this click code:
Code:
Private Sub btnSearch_Click()
'Search button
Me.lstSearchResults.Requery
End Sub
Private Sub btnReset_Click()
'Reset button
Me.txtFrom = #1/1/1901#
Me.txtFrom = #12/31/2099#
Me.lstSearchResults.Requery
End Sub
Set the list box " lstSearchResults" RowSource to:
Code:
SELECT Field1, Field2 FROM TableName WHERE [FieldName] Between [forms]![YourForm].[txtFrom] And [forms]![YourForm].[txtTo]));
Change one of both dates and click the search button.
Click the reset button to reset the dates to default and requery the list box.