Date Filters VBA

[Neilster]

I know in Access that you can filter your work load criteria for each employee which is fine using Como boxes to filter down specific criteria for that employee, however I'm trying to achieve it with date filters between certain dates, and it works but ends up filtering the dates for every employee, I just want it to filter that specific employee .

This is what I have so far.

 Private Sub Date_Filter_Click()
 
    Dim strWhere As String
    Dim lngLen As Long
    Const conJetDate = "\#mm\/dd\/yyyy\#"
    
   
    If Not IsNull(Me.txtStartDate) Then
        strWhere = strWhere & " ([NextCallDate] >= " & Format(Me.txtStartDate, conJetDate) & ") AND "
    End If
    
    
    If Not IsNull(Me.txtEndDate) Then
        strWhere = strWhere & " ([NextCallDate] < " & Format(Me.txtEndDate + 1, conJetDate) & ") AND "
    End If
    
 
    lngLen = Len(strWhere) - 5
    If lngLen <= 0 Then
        MsgBox "No criteria", vbInformation, "Nothing to do."
    Else
        strWhere = Left$(strWhere, lngLen)
        
        Me.Filter = strWhere
        Me.FilterOn = True
 
    End If
 
End Sub

Can anyone help please

 

[namliam]

Continued from
http://www.access-programmers.co.uk/forums/showthread.php?t=275979
Which is continued from
http://www.access-programmers.co.uk/forums/showthread.php?t=275682

Where in the code are you filtering on employee? Erm.... no where, so why would you expect it to keep your employee filter in tact?

 

[Vassago]

Please do not open new threads on the same subject.