สวัสดีครับอ.สุภาพ และเพื่อนๆชาว access ทุกคนครับ
ผมมีปัญหาการ update ข้อมูลในใบสั่งซื้อครับ คือในการ update ข้อมูลการสั่งซื้อแต่ละครั้งต้อง ทำการใส่วันที่ส่งของ ก่อนถึงจะ update ข้อมูลได้ โดยที่ข้อมูลตัวอื่นๆเราได้ทำการบันทึกไว้แล้วตั้งแต่วันที่เราออกใบสั่งซื้อ ดังนั้นผมจึงทำการแยกข้อมูลวันส่งของออกมาโดยใช้ชื่อว่า txtDeliveryDate และเขียน โค๊ด ดังนี้ครับ
Private Sub Update_Click()
If IsNull(txtDeliveryDate.Value) Then
MsgBox "ท่านต้องกรอกวันที่ส่งสินค้าก่อนที่จะคลิ๊กปุ๋มนี้"
Else
rs3.Seek "=", txtDeliveryDate.Value
If rs3.NoMatch Then
rs3.AddNew
rs3.Fields("DeliveryDate").Value = txtDeliveryDate.Value
rs2.Edit
rs2.Fields("Stock").Value = rs2.Fields("Stock").Value + SubQuantity.Value
rs2.Update
MsgBox "บันทึกรายการ และเพิ่มสินค้าในสต๊อคแล้ว"

End If
End If
ChdDetail.Requery
End Sub

จากโค๊ดนี้ ข้อมูลมีการเพิ่มจำนวนของสินค้าในสต๊อคจริง แต่ปัญหาคือวันที่ส่งของไม่ได้บันทึกเลยครับ รบกวนด้วยนะครับ