C
Chuck
I have a subform based on a query. I am trying to filter and sort a date
field in one of the fileds on the subform (Interview_Date). I am using input
mask dd-mmm-yyyy on a text field. The field is being sorted by dd but knows
nothing about month (mmm placing 08-Oct-2007 ahead of 09-Sep-2007). how do i
fix this?
Private Sub Filter_Click()
Dim FrmS As Access.Form
Set SF = Me.[subfrmProspectFollowUp].Form ' Reference the Subform
through it's *control*
Select Case Me.[ReminderOptions].Value
Case 1 ' Show all Records
DoCmd.ShowAllRecords
SF.OrderBy = "[Last_Name] ASC"
SF.OrderByOn = True
Case 2 ' FollowUp not checked and no interview date
SF.Filter = "[FollowUp_Req] = No and [Interview_Date] Is Null"
SF.FilterOn = True
SF.OrderBy = "[Initial_Call_Date] ASC"
SF.OrderByOn = True
Case 3 'Filter on Interview Date and sort ASC
SF.Filter = "[Interview_Date] Is Not Null"
SF.FilterOn = True
SF.OrderBy = "[Interview_Date] ASC"
SF.OrderByOn = True
End Select
End Sub
field in one of the fileds on the subform (Interview_Date). I am using input
mask dd-mmm-yyyy on a text field. The field is being sorted by dd but knows
nothing about month (mmm placing 08-Oct-2007 ahead of 09-Sep-2007). how do i
fix this?
Private Sub Filter_Click()
Dim FrmS As Access.Form
Set SF = Me.[subfrmProspectFollowUp].Form ' Reference the Subform
through it's *control*
Select Case Me.[ReminderOptions].Value
Case 1 ' Show all Records
DoCmd.ShowAllRecords
SF.OrderBy = "[Last_Name] ASC"
SF.OrderByOn = True
Case 2 ' FollowUp not checked and no interview date
SF.Filter = "[FollowUp_Req] = No and [Interview_Date] Is Null"
SF.FilterOn = True
SF.OrderBy = "[Initial_Call_Date] ASC"
SF.OrderByOn = True
Case 3 'Filter on Interview Date and sort ASC
SF.Filter = "[Interview_Date] Is Not Null"
SF.FilterOn = True
SF.OrderBy = "[Interview_Date] ASC"
SF.OrderByOn = True
End Select
End Sub