如何通过按钮打开文本窗口并将文本添加到备忘录字段

【问题标题】：how to open a text window through a button and add text to memo field如何通过按钮打开文本窗口并将文本添加到备忘录字段
【发布时间】：2016-11-08 01:27:53
【问题描述】：

我有一个简单的 MS Access 数据库，其中包含一个通过 AppendOnly 存储 cmets 的备注字段。

在其中一个表单中，我想添加一个“添加评论”按钮，该按钮将打开/弹出一个小文本字段/窗口，用户可以在其中输入新评论，然后将其添加到备忘录字段中。谁能帮我解决这个问题？

额外功能：我可以通过函数读取 Windows 用户名 - 我如何将该用户名添加到评论字符串（例如“用户 u123：[弹出窗口中的他的评论]”）？

【问题讨论】：

标签： ms-access vba

【解决方案1】：

对于非常简单的评论输入，您可以使用InputBox

要附加您的评论和用户名，您可以将字符串连接到现有的备忘录字段

类似这样的内容（对于名为 Add_Comment 的按钮）：

Private Sub Add_Comment_Click()
    Dim strComment As String
    Dim strUser    As String

    strComment = InputBox("Add Your Comment" , "Comment")

    If strComment <> "" Then ' User did not hit Cancel

         ' Prepend Username using your function   
         strComment = GetUserName() & ": [" & strComment & "]"

         ' Append Comment to end of Memo field separated by <CR><LF>
         Me![My Memo Fieldname] = Me![My Memo Fieldname] & vbcrlf & strComment
         Msgbox "Comment Appended"
    Else
         Msgbox "No Comment Added"
    End If
End Sub

【讨论】：