从带有复选框的表单中插入表格

问题描述 投票:0回答:1

我想使用单个表单将多个条目插入表中。

期望的结果:

DESTINATION_TABLE
DATE       | PLACE | THEME | PARTICIPANT
dd.mm.yyyy   A       X       1
dd.mm.yyyy   A       X       2
dd.mm.yyyy   B       Y       3

PLACE和PARTICIPANT将从其他表中包含的值中选择,而DATE和THEME则使用文本框输入。对于DATE,PLACE和THEME,一次只能将一个值插入表中,但我希望能够插入多个PARTICIPANT,并为每个PARTICIPANT选择一个新行。

通过表单添加DATE,PLACE和THEME的新条目(使用CurrentDb.Execute“INSERT INTO ...”)。

如何创建一个表单,让我从一个从PLACE中的值中过滤的子表单(理想情况下带有复选框)中选择PARTICIPANT,并在DESTINATION_TABLE中为每个选择的PARTICIPANT添加一个条目?

sql vba ms-access
1个回答
0
投票

使用当前设置的一种简单方法是:

  1. 在参与者表格中添加Yes/No字段,默认为No。我们称这个字段为Selected
  2. 将子表单绑定到参与者表,用户将能够从该视图中检查每个参与者(使用Selected字段)。
  3. 从中您用来保存数据的事件(例如按钮单击),根据参与者表中选定的参与者创建记录集(rs)(SELECT * FROM PARTICIPANT WHERE Selected = True。循环记录集中的每个记录(rs)并执行您的代码CurrentDb.Execute "INSERT INTO...),从记录集中获取参与者(rs("Participant"))的价值。
  4. 循环完成后,更新参与者表格,将Selected字段设置为NoCurrentDb.Execute "UPDATE PARTICIPANT SET Selected = False WHERE Selected = True"
  5. 如果需要,刷新/重新查询子表单数据

用你的上面的对象名替换。

© www.soinside.com 2019 - 2024. All rights reserved.