ボタンを使ってテキストウィンドウを開き、メモフィールドにテキストを追加する方法

Question

AppendOnlyを介してコメントを格納するメモフィールドを持つ単純なMS Accessデータベースがあります。

フォームの1つでは、ユーザーが新しいコメントを入力してメモフィールドに追加することができる小さなテキストフィールド/ウィンドウを開く/ポップアップする「コメントを追加」ボタンを追加したいと思います。誰もこれで私を助けることができますか？

その他の機能：関数を使用してWindowsのユーザー名を読み取ることができます - そのユーザー名をコメント文字列に追加するにはどうすればよいですか（例：「User u123：[彼のコメントをポップアップウィンドウから既存のメモフィールドに文字列を連結することができ、あなたのコメントやユーザ名を追加するにはInputBox

を使用することができる非常にベアボーンコメント入力用

Answer 1

（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