标题: 请教一数据更新问题 [打印本页] 作者: 01ymym 时间: 2009-1-4 20:12 标题: 请教一数据更新问题 一朋友的数据库因特殊原因，库内只能在2009-01-01前的状态下输入数据，想把输入数据时间更新为当前时间，因项目较多，自己用宏做了一下，较繁锁，请教高手可有更加方便的办法，最好不要显示提示输入时间的对话框。（假设输入数据时的系统时间为前一年的今天）谢谢！上传附件作者: Henry D. Sy 时间: 2009-1-4 21:10
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 时间: 2009-1-4 21:18
谢谢，好好学一下。