?本系統(tǒng)包含主要功能有：問卷管理，題目管理，問卷填寫，調(diào)查結(jié)果統(tǒng)計(jì)，數(shù)據(jù)匯總導(dǎo)出 ?數(shù)據(jù)庫系統(tǒng)包含：表，查詢，窗體，VBA代碼 ?系統(tǒng)為單機(jī)使用的access數(shù)據(jù)庫系統(tǒng)，可作為學(xué)習(xí)參考使用 系統(tǒng)主頁

Private Sub Command更新_Click() If MsgBox("是否更新問卷記錄：" & wj_name, vbYesNo) <> vbYes Then Exit Sub End If If 問卷名稱2 = "" Or IsNull(問卷名稱2) = True Then MsgBox "問卷名稱值為空！" Exit Sub End If If wj_name = "" Then MsgBox "請先選擇需要管理的問卷！" Exit Sub End If If wj_name <> Me.問卷名稱2 Then If Nz(DCount("問卷名稱", "問卷表", "問卷名稱='" & Me.問卷名稱2 & "'"), 0) > 0 Then MsgBox "該問卷名稱已存在！" Exit Sub End If End If '---------------------------------------- Dim update_sql As String update_sql = "Select * From 問卷表 where 問卷名稱='" & wj_name & "'" Dim update_rs As DAO.Recordset Set update_rs = CurrentDb.OpenRecordset(update_sql, dbOpenDynaset) With update_rs .Edit !問卷名稱.Value = 問卷名稱2.Value !問卷內(nèi)容.Value = 問卷內(nèi)容2.Value !問卷日期.Value = 問卷日期2.Value !備注.Value = 備注2.Value .Update .Close End With Set update_rs = Nothing MsgBox "更新完成" Me.數(shù)據(jù)表子窗體.Requery End Sub Private Sub Command清空_Click() 問卷名稱.Value = "" 問卷內(nèi)容.Value = "" 問卷日期.Value = "" 備注.Value = "" End Sub Private Sub Command刪除_Click() If MsgBox("是否刪除問卷記錄：" & wj_name, vbYesNo) <> vbYes Then Exit Sub End If If wj_name = "" Then MsgBox "請先選擇需要?jiǎng)h除的問卷！" Exit Sub End If DoCmd.SetWarnings (False) Dim del_sql As String del_sql = "Delete From 問卷表 Where 問卷名稱='" & wj_name & "'" DoCmd.RunSQL del_sql MsgBox "刪除完成" Me.數(shù)據(jù)表子窗體.Requery wj_name = "" 問卷名稱2.Value = "" 問卷內(nèi)容2.Value = "" 問卷日期2.Value = "" 備注2.Value = "" End Sub Private Sub Command添加_Click() If 問卷名稱 = "" Or IsNull(問卷名稱) = True Then MsgBox "問卷名稱值為空！" Exit Sub End If If Nz(DCount("問卷名稱", "問卷表", "問卷名稱='" & Me.問卷名稱 & "'"), 0) > 0 Then MsgBox "該問卷名稱已存在！" Exit Sub End If Dim add_rs As DAO.Recordset Set add_rs = CurrentDb.OpenRecordset("問卷表", dbOpenTable) With add_rs .AddNew !問卷名稱.Value = 問卷名稱.Value !問卷內(nèi)容.Value = 問卷內(nèi)容.Value !問卷日期.Value = 問卷日期.Value !備注.Value = 備注.Value .Update .Close End With Set add_rs = Nothing MsgBox "添加完成" Me.數(shù)據(jù)表子窗體.Requery End Sub Private Sub Command保存_Click() If Me.問卷列表 <> "" Then Else MsgBox "請選擇問卷" Exit Sub End If If Me.題目ID <> "" Then '添加答題記錄 Dim add_rs As DAO.Recordset Set add_rs = CurrentDb.OpenRecordset("答題表", dbOpenTable) With add_rs .AddNew ' On Error Resume Next !題目ID.Value = 題目ID.Value !答題人.Value = 答題人.Value !選項(xiàng)A.Value = Check選項(xiàng)A.Value !選項(xiàng)B.Value = Check選項(xiàng)B.Value !選項(xiàng)C.Value = Check選項(xiàng)C.Value !選項(xiàng)D.Value = Check選項(xiàng)D.Value !選項(xiàng)E.Value = Check選項(xiàng)E.Value !選項(xiàng)F.Value = Check選項(xiàng)F.Value !答題.Value = 答題.Value .Update .Close End With Set add_rs = Nothing Me.答題記錄子窗體.Requery Else MsgBox "請選擇題目" Exit Sub End If End Sub Private Sub Command管理題目_Click() DoCmd.OpenForm "題目管理", acNormal End Sub Private Sub Command上一題_Click() If Me.問卷列表 <> "" Then Else MsgBox "請選擇問卷" Exit Sub End If Dim nowindex As Long nowindex = Me.序號 Dim minindex As Long minindex = DMin("序號", "題目表", "問卷名稱='" & Me.問卷名稱 & "'") If nowindex = minindex Then MsgBox "已到達(dá)第一題" Exit Sub End If '-----------------------------------取上一題 Dim search_rs As DAO.Recordset Dim search_sql As String search_sql = "Select * From 題目表 Where 問卷名稱='" & Me.問卷名稱 & "' and 序號<" & nowindex & " order by 序號 DESC" Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset) If search_rs.EOF = False Then Forms("系統(tǒng)主頁").題目ID.Value = search_rs!題目ID.Value Forms("系統(tǒng)主頁").問卷名稱.Value = search_rs!問卷名稱.Value Forms("系統(tǒng)主頁").序號.Value = search_rs!序號.Value Forms("系統(tǒng)主頁").題目.Value = search_rs!題目.Value Forms("系統(tǒng)主頁").題目類型.Value = search_rs!題目類型.Value Forms("系統(tǒng)主頁").選項(xiàng)A.Value = search_rs!選項(xiàng)A.Value Forms("系統(tǒng)主頁").選項(xiàng)B.Value = search_rs!選項(xiàng)B.Value Forms("系統(tǒng)主頁").選項(xiàng)C.Value = search_rs!選項(xiàng)C.Value Forms("系統(tǒng)主頁").選項(xiàng)D.Value = search_rs!選項(xiàng)D.Value Forms("系統(tǒng)主頁").選項(xiàng)E.Value = search_rs!選項(xiàng)E.Value Forms("系統(tǒng)主頁").選項(xiàng)F.Value = search_rs!選項(xiàng)F.Value '題目圖片.Value = search_rs!題目圖片.Value Call 答題控件設(shè)置 Call 篩選答題記錄(Me.題目ID) Call 顯示題目圖片(Me.題目ID) End If search_rs.Close Set search_rs = Nothing End Sub Private Sub Command上一題保存_Click() Call Command保存_Click Call Command上一題_Click End Sub Private Sub Command填空統(tǒng)計(jì)_Click() DoCmd.OpenForm "問卷填空題統(tǒng)計(jì)", acNormal End Sub Private Sub Command下一題_Click() If Me.問卷列表 <> "" Then Else MsgBox "請選擇問卷" Exit Sub End If Dim nowindex As Long nowindex = Me.序號 Dim maxindex As Long maxindex = DMax("序號", "題目表", "問卷名稱='" & Me.問卷名稱 & "'") If nowindex = maxindex Then MsgBox "已到達(dá)最后一題" Exit Sub End If '-----------------------------------取下一題 Dim search_rs As DAO.Recordset Dim search_sql As String search_sql = "Select * From 題目表 Where 問卷名稱='" & Me.問卷名稱 & "' and 序號>" & nowindex & " order by 序號 ASC" Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset) If search_rs.EOF = False Then Forms("系統(tǒng)主頁").題目ID.Value = search_rs!題目ID.Value Forms("系統(tǒng)主頁").問卷名稱.Value = search_rs!問卷名稱.Value Forms("系統(tǒng)主頁").序號.Value = search_rs!序號.Value Forms("系統(tǒng)主頁").題目.Value = search_rs!題目.Value Forms("系統(tǒng)主頁").題目類型.Value = search_rs!題目類型.Value Forms("系統(tǒng)主頁").選項(xiàng)A.Value = search_rs!選項(xiàng)A.Value Forms("系統(tǒng)主頁").選項(xiàng)B.Value = search_rs!選項(xiàng)B.Value Forms("系統(tǒng)主頁").選項(xiàng)C.Value = search_rs!選項(xiàng)C.Value Forms("系統(tǒng)主頁").選項(xiàng)D.Value = search_rs!選項(xiàng)D.Value Forms("系統(tǒng)主頁").選項(xiàng)E.Value = search_rs!選項(xiàng)E.Value Forms("系統(tǒng)主頁").選項(xiàng)F.Value = search_rs!選項(xiàng)F.Value '題目圖片.Value = search_rs!題目圖片.Value Call 答題控件設(shè)置 Call 篩選答題記錄(Me.題目ID) Call 顯示題目圖片(Me.題目ID) End If search_rs.Close Set search_rs = Nothing End Sub Private Sub Command下一題保存_Click() Call Command保存_Click Call Command下一題_Click End Sub Private Sub Command選項(xiàng)統(tǒng)計(jì)_Click() DoCmd.OpenForm "問卷選項(xiàng)統(tǒng)計(jì)", acNormal End Sub Private Sub Command選擇問卷_Click() If Me.問卷列表 <> "" Then Else MsgBox "請選擇問卷" Exit Sub End If Dim search_rs As DAO.Recordset Dim search_sql As String search_sql = "Select * From 問卷表 Where 問卷名稱='" & Me.問卷列表 & "'" Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset) If search_rs.EOF = False Then 問卷名稱.Value = search_rs!問卷名稱.Value 問卷內(nèi)容.Value = search_rs!問卷內(nèi)容.Value 問卷日期.Value = search_rs!問卷日期.Value 備注.Value = search_rs!備注.Value End If search_rs.Close Set search_rs = Nothing '篩選數(shù)據(jù)表子窗體 Me.數(shù)據(jù)表子窗體.SourceObject = "答題題目數(shù)據(jù)表" Me.數(shù)據(jù)表子窗體.Form.Filter = "問卷名稱='" & Me.問卷名稱 & "'" Me.數(shù)據(jù)表子窗體.Form.FilterOn = True Me.答題記錄子窗體.SourceObject = "答題查詢數(shù)據(jù)表" '--------------------------------顯示第一題 Dim minindex As Long minindex = Nz(DMin("序號", "題目表", "問卷名稱='" & Me.問卷名稱 & "'"), 0) If minindex = 0 Then MsgBox "未找到題目" Exit Sub End If '-----------------------------------取第一題 search_sql = "Select * From 題目表 Where 問卷名稱='" & Me.問卷名稱 & "' and 序號=" & minindex & " order by 序號 DESC" Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset) If search_rs.EOF = False Then Forms("系統(tǒng)主頁").題目ID.Value = search_rs!題目ID.Value Forms("系統(tǒng)主頁").問卷名稱.Value = search_rs!問卷名稱.Value Forms("系統(tǒng)主頁").序號.Value = search_rs!序號.Value Forms("系統(tǒng)主頁").題目.Value = search_rs!題目.Value Forms("系統(tǒng)主頁").題目類型.Value = search_rs!題目類型.Value Forms("系統(tǒng)主頁").選項(xiàng)A.Value = search_rs!選項(xiàng)A.Value Forms("系統(tǒng)主頁").選項(xiàng)B.Value = search_rs!選項(xiàng)B.Value Forms("系統(tǒng)主頁").選項(xiàng)C.Value = search_rs!選項(xiàng)C.Value Forms("系統(tǒng)主頁").選項(xiàng)D.Value = search_rs!選項(xiàng)D.Value Forms("系統(tǒng)主頁").選項(xiàng)E.Value = search_rs!選項(xiàng)E.Value Forms("系統(tǒng)主頁").選項(xiàng)F.Value = search_rs!選項(xiàng)F.Value '題目圖片.Value = search_rs!題目圖片.Value Call 答題控件設(shè)置 Call 篩選答題記錄(Me.題目ID) Call 顯示題目圖片(Me.題目ID) End If search_rs.Close Set search_rs = Nothing End Sub Private Sub Form_Load() Me.數(shù)據(jù)表子窗體.SourceObject = "" Me.答題記錄子窗體.SourceObject = "" End Sub Private Sub Command管理問卷_Click() DoCmd.OpenForm "問卷管理", acNormal End Sub Private Sub Check選項(xiàng)A_AfterUpdate() If Me.題目類型 = "單選題" Then If Check選項(xiàng)A = True Then ' Check選項(xiàng)A = False Check選項(xiàng)B = False Check選項(xiàng)C = False Check選項(xiàng)D = False Check選項(xiàng)E = False Check選項(xiàng)F = False Else Check選項(xiàng)A = False End If End If End Sub Private Sub Check選項(xiàng)B_AfterUpdate() If Me.題目類型 = "單選題" Then If Check選項(xiàng)B = True Then Check選項(xiàng)A = False ' Check選項(xiàng)B = False Check選項(xiàng)C = False Check選項(xiàng)D = False Check選項(xiàng)E = False Check選項(xiàng)F = False Else Check選項(xiàng)B = False End If End If End Sub Private Sub Check選項(xiàng)C_AfterUpdate() If Me.題目類型 = "單選題" Then If Check選項(xiàng)C = True Then Check選項(xiàng)A = False Check選項(xiàng)B = False ' Check選項(xiàng)C = False Check選項(xiàng)D = False Check選項(xiàng)E = False Check選項(xiàng)F = False Else Check選項(xiàng)C = False End If End If End Sub Private Sub Check選項(xiàng)D_AfterUpdate() If Me.題目類型 = "單選題" Then If Check選項(xiàng)D = True Then Check選項(xiàng)A = False Check選項(xiàng)B = False Check選項(xiàng)C = False ' Check選項(xiàng)D = False Check選項(xiàng)E = False Check選項(xiàng)F = False Else Check選項(xiàng)D = False End If End If End Sub Private Sub Check選項(xiàng)E_AfterUpdate() If Me.題目類型 = "單選題" Then If Check選項(xiàng)E = True Then Check選項(xiàng)A = False Check選項(xiàng)B = False Check選項(xiàng)C = False Check選項(xiàng)D = False ' Check選項(xiàng)E = False Check選項(xiàng)F = False Else Check選項(xiàng)E = False End If End If End Sub Private Sub Check選項(xiàng)F_AfterUpdate() If Me.題目類型 = "單選題" Then If Check選項(xiàng)F = True Then Me.答題.Value = "F" Check選項(xiàng)A = False Check選項(xiàng)B = False Check選項(xiàng)C = False Check選項(xiàng)D = False Check選項(xiàng)E = False ' Check選項(xiàng)F = False Else Check選項(xiàng)F = False End If End If End Sub 問卷管理

Private Sub Command更新_Click() If MsgBox("是否更新問卷記錄：" & wj_name, vbYesNo) <> vbYes Then Exit Sub End If If 問卷名稱2 = "" Or IsNull(問卷名稱2) = True Then MsgBox "問卷名稱值為空！" Exit Sub End If If wj_name = "" Then MsgBox "請先選擇需要管理的問卷！" Exit Sub End If If wj_name <> Me.問卷名稱2 Then If Nz(DCount("問卷名稱", "問卷表", "問卷名稱='" & Me.問卷名稱2 & "'"), 0) > 0 Then MsgBox "該問卷名稱已存在！" Exit Sub End If End If '---------------------------------------- Dim update_sql As String update_sql = "Select * From 問卷表 where 問卷名稱='" & wj_name & "'" Dim update_rs As DAO.Recordset Set update_rs = CurrentDb.OpenRecordset(update_sql, dbOpenDynaset) With update_rs .Edit !問卷名稱.Value = 問卷名稱2.Value !問卷內(nèi)容.Value = 問卷內(nèi)容2.Value !問卷日期.Value = 問卷日期2.Value !備注.Value = 備注2.Value .Update .Close End With Set update_rs = Nothing MsgBox "更新完成" Me.數(shù)據(jù)表子窗體.Requery End Sub Private Sub Command清空_Click() 問卷名稱.Value = "" 問卷內(nèi)容.Value = "" 問卷日期.Value = "" 備注.Value = "" End Sub Private Sub Command刪除_Click() If MsgBox("是否刪除問卷記錄：" & wj_name, vbYesNo) <> vbYes Then Exit Sub End If If wj_name = "" Then MsgBox "請先選擇需要?jiǎng)h除的問卷！" Exit Sub End If DoCmd.SetWarnings (False) Dim del_sql As String del_sql = "Delete From 問卷表 Where 問卷名稱='" & wj_name & "'" DoCmd.RunSQL del_sql MsgBox "刪除完成" Me.數(shù)據(jù)表子窗體.Requery wj_name = "" 問卷名稱2.Value = "" 問卷內(nèi)容2.Value = "" 問卷日期2.Value = "" 備注2.Value = "" End Sub Private Sub Command添加_Click() If 問卷名稱 = "" Or IsNull(問卷名稱) = True Then MsgBox "問卷名稱值為空！" Exit Sub End If If Nz(DCount("問卷名稱", "問卷表", "問卷名稱='" & Me.問卷名稱 & "'"), 0) > 0 Then MsgBox "該問卷名稱已存在！" Exit Sub End If Dim add_rs As DAO.Recordset Set add_rs = CurrentDb.OpenRecordset("問卷表", dbOpenTable) With add_rs .AddNew !問卷名稱.Value = 問卷名稱.Value !問卷內(nèi)容.Value = 問卷內(nèi)容.Value !問卷日期.Value = 問卷日期.Value !備注.Value = 備注.Value .Update .Close End With Set add_rs = Nothing MsgBox "添加完成" Me.數(shù)據(jù)表子窗體.Requery End Sub Private Sub Form_Close() On Error Resume Next Forms("系統(tǒng)主頁").問卷列表.Requery End Sub Private Sub 問卷日期_DblClick(Cancel As Integer) Me.問卷日期 = Date End Sub 題目管理

Private Sub Command選擇問卷_Click() If Me.問卷列表 <> "" Then Me.Filter = "問卷名稱='" & Me.問卷列表 & "'" Me.FilterOn = True Else MsgBox "請選擇問卷" Exit Sub End If End Sub 問卷選項(xiàng)統(tǒng)計(jì)

Private Sub Command導(dǎo)出_Click() 'On Error GoTo 導(dǎo)出失敗 If Me.問卷名稱 <> "" Then Else MsgBox "請選擇問卷" Exit Sub End If '------------------------------------------------清空表數(shù)據(jù) DoCmd.SetWarnings (False) Dim del_sql As String del_sql = "Delete From 導(dǎo)出問卷選項(xiàng)統(tǒng)計(jì)表" DoCmd.RunSQL del_sql '------------------------------------------------------------------ Dim dflink_rs As DAO.Recordset Dim dflink_sql As String dflink_sql = "SELECT * FROM 問卷選項(xiàng)統(tǒng)計(jì)查詢 " & " Where 問卷名稱='" & Me.問卷名稱 & "' order by 序號 ASC" Set dflink_rs = CurrentDb.OpenRecordset(dflink_sql, dbOpenDynaset) With dflink_rs Dim add_rs As DAO.Recordset Set add_rs = CurrentDb.OpenRecordset("導(dǎo)出問卷選項(xiàng)統(tǒng)計(jì)表", dbOpenTable) Do While .EOF = False add_rs.AddNew add_rs!問卷名稱.Value = !問卷名稱.Value add_rs!序號.Value = !序號.Value add_rs!題目.Value = !題目.Value add_rs!題目類型.Value = !題目類型.Value add_rs!選項(xiàng)A.Value = !選項(xiàng)A.Value add_rs!選項(xiàng)B.Value = !選項(xiàng)B.Value add_rs!選項(xiàng)C.Value = !選項(xiàng)C.Value add_rs!選項(xiàng)D.Value = !選項(xiàng)D.Value add_rs!選項(xiàng)E.Value = !選項(xiàng)E.Value add_rs!選項(xiàng)F.Value = !選項(xiàng)F.Value add_rs!答題數(shù)量.Value = !答題數(shù)量.Value add_rs!選項(xiàng)A數(shù)量.Value = !選項(xiàng)A數(shù)量.Value add_rs!選項(xiàng)B數(shù)量.Value = !選項(xiàng)B數(shù)量.Value add_rs!選項(xiàng)C數(shù)量.Value = !選項(xiàng)C數(shù)量.Value add_rs!選項(xiàng)D數(shù)量.Value = !選項(xiàng)D數(shù)量.Value add_rs!選項(xiàng)E數(shù)量.Value = !選項(xiàng)E數(shù)量.Value add_rs!選項(xiàng)F數(shù)量.Value = !選項(xiàng)F數(shù)量.Value add_rs!選項(xiàng)A比例.Value = !選項(xiàng)A比例.Value add_rs!選項(xiàng)B比例.Value = !選項(xiàng)B比例.Value add_rs!選項(xiàng)C比例.Value = !選項(xiàng)C比例.Value add_rs!選項(xiàng)D比例.Value = !選項(xiàng)D比例.Value add_rs!選項(xiàng)E比例.Value = !選項(xiàng)E比例.Value add_rs!選項(xiàng)F比例.Value = !選項(xiàng)F比例.Value add_rs.Update .MoveNext Loop End With add_rs.Close Set add_rs = Nothing dflink_rs.Close Set dflink_rs = Nothing Call 導(dǎo)出查詢表結(jié)果("導(dǎo)出問卷選項(xiàng)統(tǒng)計(jì)表") del_sql = "Delete From 導(dǎo)出問卷選項(xiàng)統(tǒng)計(jì)表" DoCmd.RunSQL del_sql Exit Sub 導(dǎo)出失敗: MsgBox Err.Description End Sub Private Sub Command選擇問卷_Click() If Me.問卷列表 <> "" Then Else MsgBox "請選擇問卷" Exit Sub End If Dim search_rs As DAO.Recordset Dim search_sql As String search_sql = "Select * From 問卷表 Where 問卷名稱='" & Me.問卷列表 & "'" Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset) If search_rs.EOF = False Then 問卷名稱.Value = search_rs!問卷名稱.Value 問卷內(nèi)容.Value = search_rs!問卷內(nèi)容.Value 問卷日期.Value = search_rs!問卷日期.Value 備注.Value = search_rs!備注.Value End If search_rs.Close Set search_rs = Nothing '篩選數(shù)據(jù)表子窗體 Me.數(shù)據(jù)表子窗體.SourceObject = "問卷選項(xiàng)統(tǒng)計(jì)查詢數(shù)據(jù)表" Me.數(shù)據(jù)表子窗體.Form.Filter = "問卷名稱='" & Me.問卷名稱 & "'" Me.數(shù)據(jù)表子窗體.Form.FilterOn = True End Sub Private Sub Form_Load() Me.數(shù)據(jù)表子窗體.SourceObject = "" End Sub 問卷填空題統(tǒng)計(jì)

Private Sub Command導(dǎo)出_Click() 'On Error GoTo 導(dǎo)出失敗 If Me.問卷名稱 <> "" Then Else MsgBox "請選擇問卷" Exit Sub End If '------------------------------------------------清空表數(shù)據(jù) DoCmd.SetWarnings (False) Dim del_sql As String del_sql = "Delete From 導(dǎo)出問卷填空題統(tǒng)計(jì)表" DoCmd.RunSQL del_sql '------------------------------------------------------------------ Dim dflink_rs As DAO.Recordset Dim dflink_sql As String dflink_sql = "SELECT * FROM 問卷填空題統(tǒng)計(jì)查詢 " & " Where 問卷名稱='" & Me.問卷名稱 & "' order by 序號 ASC" Set dflink_rs = CurrentDb.OpenRecordset(dflink_sql, dbOpenDynaset) With dflink_rs Dim add_rs As DAO.Recordset Set add_rs = CurrentDb.OpenRecordset("導(dǎo)出問卷填空題統(tǒng)計(jì)表", dbOpenTable) Do While .EOF = False add_rs.AddNew add_rs!問卷名稱.Value = !問卷名稱.Value add_rs!序號.Value = !序號.Value add_rs!題目.Value = !題目.Value add_rs!題目類型.Value = !題目類型.Value add_rs!答題.Value = !答題.Value add_rs.Update .MoveNext Loop End With add_rs.Close Set add_rs = Nothing dflink_rs.Close Set dflink_rs = Nothing Call 導(dǎo)出查詢表結(jié)果("導(dǎo)出問卷填空題統(tǒng)計(jì)表") del_sql = "Delete From 導(dǎo)出問卷填空題統(tǒng)計(jì)表" DoCmd.RunSQL del_sql Exit Sub 導(dǎo)出失敗: MsgBox Err.Description End Sub Private Sub Command選擇問卷_Click() If Me.問卷列表 <> "" Then Else MsgBox "請選擇問卷" Exit Sub End If Dim search_rs As DAO.Recordset Dim search_sql As String search_sql = "Select * From 問卷表 Where 問卷名稱='" & Me.問卷列表 & "'" Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset) If search_rs.EOF = False Then 問卷名稱.Value = search_rs!問卷名稱.Value 問卷內(nèi)容.Value = search_rs!問卷內(nèi)容.Value 問卷日期.Value = search_rs!問卷日期.Value 備注.Value = search_rs!備注.Value End If search_rs.Close Set search_rs = Nothing '篩選數(shù)據(jù)表子窗體 Me.數(shù)據(jù)表子窗體.SourceObject = "問卷填空題統(tǒng)計(jì)查詢數(shù)據(jù)表" Me.數(shù)據(jù)表子窗體.Form.Filter = "問卷名稱='" & Me.問卷名稱 & "'" Me.數(shù)據(jù)表子窗體.Form.FilterOn = True End Sub Private Sub Form_Load() Me.數(shù)據(jù)表子窗體.SourceObject = "" End Sub 答題題目數(shù)據(jù)表

Private Sub 序號_DblClick(Cancel As Integer) Dim search_rs As DAO.Recordset Dim search_sql As String search_sql = "Select * From 題目表 Where 題目ID=" & Me.題目ID Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset) If search_rs.EOF = False Then Forms("系統(tǒng)主頁").題目ID.Value = search_rs!題目ID.Value Forms("系統(tǒng)主頁").問卷名稱.Value = search_rs!問卷名稱.Value Forms("系統(tǒng)主頁").序號.Value = search_rs!序號.Value Forms("系統(tǒng)主頁").題目.Value = search_rs!題目.Value Forms("系統(tǒng)主頁").題目類型.Value = search_rs!題目類型.Value Forms("系統(tǒng)主頁").選項(xiàng)A.Value = search_rs!選項(xiàng)A.Value Forms("系統(tǒng)主頁").選項(xiàng)B.Value = search_rs!選項(xiàng)B.Value Forms("系統(tǒng)主頁").選項(xiàng)C.Value = search_rs!選項(xiàng)C.Value Forms("系統(tǒng)主頁").選項(xiàng)D.Value = search_rs!選項(xiàng)D.Value Forms("系統(tǒng)主頁").選項(xiàng)E.Value = search_rs!選項(xiàng)E.Value Forms("系統(tǒng)主頁").選項(xiàng)F.Value = search_rs!選項(xiàng)F.Value '題目圖片.Value = search_rs!題目圖片.Value Call 答題控件設(shè)置 Call 篩選答題記錄(search_rs!題目ID.Value) Call 顯示題目圖片(Me.題目ID) End If search_rs.Close Set search_rs = Nothing End Sub 題目數(shù)據(jù)表

Private Sub 題目ID_DblClick(Cancel As Integer) Forms("題目管理").題目子窗體.Form.Filter = "題目ID=" & Me.題目ID Forms("題目管理").題目子窗體.Form.FilterOn = True End Sub 問卷數(shù)據(jù)表

Private Sub 問卷名稱_DblClick(Cancel As Integer) Dim search_rs As DAO.Recordset Dim search_sql As String search_sql = "Select * From 問卷表 Where 問卷名稱='" & Me.問卷名稱 & "'" Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset) If search_rs.EOF = False Then wj_name = search_rs!問卷名稱.Value Forms("問卷管理").問卷名稱2.Value = search_rs!問卷名稱.Value Forms("問卷管理").問卷內(nèi)容2.Value = search_rs!問卷內(nèi)容.Value Forms("問卷管理").問卷日期2.Value = search_rs!問卷日期.Value Forms("問卷管理").備注2.Value = search_rs!備注.Value End If search_rs.Close Set search_rs = Nothing End Sub 模塊

Public wj_name As String Public Sub 答題控件設(shè)置() If Forms("系統(tǒng)主頁").題目類型 = "單選題" Or Forms("系統(tǒng)主頁").題目類型 = "多選題" Then Forms("系統(tǒng)主頁").答題.Visible = False If Forms("系統(tǒng)主頁").選項(xiàng)A <> "" Then Forms("系統(tǒng)主頁").選項(xiàng)A.Visible = True Forms("系統(tǒng)主頁").Check選項(xiàng)A.Visible = True Else Forms("系統(tǒng)主頁").選項(xiàng)A.Visible = False Forms("系統(tǒng)主頁").Check選項(xiàng)A.Visible = False End If If Forms("系統(tǒng)主頁").選項(xiàng)B <> "" Then Forms("系統(tǒng)主頁").選項(xiàng)B.Visible = True Forms("系統(tǒng)主頁").Check選項(xiàng)B.Visible = True Else Forms("系統(tǒng)主頁").選項(xiàng)B.Visible = False Forms("系統(tǒng)主頁").Check選項(xiàng)B.Visible = False End If If Forms("系統(tǒng)主頁").選項(xiàng)C <> "" Then Forms("系統(tǒng)主頁").選項(xiàng)C.Visible = True Forms("系統(tǒng)主頁").Check選項(xiàng)C.Visible = True Else Forms("系統(tǒng)主頁").選項(xiàng)C.Visible = False Forms("系統(tǒng)主頁").Check選項(xiàng)C.Visible = False End If If Forms("系統(tǒng)主頁").選項(xiàng)D <> "" Then Forms("系統(tǒng)主頁").選項(xiàng)D.Visible = True Forms("系統(tǒng)主頁").Check選項(xiàng)D.Visible = True Else Forms("系統(tǒng)主頁").選項(xiàng)D.Visible = False Forms("系統(tǒng)主頁").Check選項(xiàng)D.Visible = False End If If Forms("系統(tǒng)主頁").選項(xiàng)E <> "" Then Forms("系統(tǒng)主頁").選項(xiàng)E.Visible = True Forms("系統(tǒng)主頁").Check選項(xiàng)E.Visible = True Else Forms("系統(tǒng)主頁").選項(xiàng)E.Visible = False Forms("系統(tǒng)主頁").Check選項(xiàng)E.Visible = False End If If Forms("系統(tǒng)主頁").選項(xiàng)F <> "" Then Forms("系統(tǒng)主頁").選項(xiàng)F.Visible = True Forms("系統(tǒng)主頁").Check選項(xiàng)F.Visible = True Else Forms("系統(tǒng)主頁").選項(xiàng)F.Visible = False Forms("系統(tǒng)主頁").Check選項(xiàng)F.Visible = False End If End If If Forms("系統(tǒng)主頁").題目類型 = "填空題" Then Forms("系統(tǒng)主頁").答題.Visible = True Forms("系統(tǒng)主頁").選項(xiàng)A.Visible = False Forms("系統(tǒng)主頁").Check選項(xiàng)A.Visible = False Forms("系統(tǒng)主頁").選項(xiàng)B.Visible = False Forms("系統(tǒng)主頁").Check選項(xiàng)B.Visible = False Forms("系統(tǒng)主頁").選項(xiàng)C.Visible = False Forms("系統(tǒng)主頁").Check選項(xiàng)C.Visible = False Forms("系統(tǒng)主頁").選項(xiàng)D.Visible = False Forms("系統(tǒng)主頁").Check選項(xiàng)D.Visible = False Forms("系統(tǒng)主頁").選項(xiàng)E.Visible = False Forms("系統(tǒng)主頁").Check選項(xiàng)E.Visible = False Forms("系統(tǒng)主頁").選項(xiàng)F.Visible = False Forms("系統(tǒng)主頁").Check選項(xiàng)F.Visible = False End If Forms("系統(tǒng)主頁").答題.Value = "" Forms("系統(tǒng)主頁").Check選項(xiàng)A.Value = False Forms("系統(tǒng)主頁").Check選項(xiàng)B.Value = False Forms("系統(tǒng)主頁").Check選項(xiàng)C.Value = False Forms("系統(tǒng)主頁").Check選項(xiàng)D.Value = False Forms("系統(tǒng)主頁").Check選項(xiàng)E.Value = False Forms("系統(tǒng)主頁").Check選項(xiàng)F.Value = False End Sub Sub 篩選答題記錄(ByVal tmid As Long) Forms("系統(tǒng)主頁").答題記錄子窗體.Form.Filter = "題目ID=" & tmid Forms("系統(tǒng)主頁").答題記錄子窗體.Form.FilterOn = True Forms("系統(tǒng)主頁").答題記錄子窗體.Form.OrderBy = "答題ID DESC" Forms("系統(tǒng)主頁").答題記錄子窗體.Form.OrderByOn = True End Sub Public Sub 導(dǎo)出查詢表結(jié)果(ByVal tablename As String) On Error GoTo 導(dǎo)出查詢_Err DoCmd.OutputTo acOutputTable, tablename, "", "", False, "", , acExportQualityPrint 導(dǎo)出查詢_Exit: Exit Sub 導(dǎo)出查詢_Err: Resume 導(dǎo)出查詢_Exit End Sub Sub 顯示題目圖片(ByVal tmid As Long) Forms("系統(tǒng)主頁").圖片子窗體.Form.Filter = "題目ID=" & tmid Forms("系統(tǒng)主頁").圖片子窗體.Form.FilterOn = True End Sub

如果需要開源版原文件可訪問同名↓