Office中国论坛/Access中国论坛

标题: [轻风]多条件查询衍生出的批量修改，请高手指点错误 [打印本页]

作者: dd783130 时间: 2014-4-17 10:00
标题: [轻风]多条件查询衍生出的批量修改，请高手指点错误
代码有错误，请高手帮忙

Private Sub Command194_Click()
Dim ssql As String
Dim strwh As String
strwh = Nz(Me.[标准成本].Form.产品查询子表, "True")
ssql = "update 产品 set 标准成本=me.Text195 where " & strwh
DoCmd.RunSQL ssql
End Sub

复制代码

作者: dd783130 时间: 2014-4-17 10:10
搞不清错误在哪

作者: leonshi 时间: 2014-4-17 10:28
Me.[标准成本].Form.产品查询子表, "True"这句中的“产品查询子表”修改成“child1”

作者: dd783130 时间: 2014-4-17 20:08
还是不行，

作者: leonshi 时间: 2014-4-17 20:59
还有你的数据库有问题，我修改后没有办法保存

作者: dd783130 时间: 2014-4-18 08:01
你把修改的代码发给我，我来调试一下

作者: 轻风 时间: 2014-4-18 10:30
搞不懂你那代码写的是什么意思，看看改成这样是不是符合你的要求：

Private Sub Command194_Click()
Dim ssql As String
Dim strwh As String
strwh = Nz(Me.Child1.Form.Filter, "True")
ssql = "update 产品 set 标准成本=" & Me.Text195 & " where " & strwh
DoCmd.RunSQL ssql
End Sub

复制代码

作者: dd783130 时间: 2014-4-18 23:25
轻风，我是初学，请你再给我给我改一下，我基本能得到结果，但代码有错误，谢谢

作者: dd783130 时间: 2014-4-18 23:27
我花了一晚上的时间学习了你给我的代码，有了一点进步，特别感谢轻风老师的指点

作者: dd783130 时间: 2014-4-18 23:31
我要的结果是在查询的基础上，实现原有数据表和子窗体对应字节的批量修改

作者: dd783130 时间: 2014-4-20 17:39
Private Sub Command194_Click()
Dim ssql As String
Dim strwh As String

strwh = Nz(Me.Child1.Form.Filter, True)

ssql = "update 产品 set 标准成本 = ''& Text195 &''where " & strwh

DoCmd.RunSQL ssql

End Sub

代码改成这样后可以运行，也能得到想要的结果，但是在提示对话框点取消时会出错，请问怎么改

作者: dd783130 时间: 2014-4-20 19:16
我把改好的全部导入到通用平台测试正确，谢谢轻风老师指点

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