如果是日期控件,由于日期的默认值为#**-**-**#,(如#01-02-03#,将被视为2001年的2月3日),所以默认值除了使用文本框或组合框的文本属性以外,还必须增加“#”号于文本属性的前后。
(在其自身的默认值可以设置为当天,如:=date(),这样在新的输入时可以默认今天,当有所更改以后就默认更改后的日期,便于输入旧帐使用。)
Private Sub 日期_AfterUpdate()
Me![日期].DefaultValue = "#" + [日期].Text + "#"
End Sub