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的现有评论，并保存记录。

如何使用Access中的注释框添加注释？

1 个答案: