请问老师这段代码为何无法更改表的数据？

rujd

我想在出库单的文本框“数量”内填入数字后，就让临时表“TMP_Tbl_库存表”内相应的物料的数量减少，于是写了这段：

Private Sub 数量_AfterUpdate()
Dim cnn: Set cnn = CurrentProject.Connection
Dim strSQL As String
strSQL = "SELECT * FROM [TMP_Tbl_库存表] WHERE [进厂编号]=" & SQLText(Me![进厂编号])
Dim rst 'As Recordset
Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
rst![库存数量] = rst![库存数量] - Me![数量]
End Sub

单步运行后，可以看到“rst![库存数量] ”的数量确实变了，但是打开“TMP_Tbl_库存表”，却发现表内的数值没变，请问这是怎么回事？

谢谢！​

rujd

明白了，少了update语句

rujd

roych 发表于 2019-1-25 12:08
如果我没记错的话，OpenRecordset应该是DAO的方法。既然用的是DAO嘛，自然要用DAO的方法了。

最后说一句 ...

万分感谢！