设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 3117|回复: 2
打印 上一主题 下一主题

[窗体] 关于小宝的《删除多条信息》,我有个疑问.....

[复制链接]
跳转到指定楼层
1#
发表于 2009-12-12 00:00:49 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 goto2008 于 2009-12-12 00:15 编辑

关于小宝《删除多条信息》的疑问,怎么解决?请指教

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2009-12-13 13:04:25 | 只看该作者
原因是选择了新记录引起的,添加2句代码取消选择新记录即可。

Dim stDel As String
Dim inDel As Integer

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
    Response = acDataErrContinue
End Sub

Private Sub Form_Delete(Cancel As Integer)

    If Me.SelTop + Me.SelHeight - 1 > Me.RecordsetClone.RecordCount Then
        Me.SelHeight = Me.SelHeight - 1
    End If


    If Me.SelHeight > inDel Then
        stDel = stDel & Chr(13) & "    " & Me.编号
        inDel = inDel + 1
        Cancel = True
    End If

    If Me.SelHeight = inDel Then
        If MsgBox("您正准备删除 " & inDel & " 条编号如下的记录:" & Chr(13) & stDel & Chr(13) & _
            Chr(13) & "删除后将不能撤消,确定删除吗?", vbExclamation + vbYesNo, "确认删除") = vbYes Then
            inDel = Me.SelHeight + 1
            DoCmd.RunCommand acCmdDeleteRecord
        End If
        inDel = 0
        stDel = ""
    End If
   
End Sub
3#
 楼主| 发表于 2009-12-13 16:07:28 | 只看该作者
可以了,谢谢小宝
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-14 19:13 , Processed in 0.092389 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表