update ได้แล้ว แต่มัน update ทั้งหมด ไม่รู้ใส่ where ตรงไหน ดูให้หน่อยคับ
Dim dbs As Database
Dim rst As Recordset
Dim strSQL As String
Dim i As Integer
Set dbs = CurrentDb()
strSQL = "SELECT * FROM [T_Order];"
Set rst = dbs.OpenRecordset(strSQL)
rst.MoveFirst
Label10.Caption = name
While Not rst.EOF
rst.Edit
rst!Amount_order = rst!Amount_order - 10
rst.Update
rst.MoveNext
Wend
rst.Close
dbs.Close