批量修改查询后所得记录

赵佰永　发表于：2014-01-19 13:36:02 　

复制

有两个表一个表是"订单列表"

订单ID 日期客户ID 类型ID

一个是"码单数据源"

ID 订单ID 产品ID 价格

建立一个窗体，根据日期，姓名，类型，产品建立查询得到新表 "价格查询"

订单ID 日期客户ID 类型ID 产品ID 价格

如此批量修改"价格查询“ 使[价格]= & InputBox("请输入价格") &

Dim lngRowsAffected As Long

     CurrentProject.Connection.Execute "Update 价格查询 SET [价格] ='" & InputBox("请输入价格") & "';", lngRowsAffected

     MsgBox "您对" & lngRowsAffected & "条记录进行了更新."

     Debug.Print lngRowsAffected

使用这个代码总是提供有至少有一个参数未被定义；

Top

cspa 发表于：2014-01-20 09:37:28

改为：

CurrentProject.Connection.Execute "Update 价格查询 SET [价格] ='" & InputBox("请输入价格") & "';"

Top

zhaoyoulong 发表于：2014-01-20 09:44:25

CurrentProject.Connection.Execute "Update 价格查询 SET [价格] =Val('" & InputBox("请输入价格") & "')"

msgbox "您对" & CurrentDb.TableDefs("价格查询").RecordCount "条记录进行了更新."

Top

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

Access交流中心

批量修改查询后所得记录