Question

所以我在Access 2010中有这个文本框，存储了一堆注释。我想要做的是，当用户可以在文本框内单击并且当他们点击输入时，它会插入当天的日期和预设评论（例如7月16日至14日是），然后是一行空格在框的顶部，同时仍保留下面的任何评论。

我可以让它插入日期，但是只要我在文本框中单击并删除已经存在的所有其他注释，它就会这样做，这不是我想要的。我想保留所有现有的评论，只需添加一个新评论。 On Click事件为空，On Enter设置为事件过程。

这是我到目前为止所做的 - 但如上所述，它只进入我点击的日期，并删除其他所有内容。非常感谢任何帮助。

Private Sub Comments_Enter()
Comments = Format(Now(), "mmm-dd/yy")
End Sub

Answer 1

单击时会触发输入。这与进入＆＃39;无关。键。

请参阅此MSDN documentation以获取说明。

改为使用On Click事件（如果您愿意，请使用Double Click事件）。

Sub Comments_Click()
  Dim strInput as String
  strInput = InputBox("Press enter to save.",,Format(Now(), "mmm-dd/yy") & " Your preset message")
  If strInput <> "" Then
    Programming_Comments = strInput & vbCrLf & vbCrLf & Programming_Comments
  End If
End Sub

关键是将新字符串和旧字符串保存到Programming_Comments字段中。

在Access 2010中自动添加对文本框的注释

1 个答案: