一个最新单价启用，自动取消旧单价的问题

冯绍国　发表于：2012-01-03 16:31:21 　

复制

如何实现：新的报价选定后，勾上启用后，同种材料以前的报价上启用处的勾自动取消，具体见上传示例，谢高手相助，太苦恼了无法解决！

点击下载此附件

Top

accylsd 发表于：2012-01-03 17:13:00

点击下载此附件

Top

冯绍国发表于：2012-01-04 08:20:03

感谢ACCYLSD的代码，但运行时有一个问题，其它物料代码的启用被取消了，应取消相同物料代码的旧的启用，请再修改一下！

Top

accylsd 发表于：2012-01-04 12:02:26

代码修改一下：

Private Sub 启用_Click()
If Me.启用 = -1 Then
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE 报价记录 SET 启用='0' WHERE ID<>" & Me.ID & " and 产品='" & Me.产品 & "'"
    Me.Requery
    DoCmd.SetWarnings True
End If
End Sub

Top

accylsd 发表于：2012-01-04 12:03:39

点击下载此附件

Top

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

Access交流中心

一个最新单价启用，自动取消旧单价的问题