如何自动录入子窗体的递增序号字段

时　间:2007-10-09 21:53:38
作　者:AskHeart   ID：17  城市：秦皇岛
摘　要:如何自动录入子窗体的递增序号字段（字段名自定义）
正　文:

如何自动录入子窗体的递增序号字段

应用范例：

在生产过程中，生产日报的录入采用主子窗体的结构。主窗体的主键是日报编号，子窗体的主键是日报编号+序号。每天日报的明细记录的序号从1开始，自动递增。为提高录入效率，我采用以下方法实现。

1、日报明细中的[序号]字段的数据类型设为整型，默认值为1。

2、在子窗体的当前事件中录入以下代码。

Private Sub Form_Current()
'顺序号自动赋值
    On Error Resume Next
    Dim rstClone As DAO.Recordset
    Set rstClone = Me.RecordsetClone
    If Me.NewRecord = True Then
        rstClone.MoveLast
        Me.序号.DefaultValue = rstClone!序号 + 1
    End If
    rstClone.Close
    Set rstClone = Nothing
End Sub