[求助]DeleteRecord"命令不可用

sktv2001

我在一个窗体中加一个删除记录的按钮.....在删除记录的同时也删除相关编号的其它表

但不知为什么删除的时候出现 当前"DeleteRecord"命令不可用 的字句...删除不了...

Private Sub Command32_Click()
    On Error GoTo Err_Command32_Click

    If MsgBox("真的要删除该用户一切资料吗？", vbQuestion + vbYesNo + vbDefaultButton2, "删除确定") = vbYes Then

        Dim str2, str3, str4, str5 As String
        Dim str1 As Long
        str1 = Forms!用户修改!用户编号
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdDeleteRecord
        str2 = "delete from 缴费情况 where 用户编号=" & str1
        CurrentDb.Execute str2
        str3 = "delete from 报停表 where 用户编号=" & str1
        CurrentDb.Execute str3
        str4 = "delete from 搬迁表 where 用户编号=" & str1
        CurrentDb.Execute str4
        str5 = "delete from 改名表 where 用户编号=" & str1
        CurrentDb.Execute str5

Exit_Command32_Click:
        Exit Sub

Err_Command32_Click:
        MsgBox Err.Description
        Resume Exit_Command32_Click

    End If
End Sub

sktv2001

        str1 = Forms!用户修改!用户编号
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdDeleteRecord
        str2 = "delete from 缴费情况 where 用户编号=" & str1
        CurrentDb.Execute str2
        str3 = "delete from 报停表 where 用户编号=" & str1
        CurrentDb.Execute str3
        str4 = "delete from 搬迁表 where 用户编号=" & str1
        CurrentDb.Execute str4
        str5 = "delete from 改名表 where 用户编号=" & str1
        CurrentDb.Execute str5

Exit_Command32_Click:
        Exit Sub

Err_Command32_Click:
        MsgBox Err.Description
        Resume Exit_Command32_Click

    End If
End Sub

[此贴子已经被作者于2007-3-29 0:41:20编辑过]

一点通

将各表的关系设立好,只删除主表的记录就行了,其它的附表会自动删除的,这样就不用每个表都作删除处理