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