Question

我正在研究“问题跟踪器”访问数据库，在该数据库中，用户通过表单在其中输入数据，创建新表单并编辑表单。

我在我的编辑表单上有一个注释部分，出于查看目的，我被要求保持锁定状态。因此，用户只能查看评论。我在下面还有一个框，该框必须“添加”或将数据添加到带有时间和用户标记的注释部分。

我的方法是创建一个vba代码，该代码将允许用户输入数据，一旦输入将显示在锁定的注释部分。用户正在通过“编辑”表单进行工作时。

我对访问VBA还是很陌生，但是不幸的是，我找不到网上了解的任何内容。

下面是一些代码的使用，发现可以在线搜索。我有但可以弄清楚如何将其追加（或添加）到现有列。它运行良好，但是我希望添加的数据值没有显示在任何地方？

Private Sub Add_Click()

Dim StrSQL As String
Dim addComments As String

' where addcomment.value is the value desire to append
addCommentStr = Me!addComment.Value

'where IssueTrack is Table, AdditionalComments is column
StrSQL = "INSERT INTO IssueTracker(AdditionalComments) VALUES ('" & 
addCommentStr & "' );"

DoCmd.SetWarnings False
DoCmd.RunSQL StrSQL
DoCmd.SetWarnings True

MsgBox ("Comment Added")

End Sub

Answer 1

您不会只是继续在同一记录上附加文本。你会在哪里结束？

因此，跳过所有代码并创建绑定到表的表单。

日期只有一个字段。将其 DefaultValue 设置为：Now（）

将表单的属性 AllowEdits 设置为：False

将数据从表单追加到列

1 个答案: