[求助]删除前提示是/否删除，不如你成愿

utngrihii

浩雨

把原删除代码改为:

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

谢谢浩雨

我希望多多的与你交流

浩雨

[em07]

lilianban

我也得到浩雨的多次帮忙，而且帮得很详细和认真，我也很想和你多多交流，我的QQ是562339667，不知可否加入你的QQ，

[此贴子已经被作者于2007-1-3 22:38:49编辑过]