编号重续函数的编写,可以参考红尘如烟大哥的"编号重续模块"AutoNum函数,网站一搜就有,写的很好!

那么现在实现第二步:删除既定项目的所有相关数据,这段我摸索了一下,写了一下代码来实现:

Sub DeleteRelateData()
    Dim db As Database
    Dim td As TableDef
    Dim rst As Object
    Dim MyString As String

    Set rst = CurrentDb.OpenRecordset("SELECT * FROM 带班分工表  WHERE 培训班级='" & Me.培训班级 & "'", 2, 512)
    MyString = rst!项目编号
    Set db = CurrentDb
    For Each td In db.TableDefs
        If (td.Attributes And dbSystemObject) = 0 Then    '不可对系统表进行操作
            If td.Name <> "带班分工表" Then  '不可对既定编号所在源的表进行操作
                DoCmd.RunSQL "DELETE * FROM  " & td.Name & " WHERE 项目编号='" & MyString & "'"
             End If
        End If
        '更新项目编号所在源的项目编号字段为空

        DoCmd.RunSQL "UPDATE 带班分工表 SET 项目编号='' WHERE 需求序号='" & Me.培训班级 & "'"
        Set rst = Nothing
    End If
 End Sub

OK,解释一下,此处的"项目编号"即为所需要操作的序号.至此结束~周末愉快诸位!有空我会贴个示例上来!