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

最新推荐文章于 2022-02-07 01:37:02 发布

hf_huxiaoyan

最新推荐文章于 2022-02-07 01:37:02 发布

阅读量3.9k

点赞数 2

分类专栏： Access 文章标签： access

Access 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

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