设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1834|回复: 4
打印 上一主题 下一主题

[其它] 请问-菜鸟问题?

[复制链接]
跳转到指定楼层
1#
发表于 2003-7-19 23:51:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
小弟有一窗体,是输入报表的。窗体内有1组合框,每次输入数据后,当下一条记录输入的时候这组合框85%输入的是上一次,该组合框输入的内容,请问如何编写自动记录上次输入的内容,当输入新记录时,该组合框自动以上次输入的内容填充,(输入的内容为文本格式)。忘各位高手赐教,小弟不胜感激![em03]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2003-7-20 00:16:00 | 只看该作者
把你的数据库传上来吧
3#
 楼主| 发表于 2003-7-20 00:42:00 | 只看该作者
高手们帮帮忙啊,小弟谢谢先
4#
发表于 2003-7-20 16:52:00 | 只看该作者
如果是日期控件,由于日期的默认值为#**-**-**#,(如#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

以上方法适合于文本性,下例为数字型

Private Sub 部门_AfterUpdate() '这是当初TONY版主做法.
Me.部门.DefaultValue = Me.部门
End Sub
5#
 楼主| 发表于 2003-7-26 02:43:00 | 只看该作者
感谢楼上的讲解,对我学习有很好的帮助,真的谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-9-21 19:02 , Processed in 0.128992 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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