MS Access VBA - 将字符串附加到文本框，更新时重新播放

Question

我正在尝试创建一个MS Access表单，用户可以在文本框中输入注释（输入），并且每次都会将文本附加到一个灰色的摘要框中，该框不可编辑。

输入注释将自动格式化为包含日期时间戳和用户名，使用以下代码：

Private Sub IncidentDescriptionInput_AfterUpdate()
    Dim Output As String
    Output = Me!IncidentDescriptionInput.Value
    Output = Output & " " & Format(Now(), "dd-mmm-yy") & "/" & Format(Now(), "hh:nn") & "/" & Environ("UserName") & ";"
    Me!IncidentDescriptionInput.Value = Output
End Sub

Answer 1

您当前的代码已经演示了实现目标所需的技术：

• 将表单控件保存的值更新为AfterUpdate事件的事件处理程序的一部分。您已经使用Me!IncidentDescriptionInput.Value = Output在现有代码中执行此操作
• 检索表单控件的现有值以便与另一个字符串连接。您已经使用Output = Me!IncidentDescriptionInput.Value在现有代码中执行此操作
• 将表单控件的现有值与另一个字符串连接在一起。您已经使用Output = Output & " " & Format(Now(), "dd-mmm-yy") ...在现有代码中执行此操作

因此，您已经拥有了实现所需结果所需的构建块。

假设摘要框名为IncidentDescriptionSummary，则代码可能会被修改为：

Private Sub IncidentDescriptionInput_AfterUpdate()
    Dim Output As String
    Output = IncidentDescriptionInput & " " & Format(Now(), "dd-mmm-yy\/hh:nn\/") & Environ("UserName") & ";"
    IncidentDescriptionInput = Output
    IncidentDescriptionSummary = IncidentDescriptionSummary & vbCrLf & Output
End Sub