Below is the Sql for the 1st 3 queries in the macro. Once the macro gets to
the 3rd query (qLoad) I get prompted to enter data for each field in the
first 2 queries.
SELECT DISTINCT DataSCS.Student, DataSCS.CourseLevel, DataSCS.Cred,
DataSCS.Schools, DataSCS.ReportTerm, DataSCS.School, DataSCS.Dept,
DataSCS.CourseSection, DataSCS.Location, DataSCS.CredType,
DataSCS.CourseAcadLevel, DataSCS.Status, DataSCS.CurrentStatus,
DataSCS.SecAcadLevel, DataSCS.StcAcadLevel, DataSCS.StcStartDate,
DataSCS.ScsStartDate, DataSCS.ScsTerm, DataSCS.SecTerm, DataSCS.School1,
DataSCS.ExtractDate, DataSCS.ActiveProgs, DataSCS.SchoolActiveProgs,
DataSCS.LvlofActProgs
Sql for qDATASCS query:
FROM DataSCS
GROUP BY DataSCS.Student, DataSCS.CourseLevel, DataSCS.Cred,
DataSCS.Schools, DataSCS.ReportTerm, DataSCS.School, DataSCS.Dept,
DataSCS.CourseSection, DataSCS.Location, DataSCS.CredType,
DataSCS.CourseAcadLevel, DataSCS.Status, DataSCS.CurrentStatus,
DataSCS.SecAcadLevel, DataSCS.StcAcadLevel, DataSCS.StcStartDate,
DataSCS.ScsStartDate, DataSCS.ScsTerm, DataSCS.SecTerm, DataSCS.School1,
DataSCS.ExtractDate, DataSCS.ActiveProgs, DataSCS.SchoolActiveProgs,
DataSCS.LvlofActProgs
HAVING (((DataSCS.CurrentStatus) Like "A" Or (DataSCS.CurrentStatus)="N"));
Sql for qDATACS query:
SELECT DISTINCT DataCS.[Reporting Term], DataCS.Term, DataCS.[Section Name],
Sum(DataCS.Seats) AS Seats, Sum(DataCS.Revenue) AS Revenue, DataCS.Subject,
DataCS.Section, DataCS.[Acad Level], DataCS.Depts, DataCS.Location,
DataCS.[Start Date], DataCS.[End Date], DataCS.School, DataCS.ExtractDate,
DataCS.InsertDash AS Course
FROM DataCS
GROUP BY DataCS.[Reporting Term], DataCS.Term, DataCS.[Section Name],
DataCS.Subject, DataCS.Section, DataCS.[Acad Level], DataCS.Depts,
DataCS.Location, DataCS.[Start Date], DataCS.[End Date], DataCS.School,
DataCS.ExtractDate, DataCS.InsertDash;
Sql for qLoad query:
SELECT DISTINCT qDataSCS.Student, qDataSCS.CourseLevel, qDataSCS.Cred,
qDataSCS.ReportTerm, qDataSCS.Dept, qDataSCS.CourseSection, qDataCS.Location,
qDataSCS.CourseAcadLevel, qDataSCS.Status, qDataSCS.CurrentStatus,
qDataSCS.SecAcadLevel, qDataSCS.StcAcadLevel, qDataSCS.StcStartDate,
qDataSCS.ScsStartDate, qDataSCS.School1, qDataCS.ExtractDate, Load.[Full
Load], [cred]/[full load] AS FTE, qDataCS.[Start Date], qDataCS.Course,
qDataSCS.ActiveProgs, qDataSCS.SchoolActiveProgs, qDataSCS.LvlofActProgs,
qDataCS.Term, qDataCS.Revenue
FROM (qDataCS LEFT JOIN qDataSCS ON (qDataCS.Term = qDataSCS.SecTerm) AND
(qDataCS.[Acad Level] = qDataSCS.SecAcadLevel) AND (qDataCS.[Section Name] =
qDataSCS.CourseSection) AND (qDataCS.[Reporting Term] = qDataSCS.ReportTerm))
LEFT JOIN Load ON qDataSCS.SecAcadLevel = Load.Level
GROUP BY qDataSCS.Student, qDataSCS.CourseLevel, qDataSCS.Cred,
qDataSCS.ReportTerm, qDataSCS.Dept, qDataSCS.CourseSection, qDataCS.Location,
qDataSCS.CourseAcadLevel, qDataSCS.Status, qDataSCS.CurrentStatus,
qDataSCS.SecAcadLevel, qDataSCS.StcAcadLevel, qDataSCS.StcStartDate,
qDataSCS.ScsStartDate, qDataSCS.School1, qDataCS.ExtractDate, Load.[Full
Load], [cred]/[full load], qDataCS.[Start Date], qDataCS.Course,
qDataSCS.ActiveProgs, qDataSCS.SchoolActiveProgs, qDataSCS.LvlofActProgs,
qDataCS.Term, qDataCS.Revenue
HAVING (((qDataSCS.School1)<>"eli" And (qDataSCS.School1)<>"cnsrt" And
(qDataSCS.School1)<>"plus"))
ORDER BY qDataSCS.Student;
Jerry Whittle said:
Please show us the SQL that's asking for a parameter and the parameter that
it's asking for.
If it happens to be a crosstab query, A03 is a little picky in that you must
define parameters data types explicitly. In query design view, go to Query,
Parameters and enter in any parameters in your criteria.