Question

我在一个只有一个用户的情况下运行数据库，每次点击单个单选按钮时我都会运行以下代码，它会给我留言

数据已更改另一位用户已编辑此记录和在尝试保存更改之前保存了更改。重新编辑记录。

此消息仅在第二次单击按钮后出现;一旦第三次点击它，值就会改变。

Private Sub radioNECC10000_Click()

Dim SQL As String

DoCmd.SetWarnings False
If (IsNull(Me.VendorNum.Value)) Then
    MsgBox ("Please select a vendor!")
Else
    If (Me.radioNECC10000 = True) Then
        SQL = "UPDATE tbleVendorRecord " & _
                 "SET NECC_10000 = 10000 " & _
               "WHERE Vendor_ID = " & VendorNum & " "
        DoCmd.RunSQL SQL
    Else
        SQL = "UPDATE tbleVendorRecord " & _
                 "SET NECC_10000 = 0 " & _
               "WHERE Vendor_ID = " & VendorNum & " "
        DoCmd.RunSQL SQL
    End If
End If

End Sub

Answer 1

感谢Ken White先前发布的帖子

"The data has been changed" error when stepping from main form into sub form
可能重复

我尝试将以下代码添加到更新后字段

中

Private Sub radioNECC10000_AfterUpdate()
    Me.Form.Requery
End Sub

已经工作，不再向我提供该消息

访问DB VBA数据冲突

1 个答案: