คือผมได้เขียน code คำนวณค่าจากตารางแล้วนำค่าที่คำนวณเสร็จแล้วมาแสดงบน textbox ใน report (ตรงส่วน detail ทีเรียงกันเป็นเรคอดน่ะครับ) แต่มันดันแสดงค่าเหมือนกับเรคอดแรกสุดหมดเลย คือเรคอดอื่นๆ ก็แสดงค่าเหมือนกับเรคอดแรกหมดเลย จะแก้ยังไงครับ ให้มันแสดงเป็นของ เรคอดใคร เรคอดมัน

Code ครับ :

Private Sub Report_Activate()
Dim MerAmount As Long
Dim TotalPrice As Currency
Dim rst2 As DAO.Recordset
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("select mer_amount from merchandise where mer_id = '" & Me.MER_ID & "'")
Set rst2 = dbs.OpenRecordset("select * from buy where mer_id = '" & Me.MER_ID & "' order by buy_date desc")
If Not rst.EOF And Not rst2.EOF Then
MerAmount = rst!MER_AMOUNT
TotalPrice = 0

If rst2!BUY_AMOUNT < MerAmount Then
Do
TotalPrice = TotalPrice + (rst2!BUY_AMOUNT * rst2!BUY_UNITPRICE)
MerAmount = MerAmount - rst2!BUY_AMOUNT
rst2.MoveNext
If rst2!BUY_AMOUNT >= MerAmount Then GoTo jaja
Loop
Text20.Value = TotalPrice

jaja:

TotalPrice = TotalPrice + (rst2!BUY_AMOUNT * rst2!BUY_UNITPRICE)
Text20.Value = TotalPrice

End If
End If
End Sub
--------------
ใช้ Access 2000 + XP pro ครับ
ขอบคุณมากๆ ครับ