เมื่อมีการกรอกข้อมูลใน txtVenID
- ให้ทำการตรวจสอบ รายการในตาราง tblPO ว่ามีรายการสั่งซื้อจากลูกค้ารายนี้ ครั้งล่าสุดเมื่อวันที่เท่าไร
xDate = dMax("[Date]", "tblPO", "[PO_VenID] Like '" & me.txtVenID & "'")

- แล้วให้เอา วันที่ที่ได้มา ตรวจว่าเป็นเดือนปีปัจจุบันหรือไม่ (หรือเป็นเดือนปีเดียวกันกับ ฉบับที่กำลังจะออกนี้หรือไม่)

ถ้าเป็นเดือนปีเดียวกัน ให้ ขึ้น msgbox
ถ้าไม่ใช่ ให้ จบการตรวจสอบ..


Sub txtVenID_BeforeUpdate(cancel........

dim xDate as date
dim yDate as date
xDate = nz(dMax("[Date]", "tblPO", "[PO_VenID] Like '" & me.txtVenID & "'"),0)

yDate = cdate(me.txtDate)
if format(xDate,"mmyy") = format(yDate,"mmyy") then
msgbox .....
cancel = true
end if

End sub

ขอบคุนค่ะ ^__^