设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
楼主: majj816
打印 上一主题 下一主题

[其它] 如何在录入新纪录时,某些字段自动引用上一记录的值???

[复制链接]
11#
发表于 2002-12-10 02:09:00 | 只看该作者
以下是引用eio在2002-12-6 9:29:19的发言:
对于进货单,销售单这些有多条记录的表,某些值诸如:进货或销售的日期、单据的编号、销售的客户、销售经手人等等,都是重复使用的。如果长期设置某人或者今天就是默认值,这,也是不明智的。
    针对以上的问题,只要在控件的“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


?我怎么没有想到,谢谢!
12#
发表于 2004-12-24 06:41:00 | 只看该作者
我也学了一招,感谢了!
13#
发表于 2004-12-24 22:59:00 | 只看该作者
我是直接在文本框的默认值输入:DLast("字段名","表名")
14#
发表于 2004-12-27 22:32:00 | 只看该作者
我在BeforeUpdate与AfterUpdate事件中都输入[客户名称].DefaultValue = " '" & [客户名称].Text & "'"

这样就算打开窗体不在“客户名称”输入资料也能以上条记录作为默认值了。BeforeUpdate事件中没此行代码的话,你新打开窗体时在“客户名称”中不输入一次信息再按录入新记录时是不会有默认值出现的。不过两个事件中都有此行代码会有什么不良后果啊[em44]
15#
发表于 2004-12-28 06:00:00 | 只看该作者
使用默认值?好办法!有学了一招!
16#
发表于 2005-11-10 16:55:00 | 只看该作者
非常感谢!!!!!!!
17#
发表于 2005-11-18 05:54:00 | 只看该作者
很好!这种办法简单实用。
18#
发表于 2005-11-18 06:49:00 | 只看该作者
很不安全的办法,作为一个程序员,违反了最基本的安全准则,建议初学者切莫用此办法!!!!否则,你编写的东西最多只你一个人用!永远只你一个人用!永远用不成----无尽的麻烦正等着你!   想想为什么???
19#
发表于 2006-10-15 01:02:00 | 只看该作者
为什么???那你有什么好办法吗???
20#
发表于 2006-10-15 01:52:00 | 只看该作者
我试了上面的办法都不行,可能是没会用,还请上面几位高手指点.谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-26 04:34 , Processed in 0.108732 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表