access开发平台中实现数据表中记录的多项删除
时 间:2007-12-08 11:28:30
作 者:钱玉炜 ID:16 城市:江阴
摘 要:Access开发平台中实现数据表中记录的多项删除
正 文:
Access开发平台中实现数据表中记录的多项删除
在Access开发平台使用中,一般我们都是按一次删除按钮删除一条记录,当记录数比较多的时候这样就比较不方便,正好有个网友提出了这个问题,我想了下得出以下的解决方法,大家共同讨论。
首先在表中添加一个是否字段,这里以专业版中零件代码表tblcode_lj为例,在表中添加字段del,以表tblcode_lj为数据源建立子窗体frmcode_lj_child,窗体默认视图改为数据表,窗体的记录集类型为动态集。在删除按钮的单击事件中编写删除代码,这里主要用delete语句进行判断删除,当del字段的值为-1就执行删除查询,del字段的值可以通过在窗体中勾选,详细代码如下:
Public Sub btnDel()
Dim rst As New ADODB.Recordset
Dim conn As New ADODB.Connection
Set conn = CurrentProject.Connection
rst.Open "tblcode_lj", conn, adOpenKeyset, adLockOptimistic
If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then
conn.Execute "delete * from tblCode_lj where del=-1"
Forms!usysfrmMain!frmChild.SourceObject = "frmCode_lj_child"
End If
End sub
在窗体的打开事件中的代码修改为如下代码:
Private Sub Form_Open(Cancel As Integer)
'点击查找按钮时,打开自定义的查找窗体
Forms!usysfrmMain!labFind.Tag = 1
me.删除.Enabled = True
me.零件代码.Locked = True
me.零件名称.Locked = True
me.零件图号.Locked = True
me.图纸链接.Locked = True
me.最低库存量.Locked=True
End Sub
以上就是批量删除的功能的实现,有发现什么问题欢迎交流,大家一起完善这个功能
Access快速开发平台QQ群 (群号:321554481) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)