去除系統的報錯信息

 

1. Private Sub FORM_Error(DataErr As Integer, Response As Integer)
2. 　 　　Response = acDataErrContinue 
3. End Sub