[Resolvido]erro 2501 A ação openForm foi cancelada quem sabe resolver

oi a todos

de uma hora para outrra apareeu nessa mensagem: erro 2501 A ação openForm foi cancelada no meu aplicativo confirmo a mensagem e o Aplicativo também fecha

aí olhando nesse tópico https://www.maximoaccess.com/t13424-resolvidoinibir-a-mensagem-a-acao-open-form-foi-cancelada#103220
o JPaulo dá essa Dica que resolveu o problema do Colega Harisohn

fiz exatamente a mesma coisa e não resolveu
no Evento ao Ocorrer o erro do Formulário coloquei assim:

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

Olá Roberto,

Compartilhe aqui uma cópia do bd para análise e solução do problema.

Att,
Alexandre Fim

é muito complicado   postar essa parte pois tem envolvimento e dependencia de inumeros objetos eu teria que postar todo o aplicativo que não será possível

e não dá nem pra mim editar criar um exemplo pra demonstrar esse problema pois nem sei de onde veio esse erro

Roberto,

No seu código, comente o procedimento abaixo:

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

Em seguida, execute o formulário que está gerando o erro, e quando aparecer a mensagem do erro, clique no botão "Depurar" da mensagem, e em segui irá apontar a linha do código que está gerando o erro.
FAz o print e manda aqui para analisarmos.

Valeu

já está assim como demonstro na mensagem 1, já coloquei no evento do formulário que está dando esse problema
dessa maneira:

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

masc ontinua dando o mesmo problema, mas, pra dizer que não influenciou em nada influenciou sim quando abro o aplicativo no modo designer aí abro o o formulário sem problemas,

de onde apareceu esse erro?

Não é isso.
Pedi pra você comentar o código. Assim:

Código:



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



Desta forma, o erro irá ocorrer em alguma linha, e ai quando aparecer a mensagem de erro, clique em "Depurar" e manda o print do código com o erro.

É isso

Att,

FIM

amigo se fosse assim era fácil a mensagem só aparece com o botão de ok e o botoão vermelho de fechar, não tem o botão de depurar

Abra o sistema no modo estrutura e execute o formulário.
Provavelmente, vai aparecer a caixa de mensagem com o botão de Depurar.
Ou coloque um breakpoint no botão OK e Depurar linha-a-linha pra ver onde gera o erro.

abrindo no modo estrutura e em seguida abrindo o formulário aí não aparece mais a mensagem

Aí que não pra entender, já compilei depurei eestá tudo correto

o erro só aparece quando roda normal

Boas....


Roberto Batista Alves, coloca esse código no evento ao abrir do teu sub formulário e não no formulário principal.
on error goto fim

fim:
if err.number =2501 then resume next
end if

O formulário principal é o que abre e também já coloquei no evento ao abrir e não deu certo também

Roberto,

No código do formulário em questão, no início vc está usando "Option Explicit" e "Option Database" ?
O Option Explicit te obriga declarar as variáveis do form...talvez alguma variável esteja gerando algum erro também.

não amigo não é nenhuma coisa nem outra, o causador do problema é uma tabela que informa o caminho do formulário a ser aberto, e nela não sei como foi alterado o nome do formulário pra ser aberto então causou toda essa confusão,

meu muito obrigado a todos consegui analisar por horas o problema e consegui sozinho aqui achar o defeito, por mais que se esforçassem não iam consegui achar o problema pois não estariam vendo o projeto

abraço a todos que me ajudaram

A constar, esse "erro" ocorre porque uma abertura foi cancelada. E ocorre pra quem chamou (podendo estar o chamador em um módulo ou formulário). A tratativa do erro então deve ser feita pra quem chamou a abertura, e não no formulário que vai ser aberto.

extamente isso só vim perceber isso depois de muita analise, pois faz muito tempo em que desenolvi esse apliativo e não me lembrava mais dessess pro menores
brigadão a todos