[求助]屏蔽ACCESS的提示！！！

sun2465

在事件中增加代码，包括DoCmd.SetWarnings False，还是解决不了！

sea.er

看看这个对你有用没，忘了谁的了

sun2465

还是不能解决问题！

sun2465

各位大虾帮帮我！！！

eio

增加一个系统报错：
'去除系统的报错信息:
Private Sub FORM_Error(DataErr As Integer, Response As Integer)
　　Response = acDataErrContinue
End Sub

sun2465

谢谢sea.er！你给的例子中已经包含了我需要的，但是我没有仔细测试！
谢谢eio！你给出了我所需要的！！

ADAM

我曾寫過如下代碼,你試試看.

Private Sub 識別碼_NotInList(NewData As String, Response As Integer)

    ' 提示使用者確認希望新增新值。
If MsgBox("未定義此識別碼。要新增嗎？", vbOKCancel) = vbOK Then
        
    Me.識別碼.Undo
    DoCmd.OpenForm "OITEM", acFormDS
    Else
    Me.識別碼.Undo
    End If
   
    Response = acDataErrContinue
      
End Sub

sun2465

谢谢ADAM ，这个方法没有问题！
我已经解决了！

apple1

寫此組合方塊的after update事件，先用dlookup（）語句把值取出，再作判斷