Accessでコメントボックスを使用してコメントを追加するにはどうすればよいですか？

Question

私は仕事用のAccessデータベースを構築しています。特定のレコードをクリックすると開くレポートを設定しました。したがって、そのレコードの情報だけがレポートに表示されます。しかし、コメントを追加できるコメントボックスをレポートに追加したいと思います。新しいコメントはスタンプされ、すでにレポートに表示されている前のコメントに追加されます。私は別のレポートでコメント機能をプログラムすることができました。ただし、特定のレコードのみを表示するレポートの場合は機能しません。私は何とか各コメントを自分のデータベースに追加しなければならないのでそれがわかりますが、どうやってそれを行うのか分かりません。私は別の記事でオンラインで見つけた次のコードを使用しました。あなたのコメントが特定のレコードに縛られていないときはうまく動作します。

Private Sub cmdAppendComment_Click() 
If (IsNull(txtNewComment.Value)) Then 
    MsgBox ("Please enter a comment before clicking" & _ 
      "on the Append Comment button.") 
    Exit Sub 
    End If 

    ' These commented lines will never be reached: 
    ' If (IsNull(txtComment.Value)) Then 
    ' Table.tblmain.User_comment.Value = txtNewComment.Value & " ~ " & _ 
    '    VBA.DateTime.Date & " ~ " & VBA.DateTime.Time 
    ' Else 
    Table.tblmain.User_comment.Value = txtComment.Value & _ 
       vbNewLine & vbNewLine & _ 
       txtNewComment.Value & " ~ " & _ 
       VBA.DateTime.Date & " ~ " & VBA.DateTime.Time 
    ' End If 

    ' txtNewComment.Value = "" 
    ' Use Null: 
    txtNewComment.Value = Null 
End Sub 

Answer 1

これは、レポートではなくフォームを使用します。

これをテーブルにバインドし、新しいコメントをtexboxにバインドされた既存のコメントに追加し、レコードを保存します。