ทำแบบลูกทุ่งครับ
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