Date Range Problem

[Drunkenneo]

I am trying to get the records on start and end date, still showing error no records found, Please help.

My code is like this:
Private Sub Command90_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strReport As String

Const strcJetDate = "\#dd\/MM\/yyyy\#"

If (Text86.Value > Text88.Value) Then
MsgBox ("Enter Valid Period")
On Error GoTo ErrorHandlerExit
Else
Me.Form.RecordSource = "SELECT * FROM Master_Log WHERE date_processed BETWEEN " & Format(Me.Text86, strcJetDate) & " AND " & Format(Me.Text88, strcJetDate) & ""
'Me.Form.RecordSource = "SELECT * FROM Master_Log WHERE Date_Processed BETWEEN CDate(" & txt86.Value & ") AND CDate(" & txt88.Value & ");"
End If

On Error GoTo ErrorHandler
With Me.RecordsetClone
.MoveLast
'lblrec.Caption = .RecordCount
End With

If CurrentProject.AllReports(strReport).IsLoaded Then
DoCmd.Close acReport, strReport
End If


ErrorHandlerExit:
Exit Sub
ErrorHandler:
MsgBox "Error No: " & Err.Number & "; Description: " & _
Err.Description
Resume ErrorHandlerExit
Text86.SetFocus
End Sub

 

[pbaldy]

For starters, in code Access expects dates in US format:

http://allenbrowne.com/ser-36.html#Format