Access子窗体递增序号自动录入

'功能：实现子窗体递增序号自动录入'应用范例'在生产过程中，生产日报的录入采用主子窗体的结构，主窗体的主键是日报编号，'子窗体的主键是日报编号+序号，每天的日报记录从序号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