如何每次自动追加一条记录，且前次记录删除。

小笨　发表于：2014-01-16 21:26:31 　

复制

如何每次按“任务ID”顺序自动“表1”向“表2”追加一条记录。当第一条任务完成，自动追加第二条任务，且第一次记录删除或隐藏。

点击下载此附件

Top

在水一方发表于：2014-01-16 22:44:17

如果表2始终只有一条记录，那么使用生成表查询就可以了

select...into...

Top

小笨发表于：2014-01-16 23:13:50

那不能自动追加第二个任务ID,我是新手不懂哦,请老师教我,谢谢!

Top

zhaoyoulong 发表于：2014-01-17 10:51:00

INSERT INTO 表2 ( 客户ID, 任务ID, 工作任务, 日期, 标记, 状态 )
SELECT TOP 1 表1.客户ID, 表1.任务ID, 表1.工作任务, 表1.日期, 表1.标记, 表1.状态
FROM 表1
WHERE ([表1.客户ID] & [表1.任务ID] not in (select [表2.客户ID] & [表2.任务ID] from 表2))
ORDER BY 表1.客户ID, 表1.任务ID;

点击下载此附件

Top

小笨发表于：2014-01-18 00:48:51

感谢zhaoyoulong老师帮助解决了一次只添一项任务。请求再帮我一把想要的：有N个客户任务要完成，当状态栏组合框选任意一个客户完成时，自动加入相应客户的下一项任务，不用按钮手动加入。现在问题：1、不能自动加入相应客户任务。2、当表2有空行时就无法加入。

点击下载此附件

Top

zhaoyoulong 发表于：2014-01-20 13:00:51

Private Sub Combo12_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO 表2 ( 客户ID, 任务ID, 工作任务, 日期, 标记, 状态 ) SELECT TOP 1 表1.客户ID, 表1.任务ID, 表1.工作任务, 表1.日期, 表1.标记, 表1.状态 FROM 表1 " _
& "WHERE ([表1.客户ID] & [表1.任务ID] not in (select [表2.客户ID] & [表2.任务ID] from 表2)) " _
& "ORDER BY 表1.客户ID, 表1.任务ID;"
Me.Recalc
End Sub

点击下载此附件

Top

小笨发表于：2014-01-20 21:14:34

感谢zhaoyoulong老师帮助，这次改的离目标又近了一步，能自动跳出来，但还有不尽人意的地方，求您再帮一把。想要的:有三个客户ID任务要完成，例如：当完成全部客户ID－333组就结束，不能再接下跳到下一客户ID组，也就是各组完成任务就结束。现在存在错误是：当完成客户ID－333－1时，接下跳出客户ID-111-2来。再就是当111跳完后跟着222－2跳出就是按顺序跳完样的。

点击下载此附件

Top

zhaoyoulong 发表于：2014-01-21 09:47:50

点击下载此附件

Top

小笨发表于：2014-01-21 20:19:35

谢谢zhaoyoulong老师为小笨解决了这么多问题！！！小笨还有问题请帮助解决：（1）、当任务ID为空时，状态栏不能追加完成到表2. （2）、当表1追加一条任务到表2“成功”时，表1追加的那条任务删除。也就是追加的这条记录在表1中删去。到再后全部任务完成表1就空了。（3）、如何取消最下一行“星号”新建栏。

点击下载此附件

Top

小笨发表于：2014-01-23 13:42:18

请zhaoyoulong老师帮小笨一把，谢谢！

Top

zhaoyoulong 发表于：2014-01-23 13:53:58

你一次性把要求说清楚！如果按照你现在的描述来看根本就无需表1表2之分，只需在一个表1 上操作就可以，不知道为什么非要用两个表

Top

zhaoyoulong 发表于：2014-01-23 16:37:14

Top

zhaoyoulong 发表于：2014-01-23 17:14:32

点击下载此附件

Top

zhaoyoulong 发表于：2014-01-23 17:17:54

将子窗体的数据源设为：SELECT * FROM 表1 WHERE (((表1.[任务ID])=DMin("任务ID","表1","客户ID='" & [客户ID] & "' and 状态='未完成'")));

Private Sub Combo12_AfterUpdate()
If CurrentDb.TableDefs("表1").RecordCount < 1 Then
MsgBox "表1没有数据1"
Exit Sub
End If
Me.Parent.Form.Recalc
End Sub

子窗体加载事件：
Private Sub Form_Load()
Me.AllowAdditions = False
End Sub

Top

沧海桑田发表于：2014-01-23 17:27:38

这个贴够长的了，给10分zhaoyoulong老师也不为过

Top

小笨发表于：2014-01-24 00:24:13

感谢zhaoyoulong老师帮助，这个贴是我注册以来最长的一次，好老师谢谢————————！！！！！！这个贴我想应该可以加入精华账了！！！

Top

总记录：15篇页次：1/1 9 1 :

Access交流中心

如何每次自动追加一条记录，且前次记录删除。