(vba学习小结)关于既定编号关联数据删除的设计方案
时 间:2011-12-24 12:11:51
作 者:何必见戴 ID:13894 城市:厦门
摘 要:谈及此,不得不提起一个很头疼的问题,是否编号需要连续?还是只保持唯一性就好?如果只考虑后者,设计起来相对简单.但是若要取前者,则要有两方面考虑.一个是编号重续函数的编写,另外一个就是删除既定项目有关数据,编号留以后用的设计.
正 文:
编号重续函数的编写,可以参考红尘如烟大哥的"编号重续模块"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,解释一下,此处的"项目编号"即为所需要操作的序号.至此结束~周末愉快诸位!有空我会贴个示例上来!
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)
- 【Access窗体导出PDF】Ac...(04.08)
- 【Access窗体导出PDF】给A...(04.07)