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

Question

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

我很擅长访问，但我希望能够将此功能添加到我的数据库中。

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

Answer 1

想通了我必须使用按钮的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

Answer 2

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

使用以下代码：

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

这样做可以验证新评论中有什么内容。如果是这样，那么它会检查Comment以查看它是否已包含某些内容。如果是，则将新注释附加到它，否则它只是为其分配新注释。日期和时间将添加到每条评论的末尾。