Private Sub 删除菜单_Click()
On Error GoTo Err_删除菜单_Click
If MsgBox("材料编号：是否删除" & Me![材料编号] & "的资料？请确认！", vbYesNo, "小齐提示") = vbYes Then
Dim STemp As String
Dim i As Integer
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
'为打开数据表“查询语句”字符变量赋值
STemp = "SELECT 材料表.* FROM 材料表 WHERE (((材料表.材料名称)='" & Me.材料名称 & "'));"
'打开“材料表”数据表
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'判断“材料表”表是否为空
If IsNull(Rs.RecordCount) Then
MsgBox ("无此记录")
Else
Rs.Delete 1
'关闭记录集
Rs.Close
'释放系统为Rs数据集分配的空间
Set Rs = Nothing
Me![材料资料管理 子窗体].Requery
End If
End If
Exit_删除菜单_Click:
'释放系统为Rs数据集分配的空间
Set Rs = Nothing
Exit Sub
Err_删除菜单_Click:
MsgBox Err.Description
Resume Exit_删除菜单_Click
End Sub
另外,少用循环语句(耗时)。好不容易输入的数据，不要轻意的将其删了，再说在删除记录时除了权限之外，还有很多工作要做，如：要把删除的记录、操作人、操作时间等保存好以备复查！尽量少设删除按钮，不然容易造假！作者: utngrihii 时间: 2007-1-3 20:36
谢谢浩雨