修改与删除的运行问题

张华　发表于：2017-12-14 14:01:48 　

复制

修改窗体上的修改按键与删除按键代码运行错误,是因为ID是自动编号造成的吗,如何改成文本对别的窗体也造成问题,

请求ID为自动编号设置情况下,如何改正修改与删除的运行代码

点击下载此附件

Top

chinasa 发表于：2017-12-14 14:40:43

CurrentDb.Execute "UPDATE 入库 SET 零件号 ='" & Me.零件号 & "', 零件名 ='" & Me.零件名 & "', 数量 ='" & Me.数量 & "' WHERE id=" & Me.ID

Top

张华发表于：2017-12-14 14:47:11

请问删除要如何修改

Top

张华发表于：2017-12-14 14:51:41

修改不行,因为我要依据来进行修改,ID是不能删除,况且按上述修改同样是运行错误

Top

chinasa 发表于：2017-12-14 14:55:20

If IsNull(Me.ID) Then Exit Sub
'If DCount("*", "入库", "ID='" & Me.ID & "'") = 1 Then

CurrentDb.Execute "UPDATE 入库 SET 零件号 ='" & Me.零件号 & "', 零件名 ='" & Me.零件名 & "', 数量 ='" & Me.数量 & "' WHERE id=" & Me.ID

'Else
'CurrentDb.Execute "insert into 入库(id,零件号,数量 ,日期) values('" & Me.ID & "','" & Me.零件号 & "','" & Me.零件名 & "','" & Me.数量 & "', #" & Me.日期 & "#)"
'End If
Me.入库子窗体.Form.Requery
'Call cmd清空_Click

Top

张华发表于：2017-12-14 15:25:32

谢谢老师!修改代码解决了,删除代码如何修改?

Top

chinasa 发表于：2017-12-14 15:52:15

CurrentDb.Execute "DELETE 入库.* FROM 入库 WHERE id=" & Me.ID
Me.入库子窗体.Form.Requery

Top

张华发表于：2017-12-14 16:13:04

老师!已按上述代码修改 ,还是运行错误,请明细指导,谢谢!

Top

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

Access交流中心

修改与删除的运行问题