Ms access 如何在Access中创建带有时间和日期戳的注释框

Access 2010中有一个名为Contacts的模板。表单上有一个评论框，下面有一个文本框和一个按钮。当您在文本框中输入文本并单击按钮时，它会将文本添加到注释框并在其上加盖时间/日期戳。如果您再次这样做，它会在注释框中保留旧文本，并在其下方添加新文本

我对access还很陌生，但我希望能够将此功能添加到我的数据库中

---

所以我在表格和表单上有一个备注字段，在表单上有一个输入文本框和按钮。有人知道我从这里做了什么来获得该功能吗？

我发现我必须使用按钮的On_Click属性并向其添加VBA代码

Private Sub cmdAddNote_Click()
 Dim MyDate As String

 MyDate = Now()


 Form_ClientF.txtNotes = vbCrLf + MyDate + vbCrLf + vbCrLf + Form_ClientF.txtAddNote + vbCrLf + vbCrLf + Form_ClientF.txtNotes

 Form_ClientF.txtAddNote = ""

End Sub

---

下面是另一个如何做到这一点的例子。我有以下表格：

使用以下代码：

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

  If (IsNull(txtComment.value)) Then
    txtComment.value = txtNewComment.value & " ~ " & _
               VBA.DateTime.Date & " ~ " & VBA.DateTime.Time
  Else
    txtComment.value = txtComment.value & _
               vbNewLine & vbNewLine & _
               txtNewComment.value & " ~ " & _
               VBA.DateTime.Date & " ~ " & VBA.DateTime.Time
  End If

  txtNewComment.value = ""
End Sub

---

这样做的目的是验证新注释中是否包含某些内容。如果是这样，那么它会检查注释，看看它是否已经包含了一些内容。如果它这样做了，那么它会将新注释附加到它，否则它只会将新注释分配给它。日期和时间将添加到每条注释的末尾。

您知道如何编写VBA代码吗？到目前为止你试过什么？您是否查看了联系人模板中的代码以了解他们是如何做到这一点的？当数据库模板打开时，左侧导航窗口中会显示表、查询、表单和报告。我没有看到任何宏，或者它们会在其他地方吗？当我点击顶部的VB编辑器时，没有代码。当我点击“运行宏”时，下拉菜单中没有宏，只是发现它是一个web模板，这可能是原因。我不知道我必须使用VBA代码，你知道我要做什么才能获得这个功能吗？我对这东西有点生疏。