设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 906|回复: 12
打印 上一主题 下一主题

新增记录触发什么事件

[复制链接]
跳转到指定楼层
1#
发表于 2002-9-26 01:16:00 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
在窗体中输入新记录,我希望新的记录能自动填入前一记录(或前一页面,我的意思:比如我正在浏览一些记录,发现需要增加一个相似的记录)的某些数据,这样能有效减少输入量,我用的是ACCESS自带的浏览按钮,不知新增记录时触发哪一个事件,当然,有其它方法就更好呢。
这个问题在论坛提出过,但没有满意的答复,希望各位高手出手帮忙,不胜感激。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
13#
 楼主| 发表于 2002-10-11 21:40:00 | 只看该作者

在northwind示例数据库中又没问题

哎access,哎哎哎哎哎哎哎
但我在northwind示例数据库中又没问题,why?
teddibear老兄的方法是对的,与recordsetclone帮助中的示例相似,代码应该没问题只是………[em04]
[此贴子已经被作者于2002-10-11 13:39:37编辑过]

12#
发表于 2002-10-11 19:35:00 | 只看该作者
我也出错了!!
11#
 楼主| 发表于 2002-10-11 19:32:00 | 只看该作者
我能明白楼上老兄的程序是绝对精彩,方向是绝对正确的,但我在运行时出现错误:
类型不匹配,错误“13”
即使我拷贝帮助里的示例也出现这种情况,why?
10#
发表于 2002-10-1 11:16:00 | 只看该作者
Beforeinsert 需要用户按下一个键后才触发,所以用在这里不好. 其实current事件在新增时也触发的,可以通过判断primary key是否为空来辨别新纪录. 例子如下: (假设username是主毽,所有控件与字段同名)
Private Sub Form_Current()
Static bm As Variant
Dim rs As Recordset
Dim fld As Field

If IsNull(Me![username]) Then
    Set rs = Me.RecordsetClone
    rs.Bookmark = bm
    For Each fld In rs.Fields
        If fld.name <> "username" Then
            Me.Controls(fld.name).Value = fld.Value
        End If
    Next fld
Else
    Me![username].SetFocus '这样bookmark才会反映当前纪录,否则是上一纪录
    bm = Me.Recordset.Bookmark
End If
End Sub
9#
 楼主| 发表于 2002-9-28 21:16:00 | 只看该作者
我看过clone和bookmark的帮助,不能够完全理解其内容,楼上两位,给几行代码?!
8#
发表于 2002-9-28 16:48:00 | 只看该作者
建议先定义全局变量,在调用
recordsetclone的bookmark!
7#
发表于 2002-9-28 12:34:00 | 只看该作者
可以在form_current事件中保存bookmark到全局变量, 然后在beforeinsert中通过设置recordsetclone的bookmark来获取数据.
6#
 楼主| 发表于 2002-9-27 21:23:00 | 只看该作者
各位提出的事件我都试过,不行!无法捕获按新增记录前的数据,只有自己做按钮那。
另外有两个问题:
1)关于文档管理的问题,公司文档成山,OFFICE自己的管理让我头疼,各位高手接招。
2)文件的标识,这文件是谁写的,搞不清楚?!电子签名?陈理先生推荐电子章,用一种类似优盘的东西,你的意见哪?
5#
发表于 2002-9-27 05:06:00 | 只看该作者
Form_BeforeDelConfirm删除前发生
Form_AfterDelConfirm删除后
          Form_Delete删除
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-12-2 11:42 , Processed in 0.084635 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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