如何通過按鈕打開文本窗口並將文本添加到備註字段

Question

我有一個簡單的MS Access數據庫，其備註字段通過AppendOnly存儲註釋。

在其中一種形式中，我想添加一個「添加評論」按鈕，該按鈕將打開/彈出一個小文本框/窗口，用戶可以在其中輸入新註釋，然後將其添加到備註欄。誰能幫我這個？

附加功能：我可以通過函數讀取Windows用戶名 - 如何將該用戶名添加到註釋字符串（例如「User u123：[他的彈出窗口中的註釋]」）？

Answer 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