自动填充子窗体[英] automatically populating subform

问题描述

我会在这件事情上大发雷霆,非常感谢
任何帮助.

我正在创建一个数据输入表单来输入学生调查的结果.

调查共有 40 个问题.前7个与
有关年级、班级和年龄等受访者信息.我有那些在一个
PK 为 RespondentId 的表,该表是自动编号的.8-40题
都具有相同的格式.对于这些问题,我设置了一张桌子
以响应者 ID 作为 FK,以及"问题编号".和"回答"


我的主要表格上有受访者信息.我有一个表格子表单
对于剩下的问题,只有"问题编号"字段.和
"回答"在上面.这是我的问题:我想要数字 8 到 40
自动填充在这个表单上,所以只有
的答案需要输入问题.我该怎么做?我试过了
设置"问题编号"的默认值;字段到:

=1+DMax("问题编号","tblStudentSurveyAnswers","受访者ID =
表格!frmStudentSurvey!respondentID").我接近了,但数字
在递增之前重复一次.

有什么想法吗?

TIA,
Mary

推荐答案

4 月 10 日下午 3:28,"Mary"<mmcgilliv...@msn.com 写道:
我会在这个上拔出我的头发,非常感谢
任何帮助.

我正在创建一个数据输入表单来输入学生调查的结果.

调查共有 40 个问题.前7个与
有关年级、班级和年龄等受访者信息.我有那些在一个
PK 为 RespondentId 的表,该表是自动编号的.8-40题
都具有相同的格式.对于这些问题,我设置了一张桌子
以响应者 ID 作为 FK,以及"问题编号".和"回答"
字段.

我的主要表格上有受访者信息.我有一个表格子表单
对于剩下的问题,只有"问题编号"字段.和
"回答"在上面.这是我的问题:我想要数字 8 到 40
自动填充在这个表单上,所以只有
的答案需要输入问题.我该怎么做?我试过了
设置"问题编号"的默认值;字段:

=1+DMax("问题编号","tblStudentSurveyAnswers","受访者ID =
表格!frmStudentSurvey!respondentID").我接近了,但数字
在递增之前重复一次.

有什么想法吗?

TIA,
玛丽

我花了比我想象的更长的时间来想出这个,对不起.
把它放在你的表格中.并澄清
tblStudentSurveyAnswers Subform 是我的子表单的名称,你的可能
与众不同.希望它对你有用:)

私有子表单_Current()
将 rsClone 调暗为记录集
数据库调暗为数据库
设置 db = CurrentDb()

设置 rsClone = Forms![frmStudentSurvey]![tblStudentSurveyAnswers
子表单].Form.RecordsetClone
如果 rsClone.RecordCount = 0 那么
对于 i = 8 到 40
db.Execute "插入到 tblStudentSurveyAnswers
([RespondentID], [questionnumber]) Values(''" & Me![RespondentID] & "'',
'''&我和""")"
接下来我
结束如果
设置 rsClone = 无
我.刷新
结束子


4 月 10 日下午 5:23,"Queezy"<que...@gmail.com 写道:
4 月 10 日下午 3:28,"玛丽"<mmcgilliv...@msn.com 写道:


我会在这个上拔出我的头发,非常感谢
任何帮助.
我正在创建一个数据输入表单来输入学生调查的结果.
调查共有 40 个问题.前7个与
有关年级、班级和年龄等受访者信息.我有那些在一个
PK 为 RespondentId 的表,该表是自动编号的.8-40题
都具有相同的格式.对于这些问题,我设置了一张桌子
以响应者 ID 作为 FK,以及"问题编号".和"回答"
场地.
我的主要表格上有受访者信息.我有一个表格子表单
对于剩下的问题,只有"问题编号"字段.和
"回答"在上面.这是我的问题:我想要数字 8 到 40
自动填充在这个表单上,所以只有
的答案需要输入问题.我该怎么做?我试过了
设置"问题编号"的默认值;字段:
=1+DMax("问题编号","tblStudentSurveyAnswers","受访者ID =
表格!frmStudentSurvey!respondentID").我接近了,但数字
在递增之前重复一次.
有任何想法吗?
TIA,
玛丽

我花了比我想象的更长的时间来想出这个,对不起.
把它放在你的表格中.并澄清
tblStudentSurveyAnswers Subform 是我的子表单的名称,你的可能
与众不同.希望它对你有用:)

私有子表单_Current()
将 rsClone 调暗为记录集
将数据库调暗为数据库
设置 db = CurrentDb()

设置 rsClone = Forms![frmStudentSurvey]![tblStudentSurveyAnswers
子表单].Form.RecordsetClone
如果 rsClone.RecordCount = 0 那么
对于 i = 8 到 40
db.Execute "插入到 tblStudentSurveyAnswers
([RespondentID], [questionnumber]) Values(''" & Me![RespondentID] & "'',
'''&我和""")"
接下来我
结束如果
设置 rsClone = 无
我.刷新
End Sub- 隐藏引用的文本 -

- 显示引用的文字 -
非常感谢您花时间帮助我解决这个问题!

我已经粘贴了你的代码,我就快到了.子窗体不是
填充直到我使用导航栏前进到下一条记录
然后回到它.我错过了什么?

玛丽


4 月 10 日下午 6:43,"玛丽"<mmcgilliv...@msn.com 写道:
4 月 10 日下午 5:23,"Queezy"<que...@gmail.com 写道:


4 月 10 日下午 3:28,"玛丽"<mmcgilliv...@msn.com 写道:
我会在这个上拔出我的头发,非常感谢
任何帮助.
我正在创建一个数据输入表单来输入学生调查的结果.
调查共有 40 个问题.前7个与
有关年级、班级和年龄等受访者信息.我有那些在一个
PK 为 RespondentId 的表,该表是自动编号的.8-40题
都具有相同的格式.对于这些问题,我设置了一张桌子
以响应者 ID 作为 FK,以及"问题编号".和"回答"
场地.
我的主要表格上有受访者信息.我有一个表格子表单
对于剩下的问题,只有"问题编号"字段.和
"回答"在上面.这是我的问题:我想要数字 8 到 40
自动填充在这个表单上,所以只有
的答案需要输入问题.我该怎么做?我试过了
设置"问题编号"的默认值;字段:
=1+DMax("问题编号","tblStudentSurveyAnswers","受访者ID =
表格!frmStudentSurvey!respondentID").我接近了,但数字
在递增之前重复一次.
有任何想法吗?
TIA,
玛丽
我花了比我想象的更长的时间来想出这个,对不起.
把它放在你的表格中.并澄清
tblStudentSurveyAnswers Subform 是我的子表单的名称,你的可能
与众不同.希望对你有帮助 :)
私有子表单_Current()
将 rsClone 调暗为记录集
将数据库调暗为数据库
设置 db = CurrentDb()
设置 rsClone = Forms![frmStudentSurvey]![tblStudentSurveyAnswers
子表单].Form.RecordsetClone
如果 rsClone.RecordCount = 0 那么
对于 i = 8 到 40
db.Execute "插入到 tblStudentSurveyAnswers
([RespondentID], [questionnumber]) Values(''" & Me![RespondentID] & "'',
'''&我和""")"
接下来我
结束如果
设置 rsClone = 无
我.刷新
End Sub- 隐藏引用的文本 -
- 显示引用的文字 -

非常感谢您花时间帮助我解决这个问题!

我已经粘贴了你的代码,我就快到了.子窗体不是
填充直到我使用导航栏前进到下一条记录
然后回到它.我错过了什么?

玛丽-隐藏引用的文字-

- 显示引用的文字 -
为了澄清我的上一篇文章-直到我
才填充子表单将主表格推进到下一个记录并返回到它.然后呢
效果很好!


本文地址:https://www.itbaoku.cn/post/1050462.html