vba - 在访问 vba 中打开表单时，行被修改

Question

我需要准备一个屏幕，作为 Facebook 上使用的评论屏幕。我必须在访问表格上准备它。用户将在其中输入评论，并且应该将其存储在带有 PartNumber 和 ItemNumber 的表中。最近的评论也应该显示在同一个表单上。

我准备了一个表格，其中包含 Recordsource 作为我需要保存评论的表格。并编写了一个点击事件，当用户点击按钮时，评论将保存在表格中。但问题是，如果我在文本框中键入值并关闭表单，则在不单击该按钮的情况下，表格仍然会在单击之前用值更新。下面是代码

Private Sub Post_cmnt_Click() 
    Me.RecordSource = "Part_GeneralPartComment" 
    Call FromForm_Add 
End Sub

Answer 1

关闭绑定表单时，Access 会自动提交挂起的更改。如果您想防止这种情况发生，您可以添加以下代码作为On Close表单的事件处理程序：

Private Sub Form_Close()
On Error GoTo Form_Close_error
DoCmd.RunCommand acCmdUndo
Exit Sub
Form_Close_error:
If Err.Number <> 2046 Then
    ' error was something other than "The command or action 'Undo' isn't available now."
    Err.Raise Err.Number
End If
End Sub