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

Posted 2023-04-19

【中文标题】Access 2010 中的文本框自动添加注释

【英文标题】：Auto-Add Comment to Textbox in Access 2010

【发布时间】：2014-07-16 22:30:38

【问题描述】：

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

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

这是我目前所拥有的——但如前所述，它只在我点击时输入日期，并删除其他所有内容。任何帮助将不胜感激。

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

【问题讨论】：

我认为你应该一次只做一件事。现在，我认为您应该保存文本框中的文本并为其添加日期。我想您可能还想检查您的Format() 功能。我认为Now 不需要括号。

【参考方案1】：

On Enter 在您单击时触发。它与“enter”键无关。

请参阅此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 字段中。