我的表没有更新长文本字段中的第二个条目

Question

我在 Access 2016 中运行以下代码以保留评论历史记录。

其中 AddNewComment 是一个未绑定的文本框，而 Comments 是一个未“启用”的文本框字段。因此，一旦用户在 AddNewComment 中输入文本并单击 Save Comment 按钮，它就会使用 Date & TimeStamp 更新 Comments 框。

问题是即使我有多个评论，我也只能在表格中看到第一个评论；无法查看表中的其他 cmets。

字段名称为“评论”，数据类型为“长文本”。

**Code** 

Private Sub Save_Comment_Click()

If (IsNull(AddNewComment.Value)) Then
    MsgBox ("Please Enter a Comment before clicking" & _
            "on the Save Comment buttonn.")
    Exit Sub
End If

If (IsNull(Comments.Value)) Then
    Comments.Value = AddNewComment.Value & " ~ " & _
        VBA.DateTime.Date & " ~ " & VBA.DateTime.Time

Else
    Comments.Value = Comments.Value & _
        vbNewLine & vbNewLine & _
        AddNewComment.Value & " ~ " & _
        VBA.DateTime.Date & " ~ " & VBA.DateTime.Time

End If

    AddNewComment.Value = ""

End Sub

Answer 1

为避免与字段底部消失的 cmets 混淆（如 cmets 中所述），您可以将最近的 cmets 保留在顶部。这样一来，您始终可以看到最新的内容，即使表单上的字段大小对于所有内容来说都太小了。

您还可以使用Nz 函数缩短整个代码，将未更新的Comments 中的空值替换为空字符串("")。

Private Sub Save_Comment_Click()

If IsNull(AddNewComment.Value) Then
    MsgBox ("Please Enter a Comment before clicking " & _
            "on the Save Comment button.")
Else
    Comments.Value = AddNewComment.Value & " ~ " & _
        VBA.DateTime.Date & " ~ " & VBA.DateTime.Time & _
        vbNewLine & vbNewLine & Nz(Comments.Value, "")
    AddNewComment.Value = Null
End If

End Sub