[Resolvido]Inibir a mensagem "A ação open form foi cancelada"

On Error GoTo TrataErro
Dim MSG As String
Dim MsgErro As String
'Se o formulário pai não estiver aberto não permite adicões
If IsLoaded("frmPais") Then
  Me.AllowAdditions = True
Else
  Cancel = True
End If

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If Err.Number = 2501 Then Resume Next
End Sub