Office中国论坛/Access中国论坛

标题: 新建数据时,如何让某列的值自动同上一条数据 [打印本页]

作者: hnzzch 时间: 2005-8-29 19:13
标题: 新建数据时,如何让某列的值自动同上一条数据
新建数据时,如何让某列的值自动同上一条数据.如:盘底表中的"盘底日期"很多条数据都是相同的,为了减少输入量,让盘底日期项自动同上一条的日期.谢谢~

作者: dongwei999 时间: 2005-8-29 19:32
是啊是啊我也有这样的问题啊请高手多多指教啊!![em02]

作者: wangxt 时间: 2005-8-29 20:19
以下是引用的论坛里一位网友的方案希望对大家有用处，是海狸先生告诉我的：“我在BeforeUpdate与AfterUpdate事件中都输入[客户名称].DefaultValue = " '" & [客户名称].Text & "'"这样就算打开窗体不在“客户名称”输入资料也能以上条记录作为默认值了。BeforeUpdate事件中没此行代码的话，你新打开窗体时在“客户名称”中不输入一次信息再按录入新记录时是不会有默认值出现的。不过两个事件中都有此行代码会有什么不良后果啊容易！

对于进货单，销售单这些有多条记录的表，某些值诸如：进货或销售的日期、单据的编号、销售的客户、销售经手人等等，都是重复使用的。如果长期设置某人或者今天就是默认值，这，也是不明智的。

针对以上的问题，只要在控件的“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”不是在属性里，是在代码生成器里

作者: yehf 时间: 2005-8-31 18:33
为什么不加一个按钮是运行带参数更新查询呢,把该字段为空的数据更新为所输入的参数,这样或者能比较不容易出错和比较个性化,对于使用的人来说,

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)