I have a table named Tasks that Contains all the Information about my employee , i am making a Form to open a report based on Employee Name, Tasks done, Date.
but i'm getting error with this code
can u help me figure out where is my error plz
Expand|Select|Wrap|Line Numbers
- Private Sub Command20_Click()
- Dim sFilter As String
- sFilter = ""
- If Me.Name.ListIndex <> -1 Then
- If sFilter = "" Then
- sFilter = "[Assigned To]= " & Me.Name & ""
- Else
- sFilter = sFilter & " And [Assigned To]=" & Me.Name & ""
- End If
- End If
- If Me.Task.ListIndex <> -1 Then
- If sFilter = "" Then
- sFilter = "[Title]= '" & Me.Task & "'"
- Else
- sFilter = sFilter & " And [Title]='" & Me.Task & "'"
- End If
- End If
- If Format(Me.Dates, "MM/DD/YYYY") <> -1 Then
- If sFilter = "" Then
- sFilter = "[Date]= '" & Format(Me.Dates, "MM/DD/YYYY") & "'"
- Else
- sFilter = sFilter & " And [Date]='" & Format(Me.Dates, "MM/DD/YYYY") & "'"
- End If
- End If
- DoCmd.OpenReport "Agent Total Hour", acViewPreview, , sFilter
- End Sub
NB: if i need to set a range so i can choose between 2 dates what would i do plz
Thanks in advance.
Elie Nakhle.