请教一数据更新问题

01ymym

一朋友的数据库因特殊原因，库内只能在2009-01-01前的状态下输入数据，想把输入数据时间更新为当前时间，因项目较多，自己用宏做了一下，较繁锁，请教高手可有更加方便的办法，最好不要显示提示输入时间的对话框。（假设输入数据时的系统时间为前一年的今天）谢谢！上传附件

Henry D. Sy

Private Sub Command0_Click()
    Dim myDate As Date
    Dim strSQL As String
    myDate = DateAdd("yyyy", -1, Date)
    strSQL = "Update kc set rkrq=#" & myDate & "#"
    CurrentDb.Execute strSQL
    MsgBox "Updated Finish"
End Sub

01ymym

谢谢，好好学一下。