Office中国论坛/Access中国论坛

标题: [求助]DeleteRecord"命令不可用 [打印本页]

作者: sktv2001 时间: 2007-3-29 08:39
标题: [求助]DeleteRecord"命令不可用
我在一个窗体中加一个删除记录的按钮.....在删除记录的同时也删除相关编号的其它表

但不知为什么删除的时候出现当前"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 时间: 2007-3-29 08:40

      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编辑过]

作者: 一点通 时间: 2007-3-29 16:55
将各表的关系设立好,只删除主表的记录就行了,其它的附表会自动删除的,这样就不用每个表都作删除处理

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)