通常会多次更新一记录,或多人更新一记录,里面的备注字段信息希望能追加,而不是这一次的冲掉上一次的。我的做法是锁定备注,新增一个文本框 新备注 用如下代码追加新备注,记录 谁,哪一天,追加什么内容,然后换行。
If IsNull(Me.新备注) Then
rst![备注] = Me![备注] ’如果无新备注,备注保持不变
Else
rst![备注] = Forms!SysFrmMain!Username & Format(Date, "yyyymmdd") & Me![新备注] & Chr(13) & Chr(10) & Me![备注]
’追加新备注并换行。
End If
备注锁定了,不能更改,雁过留声。