|
7#
楼主 |
发表于 2005-5-21 19:58:00
|
只看该作者
是呀,是这个意思,也就是执行Private Sub 教师工作量_Click()
Dim strFormName As String
Dim qryTest1 As QueryDef, gshi1 As String
Dim qryTest2 As QueryDef, gshi2 As String
Dim qryTest3 As QueryDef, gshi3 As String
Set qryTest1 = CurrentDb.QueryDefs("毕业设计工作量 查询")
gshi1 = DLookup("[公式]", "公式", "[公式ID] = 1")
qryTest1.SQL = "SELECT 教师信息.教师, 学期信息.学期," & gshi1 & " AS 毕业设计工作量 FROM ([毕业设计人数 查询] INNER JOIN 学期信息 ON [毕业设计人数 查询].学期ID = 学期信息.学期ID) INNER JOIN 教师信息 ON [毕业设计人数 查询].教师ID = 教师信息.教师ID GROUP BY 教师信息.教师, 学期信息.学期, [毕业设计人数 查询].教师ID, [毕业设计人数 查询].学期ID;"
qryTest1.Close
Set qryTest2 = CurrentDb.QueryDefs("教师各学期上课工作量合计 查询")
gshi2 = DLookup("[公式]", "公式", "[公式ID] = 2")
qryTest2.SQL = "SELECT 教师信息.教师, 学期信息.学期," & gshi2 & " AS 上课工作量 FROM 学期信息 INNER JOIN (教师信息 INNER JOIN (上课信息 INNER JOIN [上课总人数 查询] ON 上课信息.上课ID = [上课总人数 查询].上课ID) ON 教师信息.教师ID = 上课信息.教师ID) ON 学期信息.学期ID = 上课信息.学期ID GROUP BY 教师信息.教师, 学期信息.学期;"
qryTest2.Close
Set qryTest3 = CurrentDb.QueryDefs("教育实习工作量 查询")
gshi3 = DLookup("[公式]", "公式", "[公式ID] = 3")
qryTest3.SQL = "SELECT 教师信息.教师, 学期信息.学期," & gshi3 & " AS 教育实习工作量 FROM ([教育实习人数 查询] INNER JOIN 学期信息 ON [教育实习人数 查询].学期ID = 学期信息.学期ID) INNER JOIN 教师信息 ON [教育实习人数 查询].教师ID = 教师信息.教师ID GROUP BY 教师信息.教师, 学期信息.学期, [教育实习人数 查询].教师ID, [教育实习人数 查询].学期ID;"
qryTest3.Close
strFormName = "教师总工作量学期筛选 查询"
DoCmd.OpenForm strFormName
End Sub这一大串代码 |
|