问卷调查管理程序 Access数据库 功能介绍和VBA代码分享
haoteby 2025-07-06 12:15 4 浏览
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
如果需要开源版原文件可访问同名↓
相关推荐
- 别争了，Access数据库才是真正的低代码开发平台
-
Access数据库是微软公司搞出来的“奇葩”产品。...
- Access开发轻松一键将 Access 全库表格导出为 Excel
-
hi，大家好呀！在日常工作中，Access常常是我们忠实的数据管家，默默守护着项目信息、客户列表或是库存记录。它结构清晰，录入便捷，对于许多中小型应用场景来说，无疑是个得力助手。然而，当我们需要对这...
- 跟我学:从零开始用Access设计一套完整的系统(一)
-
序言：Access是一款强大而灵活的数据库软件，可以设计和开发各种类型和规模的数据库应用程序。本文旨在为您提供从零开始设计Access数据库系统的详细指导，并通过实际案例演示如何在Access中设计和...
- 问卷调查管理程序 Access数据库 功能介绍和VBA代码分享
-
o本系统包含主要功能有：问卷管理，题目管理，问卷填写，调查结果统计，数据汇总导出o数据库系统包含：表，查询，窗体，VBA代码...
- 非绑定记录窗体查看管理数据 Access数据库功能模块 VBA代码编程
-
模块Public成绩IDnumAsLong学生成绩管理PrivateSubCommand更新_Click()DoCmd.SetWarnings(False)...
- ACCESS中的DLookUp函数是如何运算的?
-
一、DLookUp函数介绍1.DLookUp函数的用途：可以用于从指定集合（一个域）中获取符合条件的特定字段的值。2.DLookUp函数的格式为：DLookUp(expr,domain,...
- Excel常用技能分享与探讨(5-宏与VBA简介 VBA之用户窗体-一)
-
用户窗体（UserForm）是VBA中创建交互式界面的核心工具，可用于数据录入、设置参数或展示信息。...
- 【每日任务计划管理系统】Access数据库管理系统 VBA代码分享
-
窗体系统主页文本框，组合框，按钮，子窗体OptionCompareDatabase...
- VBA高效开发:用用户窗体打造个性化数据录入工具
-
在日常办公中，Excel的数据录入是否总让你陷入这些困境？手动输入易错、格式混乱难追溯、重复操作耗时费力。今天，我们将突破常规，利用VBA的用户窗体（UserForm）构建一套“智能校验、流程清晰、...
- VBA编程(基于Access)第1课:VBA的作用和学习方法
-
VBA，英文全称VisualBasicforApplications，直接翻译过来叫做“可以直接使用的VB语言”。...
- Access数据库宏与VBA代码的使用(精品一)
-
Access数据库的宏相当于实现某一功能的一系列命令和操作，我们无需写代码，系统已经将主体代码集成一块，我们只需要做一些简单的操作即可，而VBA代码则是实实在在的代码写到程序里面，我们可以自己编写，也...
- 【每日任务管理系统】(2) VB 管理系统 代码 Visual Basic access数据库
-
窗体全部任务DimdhAsLong'存储高度差DimdwAsLong'存储宽度差...
- VBA连接access数据库开发软件（vba调用数据库连接）
-
VBA连接access数据库开发小软件虽然VBA（包括VB）已不再流行，但是在某些场合还是比较方便的，尤其对非编程专业人员。灵活使用VBA，可以很十分方便的处理excel，access数据，提高工作效...
- 九章云极发布全新AI智算云平台:支持秒级生成百万级Token
-
6月16日，在在九章云极智能计算科技论坛上，九章云极宣布推出全新AI智算云平台“九章智算云AlayaNeWCloud2.0”，该平台基于Serverless技术架构与强化学习技术（RL）的深度融合...
- 浅谈基于大数据技术下的“云旅游”平台运营策略研究
-
云旅游体验平台是利用大数据和虚拟技术，构建虚拟旅游环境，能够改变旅游企业的营销模式和旅游者的消费模式。本文从云旅平台多维度数据信息的获取与分析，平台体验质量反馈信息数据构建，云旅游平台服务功能设计方案...