问卷调查管理程序 Access数据库 功能介绍和VBA代码分享
haoteby 2025-07-06 12:15 38 浏览
o本系统包含主要功能有：问卷管理，题目管理，问卷填写，调查结果统计，数据汇总导出
o数据库系统包含：表，查询，窗体，VBA代码
o系统为单机使用的access数据库系统，可作为学习参考使用
系统主页
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
!问卷内容.Value = 问卷内容2.Value
!问卷日期.Value = 问卷日期2.Value
!备注.Value = 备注2.Value
.Update
.Close
End With
Set update_rs = Nothing
MsgBox "更新完成"
Me.数据表子窗体.Requery
End Sub
Private Sub Command清空_Click()
问卷名称.Value = ""
问卷内容.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 "请先选择需要删除的问卷！"
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.数据表子窗体.Requery
wj_name = ""
问卷名称2.Value = ""
问卷内容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
!问卷内容.Value = 问卷内容.Value
!问卷日期.Value = 问卷日期.Value
!备注.Value = 备注.Value
.Update
.Close
End With
Set add_rs = Nothing
MsgBox "添加完成"
Me.数据表子窗体.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
!选项A.Value = Check选项A.Value
!选项B.Value = Check选项B.Value
!选项C.Value = Check选项C.Value
!选项D.Value = Check选项D.Value
!选项E.Value = Check选项E.Value
!选项F.Value = Check选项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 "已到达第一题"
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("系统主页").题目ID.Value = search_rs!题目ID.Value
Forms("系统主页").问卷名称.Value = search_rs!问卷名称.Value
Forms("系统主页").序号.Value = search_rs!序号.Value
Forms("系统主页").题目.Value = search_rs!题目.Value
Forms("系统主页").题目类型.Value = search_rs!题目类型.Value
Forms("系统主页").选项A.Value = search_rs!选项A.Value
Forms("系统主页").选项B.Value = search_rs!选项B.Value
Forms("系统主页").选项C.Value = search_rs!选项C.Value
Forms("系统主页").选项D.Value = search_rs!选项D.Value
Forms("系统主页").选项E.Value = search_rs!选项E.Value
Forms("系统主页").选项F.Value = search_rs!选项F.Value
'题目图片.Value = search_rs!题目图片.Value
Call 答题控件设置
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填空统计_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 maxindex As Long
maxindex = DMax("序号", "题目表", "问卷名称='" & Me.问卷名称 & "'")
If nowindex = maxindex Then
MsgBox "已到达最后一题"
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("系统主页").题目ID.Value = search_rs!题目ID.Value
Forms("系统主页").问卷名称.Value = search_rs!问卷名称.Value
Forms("系统主页").序号.Value = search_rs!序号.Value
Forms("系统主页").题目.Value = search_rs!题目.Value
Forms("系统主页").题目类型.Value = search_rs!题目类型.Value
Forms("系统主页").选项A.Value = search_rs!选项A.Value
Forms("系统主页").选项B.Value = search_rs!选项B.Value
Forms("系统主页").选项C.Value = search_rs!选项C.Value
Forms("系统主页").选项D.Value = search_rs!选项D.Value
Forms("系统主页").选项E.Value = search_rs!选项E.Value
Forms("系统主页").选项F.Value = search_rs!选项F.Value
'题目图片.Value = search_rs!题目图片.Value
Call 答题控件设置
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选项统计_Click()
DoCmd.OpenForm "问卷选项统计", 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
问卷内容.Value = search_rs!问卷内容.Value
问卷日期.Value = search_rs!问卷日期.Value
备注.Value = search_rs!备注.Value
End If
search_rs.Close
Set search_rs = Nothing
'筛选数据表子窗体
Me.数据表子窗体.SourceObject = "答题题目数据表"
Me.数据表子窗体.Form.Filter = "问卷名称='" & Me.问卷名称 & "'"
Me.数据表子窗体.Form.FilterOn = True
Me.答题记录子窗体.SourceObject = "答题查询数据表"
'
--------------------------------显示第一题
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("系统主页").题目ID.Value = search_rs!题目ID.Value
Forms("系统主页").问卷名称.Value = search_rs!问卷名称.Value
Forms("系统主页").序号.Value = search_rs!序号.Value
Forms("系统主页").题目.Value = search_rs!题目.Value
Forms("系统主页").题目类型.Value = search_rs!题目类型.Value
Forms("系统主页").选项A.Value = search_rs!选项A.Value
Forms("系统主页").选项B.Value = search_rs!选项B.Value
Forms("系统主页").选项C.Value = search_rs!选项C.Value
Forms("系统主页").选项D.Value = search_rs!选项D.Value
Forms("系统主页").选项E.Value = search_rs!选项E.Value
Forms("系统主页").选项F.Value = search_rs!选项F.Value
'题目图片.Value = search_rs!题目图片.Value
Call 答题控件设置
Call 筛选答题记录(Me.题目ID)
Call 显示题目图片(Me.题目ID)
End If
search_rs.Close
Set search_rs = Nothing
End Sub
Private Sub Form_Load()
Me.数据表子窗体.SourceObject = ""
Me.答题记录子窗体.SourceObject = ""
End Sub
Private Sub Command管理问卷_Click()
DoCmd.OpenForm "问卷管理", acNormal
End Sub
Private Sub Check选项A_AfterUpdate()
If Me.题目类型 = "单选题" Then
If Check选项A = True Then
' Check选项A = False
Check选项B = False
Check选项C = False
Check选项D = False
Check选项E = False
Check选项F = False
Else
Check选项A = False
End If
End If
End Sub
Private Sub Check选项B_AfterUpdate()
If Me.题目类型 = "单选题" Then
If Check选项B = True Then
Check选项A = False
' Check选项B = False
Check选项C = False
Check选项D = False
Check选项E = False
Check选项F = False
Else
Check选项B = False
End If
End If
End Sub
Private Sub Check选项C_AfterUpdate()
If Me.题目类型 = "单选题" Then
If Check选项C = True Then
Check选项A = False
Check选项B = False
' Check选项C = False
Check选项D = False
Check选项E = False
Check选项F = False
Else
Check选项C = False
End If
End If
End Sub
Private Sub Check选项D_AfterUpdate()
If Me.题目类型 = "单选题" Then
If Check选项D = True Then
Check选项A = False
Check选项B = False
Check选项C = False
' Check选项D = False
Check选项E = False
Check选项F = False
Else
Check选项D = False
End If
End If
End Sub
Private Sub Check选项E_AfterUpdate()
If Me.题目类型 = "单选题" Then
If Check选项E = True Then
Check选项A = False
Check选项B = False
Check选项C = False
Check选项D = False
' Check选项E = False
Check选项F = False
Else
Check选项E = False
End If
End If
End Sub
Private Sub Check选项F_AfterUpdate()
If Me.题目类型 = "单选题" Then
If Check选项F = True Then
Me.答题.Value = "F"
Check选项A = False
Check选项B = False
Check选项C = False
Check选项D = False
Check选项E = False
' Check选项F = False
Else
Check选项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
!问卷内容.Value = 问卷内容2.Value
!问卷日期.Value = 问卷日期2.Value
!备注.Value = 备注2.Value
.Update
.Close
End With
Set update_rs = Nothing
MsgBox "更新完成"
Me.数据表子窗体.Requery
End Sub
Private Sub Command清空_Click()
问卷名称.Value = ""
问卷内容.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 "请先选择需要删除的问卷！"
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.数据表子窗体.Requery
wj_name = ""
问卷名称2.Value = ""
问卷内容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
!问卷内容.Value = 问卷内容.Value
!问卷日期.Value = 问卷日期.Value
!备注.Value = 备注.Value
.Update
.Close
End With
Set add_rs = Nothing
MsgBox "添加完成"
Me.数据表子窗体.Requery
End Sub
Private Sub Form_Close()
On Error Resume Next
Forms("系统主页").问卷列表.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
问卷选项统计
Private Sub Command导出_Click()
'On Error GoTo 导出失败
If Me.问卷名称 <> "" Then
Else
MsgBox "请选择问卷"
Exit Sub
End If
'
------------------------------------------------清空表数据
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 导出问卷选项统计表"
DoCmd.RunSQL del_sql
'------------------------------------------------------------------
Dim dflink_rs As DAO.Recordset
Dim dflink_sql As String
dflink_sql = "SELECT * FROM 问卷选项统计查询 " & " 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("导出问卷选项统计表", 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!选项A.Value = !选项A.Value
add_rs!选项B.Value = !选项B.Value
add_rs!选项C.Value = !选项C.Value
add_rs!选项D.Value = !选项D.Value
add_rs!选项E.Value = !选项E.Value
add_rs!选项F.Value = !选项F.Value
add_rs!答题数量.Value = !答题数量.Value
add_rs!选项A数量.Value = !选项A数量.Value
add_rs!选项B数量.Value = !选项B数量.Value
add_rs!选项C数量.Value = !选项C数量.Value
add_rs!选项D数量.Value = !选项D数量.Value
add_rs!选项E数量.Value = !选项E数量.Value
add_rs!选项F数量.Value = !选项F数量.Value
add_rs!选项A比例.Value = !选项A比例.Value
add_rs!选项B比例.Value = !选项B比例.Value
add_rs!选项C比例.Value = !选项C比例.Value
add_rs!选项D比例.Value = !选项D比例.Value
add_rs!选项E比例.Value = !选项E比例.Value
add_rs!选项F比例.Value = !选项F比例.Value
add_rs.Update
.MoveNext
Loop
End With
add_rs.Close
Set add_rs = Nothing
dflink_rs.Close
Set dflink_rs = Nothing
Call 导出查询表结果("导出问卷选项统计表")
del_sql = "Delete From 导出问卷选项统计表"
DoCmd.RunSQL del_sql
Exit Sub
导出失败:
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
问卷内容.Value = search_rs!问卷内容.Value
问卷日期.Value = search_rs!问卷日期.Value
备注.Value = search_rs!备注.Value
End If
search_rs.Close
Set search_rs = Nothing
'筛选数据表子窗体
Me.数据表子窗体.SourceObject = "问卷选项统计查询数据表"
Me.数据表子窗体.Form.Filter = "问卷名称='" & Me.问卷名称 & "'"
Me.数据表子窗体.Form.FilterOn = True
End Sub
Private Sub Form_Load()
Me.数据表子窗体.SourceObject = ""
End Sub
问卷填空题统计
Private Sub Command导出_Click()
'On Error GoTo 导出失败
If Me.问卷名称 <> "" Then
Else
MsgBox "请选择问卷"
Exit Sub
End If
'
------------------------------------------------清空表数据
DoCmd.SetWarnings (False)
Dim del_sql As String
del_sql = "Delete From 导出问卷填空题统计表"
DoCmd.RunSQL del_sql
'------------------------------------------------------------------
Dim dflink_rs As DAO.Recordset
Dim dflink_sql As String
dflink_sql = "SELECT * FROM 问卷填空题统计查询 " & " 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("导出问卷填空题统计表", 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 导出查询表结果("导出问卷填空题统计表")
del_sql = "Delete From 导出问卷填空题统计表"
DoCmd.RunSQL del_sql
Exit Sub
导出失败:
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
问卷内容.Value = search_rs!问卷内容.Value
问卷日期.Value = search_rs!问卷日期.Value
备注.Value = search_rs!备注.Value
End If
search_rs.Close
Set search_rs = Nothing
'筛选数据表子窗体
Me.数据表子窗体.SourceObject = "问卷填空题统计查询数据表"
Me.数据表子窗体.Form.Filter = "问卷名称='" & Me.问卷名称 & "'"
Me.数据表子窗体.Form.FilterOn = True
End Sub
Private Sub Form_Load()
Me.数据表子窗体.SourceObject = ""
End Sub
答题题目数据表
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("系统主页").题目ID.Value = search_rs!题目ID.Value
Forms("系统主页").问卷名称.Value = search_rs!问卷名称.Value
Forms("系统主页").序号.Value = search_rs!序号.Value
Forms("系统主页").题目.Value = search_rs!题目.Value
Forms("系统主页").题目类型.Value = search_rs!题目类型.Value
Forms("系统主页").选项A.Value = search_rs!选项A.Value
Forms("系统主页").选项B.Value = search_rs!选项B.Value
Forms("系统主页").选项C.Value = search_rs!选项C.Value
Forms("系统主页").选项D.Value = search_rs!选项D.Value
Forms("系统主页").选项E.Value = search_rs!选项E.Value
Forms("系统主页").选项F.Value = search_rs!选项F.Value
'题目图片.Value = search_rs!题目图片.Value
Call 答题控件设置
Call 筛选答题记录(search_rs!题目ID.Value)
Call 显示题目图片(Me.题目ID)
End If
search_rs.Close
Set search_rs = Nothing
End Sub
题目数据表
Private Sub 题目ID_DblClick(Cancel As Integer)
Forms("题目管理").题目子窗体.Form.Filter = "题目ID=" & Me.题目ID
Forms("题目管理").题目子窗体.Form.FilterOn = True
End Sub
问卷数据表
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("问卷管理").问卷内容2.Value = search_rs!问卷内容.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 答题控件设置()
If Forms("系统主页").题目类型 = "单选题" Or Forms("系统主页").题目类型 = "多选题" Then
Forms("系统主页").答题.Visible = False
If Forms("系统主页").选项A <> "" Then
Forms("系统主页").选项A.Visible = True
Forms("系统主页").Check选项A.Visible = True
Else
Forms("系统主页").选项A.Visible = False
Forms("系统主页").Check选项A.Visible = False
End If
If Forms("系统主页").选项B <> "" Then
Forms("系统主页").选项B.Visible = True
Forms("系统主页").Check选项B.Visible = True
Else
Forms("系统主页").选项B.Visible = False
Forms("系统主页").Check选项B.Visible = False
End If
If Forms("系统主页").选项C <> "" Then
Forms("系统主页").选项C.Visible = True
Forms("系统主页").Check选项C.Visible = True
Else
Forms("系统主页").选项C.Visible = False
Forms("系统主页").Check选项C.Visible = False
End If
If Forms("系统主页").选项D <> "" Then
Forms("系统主页").选项D.Visible = True
Forms("系统主页").Check选项D.Visible = True
Else
Forms("系统主页").选项D.Visible = False
Forms("系统主页").Check选项D.Visible = False
End If
If Forms("系统主页").选项E <> "" Then
Forms("系统主页").选项E.Visible = True
Forms("系统主页").Check选项E.Visible = True
Else
Forms("系统主页").选项E.Visible = False
Forms("系统主页").Check选项E.Visible = False
End If
If Forms("系统主页").选项F <> "" Then
Forms("系统主页").选项F.Visible = True
Forms("系统主页").Check选项F.Visible = True
Else
Forms("系统主页").选项F.Visible = False
Forms("系统主页").Check选项F.Visible = False
End If
End If
If Forms("系统主页").题目类型 = "填空题" Then
Forms("系统主页").答题.Visible = True
Forms("系统主页").选项A.Visible = False
Forms("系统主页").Check选项A.Visible = False
Forms("系统主页").选项B.Visible = False
Forms("系统主页").Check选项B.Visible = False
Forms("系统主页").选项C.Visible = False
Forms("系统主页").Check选项C.Visible = False
Forms("系统主页").选项D.Visible = False
Forms("系统主页").Check选项D.Visible = False
Forms("系统主页").选项E.Visible = False
Forms("系统主页").Check选项E.Visible = False
Forms("系统主页").选项F.Visible = False
Forms("系统主页").Check选项F.Visible = False
End If
Forms("系统主页").答题.Value = ""
Forms("系统主页").Check选项A.Value = False
Forms("系统主页").Check选项B.Value = False
Forms("系统主页").Check选项C.Value = False
Forms("系统主页").Check选项D.Value = False
Forms("系统主页").Check选项E.Value = False
Forms("系统主页").Check选项F.Value = False
End Sub
Sub 筛选答题记录(ByVal tmid As Long)
Forms("系统主页").答题记录子窗体.Form.Filter = "题目ID=" & tmid
Forms("系统主页").答题记录子窗体.Form.FilterOn = True
Forms("系统主页").答题记录子窗体.Form.OrderBy = "答题ID DESC"
Forms("系统主页").答题记录子窗体.Form.OrderByOn = True
End Sub
Public Sub 导出查询表结果(ByVal tablename As String)
On Error GoTo 导出查询_Err
DoCmd.OutputTo acOutputTable, tablename, "", "", False, "", , acExportQualityPrint
导出查询_Exit:
Exit Sub
导出查询_Err:
Resume 导出查询_Exit
End Sub
Sub 显示题目图片(ByVal tmid As Long)
Forms("系统主页").图片子窗体.Form.Filter = "题目ID=" & tmid
Forms("系统主页").图片子窗体.Form.FilterOn = True
End Sub
如果需要开源版原文件可访问同名↓
相关推荐
- 一日一技:用Python程序将十进制转换为二进制
-
用Python程序将十进制转换为二进制通过将数字连续除以2并以相反顺序打印其余部分，将十进制数转换为二进制。在下面的程序中，我们将学习使用递归函数将十进制数转换为二进制数，代码如下：...
- 十进制转化成二进制你会吗?#数学思维
-
六年级奥赛起跑线：抽屉原理揭秘。同学们好，我是你们的奥耀老师。今天一起来学习奥赛起跑线第三讲二进制计数法。例一：把十进制五十三化成二进制数是多少？首先十进制就是满十进一，二进制就是满二进一。二进制每个...
- 二进制、十进制、八进制和十六进制，它们之间是如何转换的?
-
在学习进制时总会遇到多种进制转换的时候，学会它们之间的转换方法也是必须的，这里分享一下几种进制之间转换的方法，也分享两个好用的转换工具，使用它们能够大幅度的提升你的办公和学习效率，感兴趣的小伙伴记得点...
- c语言-2进制转10进制_c语言 二进制转十进制
-
#include<stdio.h>intmain(){charch;inta=0;...
- 二进制、八进制、十进制和十六进制数制转换
-
一、数制1、什么是数制数制是计数进位的简称。也就是由低位向高位进位计数的方法。2、常用数制计算机中常用的数制有二进制、八进制、十进制和十六进制。...
- 二进制、十进制、八进制、十六进制间的相互转换函数
-
二进制、十进制、八进制、十六进制间的相互转换函数1、输入任意一个十进制的整数，将其分别转换为二进制、八进制、十六进制。2、程序代码如下：#include<iostream>usingna...
- 二进制、八进制、十进制和十六进制等常用数制及其相互转换
-
从大学开始系统的接触计算机专业，到现在已经过去十几年了，今天整理一下基础的进制转换，希望给还在上高中的表妹一个入门的引导，早日熟悉这个行业。一、二进制、八进制、十进制和十六进制是如何定义的？二进制是B...
- 二进制如何转换成十进制?_二进制如何转换成十进制例子图解
-
随着社会的发展，电器维修由继电器时代逐渐被PLC，变频器，触摸屏等工控时代所替代，特别是plc编程，其数据逻辑往往涉及到数制二进制，那么二进制到底是什么呢？它和十进制又有什么区别和联系呢？下面和朋友们...
- 二进制与十进制的相互转换_二进制和十进制之间转换
-
很多同学在刚开始接触计算机语言的时候，都会了解计算机的世界里面大多都是二进制来表达现实世界的任何事物的。当然现实世界的事务有很多很多，就拿最简单的数字，我们经常看到的数字大多都是十进制的形式，例如：我...
- 十进制如何转换为二进制，二进制如何转换为十进制
-
用十进制除以2，除的断的，商用0表示；除不断的，商用1表示余0时结束假如十进制用X表示，用十进制除以2，即x/2除以2后为整数的（除的断的），商用0表示；除以2除不断的，商用1表示除完后的商0或1...
- 十进制数如何转换为二进制数_十进制数如何转换为二进制数举例说明
-
我们经常听到十进制数和二进制数，电脑中也经常使用二进制数来进行计算，但是很多人却不清楚十进制数和二进制数是怎样进行转换的，下面就来看看，十进制数转换为二进制数的方法。正整数转二进制...
- 二进制转化为十进制，你会做吗?一起来试试吧
-
今天孩子问把二进制表示的110101改写成十进制数怎么做呀？，“二进制”简单来说就是“满二进一”，只用0和1共两个数字表示，同理我们平常接触到的“十进制”是“满十进一”，只用0-9共十个数字表示。如果...
- Mac终于能正常打游戏了!苹果正逐渐淘汰Rosetta转译
-
Mac玩家苦转译久矣！WWDC2025苹果正式宣判Rosetta死刑，原生游戏时代终于杀到。Metal4光追和AI插帧技术直接掀桌，连Steam都连夜扛着ARM架构投诚了。看到《赛博朋克2077》...
- 怎么把视频的声音提出来转为音频?音频提取，11款工具实测搞定
-
想把视频里的声音单独保存为音频文件（MP3/AAC/WAV/FLAC）用于配音、播客、听课或二次剪辑？本文挑出10款常用工具，给出实测可复现的操作步骤、优缺点和场景推荐。1）转换猫mp3转换器（操作门...
- 6个mp4格式转换器测评:转换速度与质量并存!
-
MP4视频格式具有兼容性强、视频画质高清、文件体积较小、支持多种编码等特点，适用于网络媒体传播。如果大家想要将非MP4格式的视频转换成MP4的视频格式的话，可以使用MP4格式转换器更换格式。本文分别从...