如何更新另一資料表?

Eat D Wong
資料庫內有2個資料表A 和 B,A是儲存客戶貨品資料表,有[客戶編號][貨品編號][價格].而B是發票資料表,亦有[客戶編號][貨品編號][價格].
我做了一個B發票表單,請問在表單資料輸入後可以把[價格]更新到A客戶貨品資料表嗎?但B發票資料表[價格]必須有相同的[客戶編號][貨品編號]才更新到[價格].

例如: A客戶貨品資料表
[客戶編號][貨品編號][價格]
abc 123 10
abc 456 12
def 123 15
B發票資料表
[客戶編號][貨品編號][價格]
abc 123 50

完成B發票"50"後會自動更新到A客戶貨品原先"10"的價格內,變成"50"
謝謝!

最有價值解答

roar
放在發票表單的Price_AfterUpdate中
Private Sub Price_AfterUpdate()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("ATable")
    rs.MoveFirst
    Do Until rs.EOF
    If (rs.Fields(0).Value = Me.CustomerID And rs.Fields(1).Value = Me.ProductID) Then
        rs.Edit
        rs.Fields(2).Value = Me.Price
        rs.Update
    End If
    rs.MoveNext
    Loop
rs.Close
Set db = Nothing
End Sub

Eat D Wong
可以了roar,感謝萬分!
回到頂部