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

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

1 个答案: