如何自动录入子窗体的递增序号字段
应用范例:
在生产过程中,生产日报的录入采用主子窗体的结构。主窗体的主键是日报编号,子窗体的主键是日报编号+序号。每天日报的明细记录的序号从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