[Resolvido]Como cancelar eventos do Subformulário

Prezados,
Tenho um formulario que contem um subformulario que contém mais dois subformulários.
Em certos momentos preciso dar um DoCmd.GoToRecord , , acNewRec que dispara vários eventos nos subformulários.
É possível controlar estes eventos? isto é, como fazer para que certos eventos sejam cancelados em casos específicos?
A paz

Assim sem maiores dados fica meio complicado. Exemplifique para uma maior compreensão por gentileza.

A minha pergunta foi direta.
Como cancelar eventos nos subformularios?

A paz

Amigão, existem diversos casos que podem ser parecidos mas tem ação e desfecho diferentes, bem como a técnica para lidar com cada um pode se distinta. Você se refere a que evento? Eventos criados no vba pelo programador utilizando a aba Eventos das propriedades do formulário? Eventos vindo de condições dos campos da tabela ligada ao formulário?

Eventos que são disparados automaticamente pelo access.
Ex:
Quando você sai do registro cujos dados foram alterados, mas antes de entrar no próximo registro, os eventos AoSair e AoPerderFoco ocorrem para o controle que possui o foco. Esses eventos ocorrem após os eventos AntesDeAtualizar e ApósAtualizar para o formulário, da seguinte maneira:

AntesDeAtualizar (formulário) Seta ApósAtualizar (formulário) Seta AoSair (controle) Seta AoPerderFoco (controle) Seta NaSaídaDoRegistro (formulário) Seta NoAtual (formulário)

Oque eu pergunto é se eu posso bloquear alguns destes eventos e como.

A paz

O formulário tem um evento "Ao ocorrer erro" que pode ser usado. Para isso, você precisa saber a identificação do evento para colocar na condição e ao satisfazer essa condição, usa um acDataErrContinue para seguir sem mensagens de erro.

Você tem algum exemplo de como fazer isto?
Vou ter que forçar um erro?
Não consegui entender.

A paz

Eu pensei que estivesse falando de erros de campo obrigatório não preenchido, essas coisas. Mas, na prática, o que acontece no formulário ou na tabela quando você vai para um novo registro? Porque geralmente, a não ser que já tenhamos começado a preencher um registro em um formulário vinculado e tenha algum campo obrigatório nulo, o foco vai efetivamente para um novo registro sem acontecer mais nada.

Quando este foco vai para um novo registro, o access dispara alguns eventos (se os mesmos possuírem código escrito).

O que eu quero é poder bloquear estes eventos se necessário.

A paz

Uma ideia pode ser, talvez, você colocar uma variável no início do módulo de nome CancelaEvento por exemplo, do tipo String. Você colocar essa variável logo depois da primeira linha do módulo ou depois da segunda, caso a segunda seja Option Explicit:

Option Compare Database
Option Explicit
Dim CancelaEvento As String

Você pode, agora, usar um botão para navegar para um novo registro e colocar antes de ir para o novo registro:

CancelaEvento = "Sim"

Nos outros eventos que você colocar, pode colocar uma condição para ser executado caso CancelaEvento seja diferente de Sim. Lembrando de, depois de tudo, voltar a variável para algo diferente de Sim:

If CancelaEvento <> "Sim" Then
     Blá blá blá
Else
     CancelaEvento = "Nao"
End If

Quando você clicar no botão para ir para novo registro, a variável receberá o "Sim". Nos outros eventos que não deverão ser executados nesse momento, não serão porque CancelaEvento é Sim e mudará ele para Nao para poder reabilitar os outros eventos.

Se preferir, pode usar a variável do tipo Boolean e colocar True e False no lugar de "Sim" e "Nao".

Essa variável tem que ser publica?

Devo colocar, quando CancelaEvento="SIM" um exit sub ?

A paz

A variável não tem definição de privada ou pública. Como é apenas uma linha, você pode digitá-la nos seus formulário. O Exit Sub não é necessário porque a instrução só será executada caso a variável tenha um texto diferente de Sim.

Muito obrigado
A paz