Hi I have updated to access 2013 and before I had a Calendar Control that filter a form that will no longer work.
I used the following VB code on the load event for the form that was controlled by the calendar.
Private Sub Form_Load()
Me.ctlCalendar.Value = Now()
Me.cboServicecall = "ALL"
Me.cboServiceCallTechnician = "ALL"
Me.chkShowAllDates = False
FilterForm
End Sub
Sub FilterForm()
Dim varCriteria As Variant
Select Case Me.chkShowAllDates
Case True
If Me.cboServicecall = "ALL" And Me.cboServiceCallTechnician = "ALL" Then
Me.FilterOn = False
ElseIf Me.cboServicecall = "ALL" And Me.cboServiceCallTechnician <> "ALL" Then
Me.Filter = "[Service Call Technician] = '" & Me.cboServiceCallTechnician & "'"
Me.FilterOn = True
ElseIf Me.cboServicecall <> "ALL" Then
Me.Filter = "[Service Call] = '" & Me.cboServicecall & "'"
Me.FilterOn = True
Else
Me.Filter = "[Service Call Technician] = '" & Me.cboServiceCallTechnician & "' and '" & "[Service Call] = " & Me.cboServicecall & "'"
Me.FilterOn = True
End If
Case False
If Me.cboServicecall = "ALL" And Me.cboServiceCallTechnician = "ALL" Then
Me.Filter = "[Service call Date] = #" & Me.ctlCalendar & "#"
Me.FilterOn = True
ElseIf Me.cboServicecall = "ALL" And Me.cboServiceCallTechnician <> "ALL" Then
Me.Filter = "[Service Call Technician] = '" & Me.cboServiceCallTechnician & "' and [Service call Date] = #" & Me.ctlCalendar & "#"
Me.FilterOn = True
ElseIf Me.cboServicecall <> "ALL" And Me.cboServiceCallTechnician = "ALL" Then
Me.Filter = "[Service Call] = '" & Me.cboServicecall & "' and [Service call Date] = #" & Me.ctlCalendar & "#"
Me.FilterOn = True
Else
Me.Filter = "[Service Call Technician] = '" & Me.cboServiceCallTechnician & "' and '" & "[Service Call] = " & Me.cboServicecall & "' and [Service call Date] = #" & Me.ctlCalendar & "#"
Me.FilterOn = True
End If
End Select
End Sub
When I would click on the date it would filter the form and show only the service calls for that date. I am now trying to use the new Date Time Picker that access 2013 is using. But I am not sure if I can do this. Any Ideals on how to get this to work with my form. Thanks Angie