Can some one tell what wrong with this code?
'set default record source of form
Const strSQL = "SELECT Resource Types.ResourceTypeID, Resources.ResourceName, Schedule.ScheduleDate, Schedule Details.ScheduleStartTime, Schedule Details.ScheduleEndTime FROM ((Resource Types INNER JOIN Resources ON Resource Types.ResourceTypeID = Resources.ResourceTypeID) INNER JOIN Schedule ON Resources.ResourceID = Schedule.ResourceID) INNER JOIN Schedule Details ON Schedule.ScheduleID = Schedule Details.ScheduleID"
Select Case Me!FrameLocation
'filter record source dependant on option checked
Case 1
strFilterSQL = strSQL & " Where [ResourceTypeID] = 'Fellowship Hall';"
Case 2
strFilterSQL = strSQL & " Where [ResourceTypeID] = 'Confrence Room';"
Case 3
strFilterSQL = strSQL & " Where [ResourceTypeID] = 'Chapel';"
Case 4
strFilterSQL = strSQL & " Where [ResourceTypeID] ='Chapel Lounge';"
Case 5
strFilterSQL = strSQL & " Where [ResourceTypeID] = 'Chapel Kitchen';"
Case 6
strFilterSQL = strSQL & " Where [ResourceTypeID] = 'Small Chape';"
Case 7
strFilterSQL = strSQL & " Where [ResourceTypeID] = 'Choir Room';"
End Select
Me.Requery
Me.RecordSource = strFilterSQL
End Sub
'set default record source of form
Const strSQL = "SELECT Resource Types.ResourceTypeID, Resources.ResourceName, Schedule.ScheduleDate, Schedule Details.ScheduleStartTime, Schedule Details.ScheduleEndTime FROM ((Resource Types INNER JOIN Resources ON Resource Types.ResourceTypeID = Resources.ResourceTypeID) INNER JOIN Schedule ON Resources.ResourceID = Schedule.ResourceID) INNER JOIN Schedule Details ON Schedule.ScheduleID = Schedule Details.ScheduleID"
Select Case Me!FrameLocation
'filter record source dependant on option checked
Case 1
strFilterSQL = strSQL & " Where [ResourceTypeID] = 'Fellowship Hall';"
Case 2
strFilterSQL = strSQL & " Where [ResourceTypeID] = 'Confrence Room';"
Case 3
strFilterSQL = strSQL & " Where [ResourceTypeID] = 'Chapel';"
Case 4
strFilterSQL = strSQL & " Where [ResourceTypeID] ='Chapel Lounge';"
Case 5
strFilterSQL = strSQL & " Where [ResourceTypeID] = 'Chapel Kitchen';"
Case 6
strFilterSQL = strSQL & " Where [ResourceTypeID] = 'Small Chape';"
Case 7
strFilterSQL = strSQL & " Where [ResourceTypeID] = 'Choir Room';"
End Select
Me.Requery
Me.RecordSource = strFilterSQL
End Sub