更简单 获取删除多条记录的信息
时 间: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群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access日期时间区间段查...(06.17)
- 【Access Dlookup...(06.15)
- 【Access源码示例】按输入...(05.30)
- Access一打开就显示查询结...(05.27)
- 【Access定时打开窗体】A...(05.21)
- 【Access更新查询】更新查...(05.15)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
学习心得
最新文章
- 【Access日期时间区间段查询示...(06.17)
- 【Access Dlookup示例...(06.15)
- 删除A表中与B表某字段值相同的记录(06.14)
- Access快速开发平台--数据库...(06.13)
- Access快速开发平台企业版--...(06.12)
- 【Access组合框示例】Acce...(06.11)
- 如何调整图表的大小【书常见问答】(06.10)
- Access快速开发平台--更换大...(06.07)
- Access快速开发平台--打开M...(06.06)
- Access快速开发平台--新增窗...(06.05)