主题：新增记录自动复制上一条记录,如何设置

老师,我作了一个表,每天要录入同一天,同一个班次,不同姓名的工作件数的记录.要作到新增的日期,班次,单价,和上一条记录默认是一样的,如有变动.可以手工改动.要在列属性设置吗>?具体怎么设转置啊?

我在网上找到了一个ACCESS设置以上内容的代码,,请老师照样给改动一下..

以下是相关的链接

[示例]新增记录时复制上一条记录的示例\具有记忆功能的示例、默认上一次数据、默认前一次值[Access软件网]  http://www.accessoft.com/article-show.asp?id=2480&from=singlemessage

 直接用克隆行

http://www.foxtable.com/webhelp/scr/1792.htm

http://www.foxtable.com/webhelp/scr/0600.htm

有点甜老师:

       您说的直接用克隆行"是复制了上一行的全部列内容,,"我想要设置的结果是只复制上一行中包括"日期","班次","单价"等三列,这一行中的其他列要自己录入.要怎么作啊?

作的太好了!谢谢老师.如果,第五列,第六列,第列...也为空值.要怎么作?

老师：我按您给的代码作好这个新增按钮的代码了。可有一个问题，我想让“号”字段每次增加1.比如我第9行“号”录入是16，那么第10行的“号”自动改为17.

        我现在作的这个代码有问题，如果表一共有8行，第8行中“号”是11，现在光标在第5行，该行的“号”是3，点新增按钮后，新增的“号”上加4也就是3+1，而不是11+1的12.请老师 帮我改一下代码

 Dim r As Row = Tables("明细账").Current.Clone()
r("号") =r("号") + 1
r("姓名") = Nothing
r("领入_起号") = Nothing
r("领入_止号") = Nothing
r("领入_张数") = Nothing
r("上年结转_起号") = Nothing
r("上年结转_止号") = Nothing
r("上年结转_张数") = Nothing
r("售出_起号") = Nothing
r("售出_止号") = Nothing
r("售出_张数") = Nothing
r("售出_废piao") = Nothing
r("售出_金额") = Nothing
r("结存张数") = Nothing