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

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

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