Hi,
I'm trying to create a report that will produce automated sets of Committee Minutes for School Appeals, where there are a set range of different outcomes.
The field involved are all from the same table, and called:
[OUTCOME], [SCHOOL TYPE], [SCHOOL], [PRIMARY/SECONDARY] and [YEAR APPLIED FOR]
In the query where the result of the outcome in needed, it has the following in a field:
Code:
Minute: MINUTEOUTCOME([OUTCOME],[SCHOOL TYPE],[SCHOOL],[PRIMARY/SECONDARY],[YEAR APPLIED FOR])
And in a module, I have the following:
Code:
Option Compare Database
Public Function MINUTEOUTCOME(OUTCOME, SchoolType, School, PrimarySecondary, YearAppliedFor) As String
Dim strMINUTEOUTCOME As String
'Evaluate the outcome type
Select Case OUTCOME
Case "Grant - Stage 1"
strMINUTEOUTCOME = "RESOLVED – That the " & SchoolType & " has failed to demonstrate that the admission of an additional pupil to " & School & " " & PrimarySecondary & " School in " & YearAppliedFor & " would prejudice the provision of efficient education and the efficient use of resources and that accordingly the " & SchoolType & " be requested to make a place available."
Case "Grant - Stage 2"
strMINUTEOUTCOME = "RESOLVED – (1) That Panel were satisfied that the admissions procedure had been applied correctly in the circumstances of the case." _
& " " _
& "(2) That the appeal against the decision of the " & SchoolType & " to refuse a place at " & School & " " & PrimarySecondary & " School in " & YearAppliedFor & " be upheld on the grounds that the case put forward by the parents outweighed the prejudice established by the " & SchoolType & ", and that a place be made available at " & School & " " & PrimarySecondary & " School."
Case "Refused"
strMINUTEOUTCOME = "RESOLVED – (1) That Panel were satisfied that the admissions procedure had been applied correctly in the circumstances of the case. " _
& " " _
& "(2) That the appeal against the decision of the " & SchoolType & " to refuse a place at " & School & " " & PrimarySecondary & " School in " & YearAppliedFor & " be dismissed on the grounds that the Panel was satisfied that to allow the appeal and to allocate a place at " & School & " " & PrimarySecondary & " School would be prejudicial to the provision of efficient education and the efficient use of resources to such an extent as to override the reasons put forward by the parent in preferring " & School & " " & PrimarySecondary & " School."
Case "Deferred"
strMINUTEOUTCOME = "RESOLVED – That consideration of the appeal be deferred."
Case "Withdrawn"
strMINUTEOUTCOME = "The Clerk informed the Panel that the appeal had been withdrawn."
Case "Maladministration (Inf. Class Size Appeal)"
strMINUTEOUTCOME = "RESOLVED – That the appeal be granted on the basis that the child would have been offered a place if the admission arrangements had been properly implemented."
Case "Grant - Unreasonable (Inf. Class Size Appeal)"
strMINUTEOUTCOME = "RESOLVED – That the appeal be granted on the basis that the decision to refuse a place was not one a reasonable authority would have made in the circumstances of the case."
Case "Refused (Inf. Class Size Appeal)"
strMINUTEOUTCOME = "RESOLVED – That the appeal be refused on the grounds of class size prejudice."
End Select
MINUTEOUTCOME = strOutcome
End Function
Although I've eradicated a number of error messages from my original attempts, when the query runs, it bring up no data.
Can anyone spot where I may have done wrong?