ผม DblClick ที่ CmiReturnDate แล้ว Coding  
Private Sub CmiReturnDate_DblClick(Cancel As Integer) 
Dim id As Long 
Dim RetDate As Date 
 
Me.CmiReturnDate.Text = Date 
RetDate = Me.CmiReturnDate.Text 
' Date = 19/3/46 
id = Nz(Me.CmiTr, 0) 
MsgBox id, , "CmiTrID" 
MsgBox RetDate, , "Return Date" 
 
DoCmd.RunSQL "UPDATE tblCmiDep SET tblCmiDep.CmiInDate = " & RetDate & " WHERE tblCmiDep.CmiTrId = " & id 
 
CmiReturnDate.Requery 
 
End Sub 
พอ Update วันที่ลงตารางกลายเป็ฯวันที่ 30 ธ.ค.42 ผิดจากความจริงวันที่ 19/3/46 ไปตั้ง 4 ปีกว่า 
รบกวนผู้รู้ช่วยตอบด้วยครับ 
ขอบคุณครับ