删除选中的记录

siron　发表于：2017-02-10 10:32:47 　

小弟初学数据库，模仿别人的代码写了一个删除子窗体中选中的记录。

Private Sub 删除记录_Click() '删除按钮

On Error GoTo ErrorHandler
RunCommand acCmdSelectRecord
If MsgBox("确定要刪除此条记录吗？", vbQuestion + vbOKCancel) = vbOK Then
CurrentDb.Execute "DELETE * FROM [控制表] WHERE ID = " & Me.子窗体.Form.ID
Me.TimerInterval = 5
Me.子窗体.Requery
End If
Me.删除记录.SetFocus

ExitHere:
Exit Sub

ErrorHandler:
MsgBox Err.Description, vbCritical
Resume ExitHere
End Sub
可以正常运行

但是如果把表中ID自动编码字段删掉，设定字段控制号（文本）为主键，

CurrentDb.Execute "DELETE * FROM [控制表] WHERE 控制号 = " & Me.子窗体.Form.控制号

就一直出错，请问大神们如何修改？

另外如果要编辑子窗体选定的记录行，语句应该怎么写

DoCmd.OpenForm "控制表编辑", [控制号] = '" & Me.子窗体.Form.控制号不对

万分感谢

Top

MDZZ 发表于：2017-02-10 13:09:02

【Access扫盲知识】声明模块变量的用法,变量符号用法,文本型变量.日期型变量,数字型变量,数值型变量的符号表示法[Access软件网]http://www.accessoft.com/article-show.asp?id=8013

CurrentDb.Execute "DELETE * FROM [控制表] WHERE 控制号 = '" & Me.子窗体.Form.控制号 & "'"

另外如果要编辑子窗体选定的记录行，语句应该怎么写

你是绑定表还是非绑定表感觉你是绑定表

DoCmd.OpenForm "控制表编辑", , , "控制号 = '" & Me.子窗体.Form.控制号 & "'"

Top

siron 发表于：2017-02-10 13:30:10

谢谢老师的指导，接下来在打开“控制编辑表”时，窗体并没有读出相应的信息，窗体是空白的，用ID是可以实现的。

麻烦老师再给看看哪有错误

Private Sub Form_Load()

Me.商品名 = DLookup("商品名", "控制表", "控制号 ='" & Me.控制号 & "'")
Me.保留号 = DLookup("保留号", "控制表", "控制号 ='" & Me.控制号 & "'")
Me.类别 = DLookup("类别", "控制表", "控制号 ='" & Me.控制号 & "'")
Me.保留内容 = DLookup("控制内容", "控制表", "控制号 ='" & Me.控制号 & "'")
Me.开启日期 = DLookup("开启日期", "控制表", "控制号 ='" & Me.控制号 & "'")
Me.关闭日期 = DLookup("关闭日期", "控制表", "控制号 ='" & Me.控制号 & "'")
Me.是否关闭 = DLookup("是否关闭", "控制表", "控制号 ='" & Me.控制号 & "'")

End Sub

先谢谢老师了

Top

MDZZ 发表于：2017-02-10 13:50:53

控制编辑表这个窗体不是绑定表窗体把是非绑定表把推荐你学习报销教程里面有涉及

Access 数据库开发在线教程 http://www.accessoft.com/rdp/tutorial.html

不清楚你到底怎么做的所以不知道怎么修改

Top

siron 发表于：2017-02-10 14:05:51

谢谢

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

删除选中的记录