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
以上就是批量删除的功能的实现,有发现什么问题欢迎交流,大家一起完善这个功能