Access 自動更新最後修改日期
1.資料庫新增一個 最後修改 欄位 日期/時間 格式 預設值 Now()
2. 巨集 新增 上次修改
內容 巨集指令：SetValue 項目：修改日期。運算式：Date() 。
3.表單 -> 事件 ->Before Update 輸入 上次修改
程式碼 加入
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo BeforeUpdate_Err
‘ Set bound controls to system date and time.
DateModified = Date
BeforeUpdate_End:
Exit Sub
BeforeUpdate_Err:
MsgBox Err.Description, vbCritical & vbOKOnly, _
“Error Number " & Err.Number & " Occurred"
Resume BeforeUpdate_End
End Sub
