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

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

我把改好的全部导入到通用平台测试正确，谢谢轻风老师指点

dd783130

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

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

dd783130

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

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

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

leonshi

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

dd783130

还是不行，