更简单 获取删除多条记录的信息
时 间:2010-01-29 08:50:36
作 者:t小雨 ID:4598 城市:柳州
摘 要:获取删除多条记录的信息
正 文:
以前发过一个例子:删除数据表窗体多条记录并提示所选记录的信息,使用了记录集,比较麻烦。
其实还有更简单的办法,数据表或连续窗体均可:
方法一:
Option Compare Database
Option Explicit
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.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
方法二:
Option Compare Database
Option Explicit
Dim stDel As String
Dim inDel As Integer
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
Response = acDataErrContinue
If MsgBox("您正准备删除 " & inDel & " 条编号如下的记录:" & Chr(13) & stDel & Chr(13) & _
Chr(13) & "删除后将不能撤消,确定删除吗?", vbExclamation + vbYesNo, "确认删除") = vbNo Then
Cancel = True
End If
End Sub
Private Sub Form_Delete(Cancel As Integer)
stDel = stDel & Chr(13) & " " & Me.编号
inDel = inDel + 1
End Sub
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access日期区间段查询示...(06.24)
- 【Access日期区间段查询示...(06.21)
- 【Access日期区间段查询示...(06.18)
- 【Access日期时间区间段查...(06.17)
- 【Access Dlookup...(06.15)
- 【Access源码示例】按输入...(05.30)
- Access一打开就显示查询结...(05.27)
- 【Access定时打开窗体】A...(05.21)
- 【Access更新查询】更新查...(05.15)
![](images/weixin.jpg)
学习心得
最新文章
- 起始号,如何能够直接取之前已经录入...(06.25)
- 如何提取扫码枪两个#号之间的内容(06.24)
- 【Access日期区间段查询示例】...(06.24)
- Access源码作品《复杂产品模块...(06.22)
- 【Access日期区间段查询示例】...(06.21)
- Access制作的古代汉语研究数据...(06.20)
- 关于Excel是否型数据设为Yes...(06.19)
- 【Access日期区间段查询示例】...(06.18)
- 【Access日期时间区间段查询示...(06.17)
- 【Access Dlookup示例...(06.15)