0

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

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

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

4

2 回答 2

1

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

在此处输入图像描述

使用以下代码：

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

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

于 2013-10-03T15:28:44.240 回答
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
于 2013-10-03T15:19:56.003 回答