access开发平台中实现数据表中记录的多项删除

时　间:2007-12-08 11:28:30
作　者:钱玉炜   ID：16  城市：江阴
摘　要:Access开发平台中实现数据表中记录的多项删除
正　文:

Access开发平台中实现数据表中记录的多项删除

在Access开发平台使用中，一般我们都是按一次删除按钮删除一条记录，当记录数比较多的时候这样就比较不方便，正好有个网友提出了这个问题，我想了下得出以下的解决方法，大家共同讨论。

首先在表中添加一个是否字段，这里以专业版中零件代码表tblcode_lj为例，在表中添加字段del，以表tblcode_lj为数据源建立子窗体frmcode_lj_child，窗体默认视图改为数据表，窗体的记录集类型为动态集。在删除按钮的单击事件中编写删除代码，这里主要用delete语句进行判断删除，当del字段的值为－１就执行删除查询，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

以上就是批量删除的功能的实现，有发现什么问题欢迎交流，大家一起完善这个功能