如何把查询后的子窗体数据插入到表里？

打字比你快

查询出的子窗体数据批量插入到另一个表里，见附件！

roych

i nsert into values 再加上for语句基本就好了。【记得把i和n之间那个空格去掉】
不过我之前的做法是不会再另外建一张表来处理离职信息的，而是在原表上加个字段：是否离职。

打字比你快

roych 发表于 2017-11-23 12:05
i nsert into values 再加上for语句基本就好了。【记得把i和n之间那个空格去掉】
不过我之前的做法是不会 ...

我是这样写的：
Dim sql As String

sql = "INSERT INTO 表2(姓名,性别,部门,状态) SELECT 姓名,性别,部门," & Me.Combo5 & " FROM 表1 where " & Me.查询1子窗体.Form.Filter

DoCmd.RunSQL sql
但只有前面三个字段插入到了表2里，状态字段没有插入进去；
状态字段，我这样写是不是有问题啊，如是这样不行，是不是只有再写一个更新查询把状态字段写入表2？

roych

打字比你快 发表于 2017-11-23 13:50
我是这样写的：
Dim sql As String

Me.Combo5不是字段名，也没有数据，这样追加进去。当然是空值了。以下是正确的写法：
Dim sql As String

sql = "INSERT INTO 表2(姓名,性别,部门,状态) SELECT 姓名,性别,部门,'" & Me.Combo5 & "' FROM 表1 where " & Me.查询1子窗体.Form.Filter

DoCmd.RunSQL sql
-----------------------------
我是分割线
-----------------------------
当练习写写就好了。从业务逻辑上来看，这个玩法很有问题。
第一：离职状态可以任意追加。删除？（对不起，没有入口）。
第二：如何判断员工是否已经离职？（没有入口。除非对比两张表）。
第三：主键？如何确认是否重名？
……

代码不是万能的。以我愚见，楼主还是花点时间去夯实基础吧。

打字比你快

roych 发表于 2017-11-23 17:55
Me.Combo5不是字段名，也没有数据，这样追加进去。当然是空值了。以下是正确的写法：
Dim sql As String ...

可以了，谢谢了。