動態查詢表單
查詢選課為例
主表單: 新增一空白表單
內含一標籤及下拉方塊,命名為 strNo
加入一子表單命名為詳細選課資料,資料來源設為無
下拉方塊 strNo 資料設定如下,格式欄數為 2,欄寬 2cm;2cm
在strNo 之 After Update 資料事件程序加入下列指令 Set db = CurrentDb()
Dim str As String Dim qdf As QueryDef
詳細選課資料.SourceObject = ""
str = "SELECT selcourse.OpnNo, selcourse.StuNo, selcourse.SelDate, student.StuNa, class.StuClass, course.CsNa, course.Dept, course.Hour "
str = str & "FROM (student INNER JOIN class ON student.StuNo = class.StuNo) INNER JOIN ((course INNER JOIN opncourse "
str = str & " ON course.CsNo = opncourse.CsNo) INNER JOIN selcourse "
str = str & " ON opncourse.OpnNo = selcourse.OpnNo) ON student.StuNo = selcourse.StuNo "
str = str & " Where selcourse.StuNo ='" & Me!strNo & "'"
If isTmpqry("Temp") Then dlTmpqry ("Temp")
'// 在公用模組 Module1,新增 isTmpqry()和 dlTmpqry ()兩個公用函數 Set qdf = db.CreateQueryDef("Temp", str)
詳細選課資料.SourceObject = "查詢.Temp"
詳細選課資料.Requery