Question

我试图做一个简单的事情，也许有人可以帮助，

我要检查它通过用户输入，如果它已经在表中存在的值，如果不是我想进入强制改变书的名字。 这里是我的代码，以检查是否存在：

Private Sub Item_BeforeUpdate(Cancel As Integer) 
    If Volume = DLookup("[Volume]", "[Books]", "[Book_name]='" & [Item] & "'") Then 
     x = MsgBox("Book already exist", vbOKOnly) 
    End If 
End Sub 

现在，我应该怎么写，迫使用户改变本书的名字（不deletting文本）

非常感谢！

Answer 1

您可以通过将取消变量设置为true来取消更新。 的Msdn doc末尾的示例也显示了一个示例。

Private Sub Item_BeforeUpdate(Cancel As Integer) 
    If Volume = DLookup("[Volume]", "[Books]", "[Book_name]='" & [Item] & "'") Then 
     x = MsgBox("Book already exist", vbOKOnly) 
     Cancel = True 'do not update give the user another try 
    End If 
End Sub