Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access开发平台

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群 (群号:84825014)       access源码网店

最新评论 查看更多评论(2)

2011/1/21 10:36:18杜超
不错

2007/12/8 12:52:32Victor Duane
Public Sub btnDel()

If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then

currentproject.connection.Execute "delete * from tblCode_lj where del=-1"

Forms!usysfrmMain!frmChild.SourceObject = "frmCode_lj_child"

End If

End sub

这里可以减少一些代码


发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

最新帖子

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助