Question

ACCESS里怎么修改某张表某字段的数据？

表1
代码 数量 折扣率
001 88
002 55
001 4
002 1
表2
代码 单价 折扣价
001 100 80
002 200 120
能不能做个按钮，把表2的折扣价/单价写入表1

Answer 1

表1必须增加一个“折扣价"字段,表2的代码应该是唯一的

实现代码如下：

Private Sub Command0_Click()
Dim strSql As String
strSql = "update 表1,表2 set 表1.折扣价=表2.折扣价 where 表1.代码=表2.代码"
DoCmd.RunSQL strSql
End Sub