[轻风]多条件查询衍生出的批量修改，请高手指点错误

dd783130

代码有错误，请高手帮忙

1. Private Sub Command194_Click()
   
2.     Dim ssql As String
   
3.     Dim strwh As String
   
4.     strwh = Nz(Me.[标准成本].Form.产品查询子表, "True")
   
5. 
   
6.     ssql = "update 产品 set 标准成本=me.Text195 where " & strwh
   
7.     DoCmd.RunSQL ssql
   
8. 
   
9. 
   
10. End Sub

复制代码

dd783130

搞不清错误在哪

leonshi

Me.[标准成本].Form.产品查询子表, "True"这句中的“产品查询子表”修改成“child1”

dd783130

还是不行，

leonshi

还有你的数据库有问题，我修改后没有办法保存

dd783130

你把修改的代码发给我，我来调试一下

轻风

搞不懂你那代码写的是什么意思，看看改成这样是不是符合你的要求：

1. Private Sub Command194_Click()
   
2.     Dim ssql As String
   
3.     Dim strwh As String
   
4.     strwh = Nz(Me.Child1.Form.Filter, "True")
   
5. 
   
6.     ssql = "update 产品 set 标准成本=" & Me.Text195 & " where " & strwh
   
7.     DoCmd.RunSQL ssql
   
8. 
   
9. End Sub
   

复制代码

dd783130

轻风，我是初学，请你再给我给我改一下，我基本能得到结果，但代码有错误，谢谢

dd783130

我花了一晚上的时间学习了你给我的代码，有了一点进步，特别感谢轻风老师的指点

dd783130

我要的结果是在查询的基础上，实现原有数据表和子窗体对应字节的批量修改