新增记录触发什么事件

浪上飞郑

在窗体中输入新记录，我希望新的记录能自动填入前一记录（或前一页面，我的意思：比如我正在浏览一些记录，发现需要增加一个相似的记录）的某些数据，这样能有效减少输入量，我用的是ACCESS自带的浏览按钮，不知新增记录时触发哪一个事件，当然，有其它方法就更好呢。
这个问题在论坛提出过，但没有满意的答复，希望各位高手出手帮忙，不胜感激。

Youxiaoxue

新增记录时会触发 Before_Insert和After_Insert 事件.

ui

那刪除触发什么事件

浪上飞郑

谢谢版主，我想我明白你的意思，我试一下。

ollice

Form_BeforeDelConfirm删除前发生
Form_AfterDelConfirm删除后
          Form_Delete删除

浪上飞郑

各位提出的事件我都试过，不行！无法捕获按新增记录前的数据，只有自己做按钮那。
另外有两个问题：
1）关于文档管理的问题，公司文档成山，OFFICE自己的管理让我头疼，各位高手接招。
2）文件的标识，这文件是谁写的，搞不清楚？！电子签名？陈理先生推荐电子章，用一种类似优盘的东西，你的意见哪？

teddibear

可以在form_current事件中保存bookmark到全局变量, 然后在beforeinsert中通过设置recordsetclone的bookmark来获取数据.

WTM1

建议先定义全局变量，在调用
recordsetclone的bookmark！

浪上飞郑

我看过clone和bookmark的帮助，不能够完全理解其内容，楼上两位，给几行代码？！

teddibear

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