如何在录入新纪录时，某些字段自动引用上一记录的值？？？

majj816

各位大侠，如何在录入新纪录时，某些字段自动引用上一记录的值？？？不知如何填写默认值。

eio

对于进货单，销售单这些有多条记录的表，某些值诸如：进货或销售的日期、单据的编号、销售的客户、销售经手人等等，都是重复使用的。如果长期设置某人或者今天就是默认值，这，也是不明智的。
    针对以上的问题，只要在控件的“after update”（数据被更新）中编写以下代码即可：
    如果是日期控件，由于日期的默认值为#**-**-**#，（如#01-02-03#，将被视为2001年的2月3日），所以默认值除了使用文本框或组合框的文本属性以外，还必须增加“#”号于文本属性的前后。
（在其自身的默认值可以设置为当天，如：=date()，这样在新的输入时可以默认今天，当有所更改以后就默认更改后的日期，便于输入旧帐使用。）
Private Sub 日期_AfterUpdate()
Me![日期].DefaultValue = "#" + [日期].Text + "#"
End Sub

   如果控件是其他文字，诸如“客户名称”等，由于必须在文本属性上添加双引号“”，否则客户名称不会生效，如默认值：“HRK”相当于HRK，但HRK就不是HRK啦，所以应该在文本属性的两侧加上单引号“ ’”以及“‘”

Private Sub 客户名称_AfterUpdate()
[客户名称].DefaultValue = " '" & [客户名称].Text & "'"
End Sub

nmysc

真的不错，解决了我很长时间没解决的问题

majj816

hello eio,非常感谢，上面的描述看不太懂，能否具体一些。

大熊

看不懂不要紧，最重要的是动手做，你只在在窗体里放个文本框起名叫“客户名称”，然后在其更新后事件中输入以下代码就应该可以看到效果了。
[客户名称].DefaultValue = " '" & [客户名称].Text & "'"

guotianxin

使用DefaultValue属性，可能是最好的办法。
如果你不想用这个办法，我这给你介绍个手动的办法：在新记录的输入框中按Ctrl+'即可自动复制上条记录的那个字段的值。

yahai

多谢，这个问题我早就想知道了，谢谢eio

cnwang

我常用　sendkeys ^',

waltonw

我是用宏实现的没有那么复杂，也牵涉到sendkey,这样不管是否日期和文字都能复制。

CCLCCL

请问如何用宏实现？？