关于一次自动追加多个编号以及数据传递

首先多谢各位大哥大姐抽空来看这个帖子，本人是刚开始学习的小白，在编写一个程序时碰到了这个问题。希望大哥大姐们能帮我解惑。

在附件中有两个表，表1和表2中的“项目号”是一样的，因为同一个项目可能会有几个人同时分工合作，所以将表拆开，方便分类统计。

（其实还有一个表3，是从表2开始分出来的，因为在很多情况下，虽然是同一个项目、同一个人作业，但他会有好几个不同的样式，我的目的是每一个样式做成一条记录。因为考虑到编号追加的方式应该和“表1到表2”是一样的，所以没有在文件中列出来）

我希望达到的效果：

在“表1”输入框中将“项目号”、“填表”、“分发”填入后，点击“保存”，“表1子窗体”内形成一条记录（格式是“0001”），”，“表2子窗体”内根据“分发”的数量自动形成若干条记录（格式是“0001”）。

假如“分发”不填写的话，默认“表2子窗体”内形成一条记录。

* 两个表的“项目号”是一样的，因为它是“表1”和“表2”链接起来的关键字。

当然，如果能同时将“表2子窗体”里的“负责人”同时生成的话，那就更完美了。呵呵！不过同一个项目号的几个负责人肯定是不同的哦。

小弟在填“表1”时用的函数是 “IIf(IsNull(DLookup("表1ID", "表1")), "0001", Format(((Right(DLookup("max(表1ID)", "表1"), 4)) + 1), "0000"))

小弟在线等，谢谢各位大哥大姐了，请千万帮帮我啊！

点击下载此附件