分配给每个事件的类似 VBA 代码的历史功能

Question

我的历史记录功能有些问题。由于内置的​​ ColumnHistory 代码不灵活，我只写了一个简短的 VBA 代码来做得更好。

我有两个不同的问题：

1. 代码在每个问题的历史记录窗口中写入

我有一个表单，我可以在其中添加新事件并浏览事件。就像模板 issue.db。 但是我的代码将更新写入我的表单中的所有事件。因此，当我在历史记录中对问题 1 发表评论“abc”时，会出现“版本日期 abc”，但这也出现在问题 2 中，依此类推。 我怎样才能防止这种情况发生？

1. vbCrLf 不工作

我不知道为什么，但是 vbCrLf 不起作用.. 我没有换行。 Just 在代码中被忽略。丰富的格式已激活。

Private Sub txt_Comments_W9_LostFocus()

Dim temp As String, newComment As String, Version As String

temp = ""
newComment = ""

temp = txt_History_W9.Value

Version = "----------------------" & "Version " & Date & ": " & "----------------------"
newComment = Version & txt_Comments_W9.Value
txt_History_W9.Value = temp & vbCrLf & vbCrLf & newComment    

结束子

谢谢大家

Answer 1

对于 2) 我找到了这个解决方法：http://social.msdn.microsoft.com/Forums/en-US/e45dd35c-1848-4140-93a8-08fc00a67b5f/access-rich-text-box