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