Error with code

scjohn

Registered User.
Local time
Tomorrow, 05:59
Joined
Nov 3, 2004
Messages
31
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
 
Does it error or just not return any records? If it does error, what line and/or message do you get?

kh
 
Four things:

  • Make sure you have dimensioned strFilterSQL;
  • Use Me.FrameLocation rather than Me!FrameLocation - you've used the 'dot' operator further down in the same code. Be consistent. Always, when possible, use the 'dot' operator;
  • Case Is = 1 - You need an equals unless you are using enumerated constants;
  • You requery the form and then change its RecordSource - What's the point in that? Remove the Me.Requery line as it is unnecessary.
 

Users who are viewing this thread

Back
Top Bottom