จะอ้างอิงค่าจาก record บน

[nonc31]

[PNR]

ถ้าฟอร์มมีข้อมูล ID ที่เป็น Pk ก็สามารถใช้ Dmax หาค่าก็ได้ครับ มันจะได้วันที่สูงสุดของ ID นั้นๆ มา
แล้วกำหนดตัวแปรเก็บค่า Dmax ของฟิลล์วันที่
และนำตัวแปรนั้นมาเปรียบเทียบกับ วันที่ๆเราเพิ่งคีย์เข้าไป

[nonc31]

ทำแบบลูกทุ่งครับ

Private Sub Command18_Click()
  DoCmd.GoToRecord , , acNewRec
  DoCmd.GoToRecord , , acPrevious 'ให้เคอร์เซอร์วิ่งกลับขึ้นไป  แล้วเขียนค่าวันที่ ใน chkdate
  Me.chkdate = me.datein  'วันที่ข้างบน
  DoCmd.GoToRecord , , acNext 'วิ่งกลับลงมา
end sub

Private Sub dateIn_AfterUpdate()
    If me.datein < me.chkdate Then
        MsgBox "วันที่ผิดพลาด....(วันที่น้อยกว่าวันที่ด้านบน " & me.chkdate & ")", vbCritical, "เตือน"
    End If
End Sub