[Resolvido]Cancelar um evento a partir de um outro formulário

Olá gente, boa noite a todos do Forum...

Eu queria saber se tem como eu cancelar um evento de um formulário através de outro. Exemplo: Eu tenho 03 formulários(PesDoc, Editar e PesBairro). Para fechar o formulário Editar, no botão Fechar eu utilizo dois eventos, o DoCmd.Close(que fecha o Form Editar) e também o DoCmd.OpenForm "PesDoc"(que abre o form PesDoc).
Porém, quando eu estou no formulário PesBairro e abro o Formulário Editar eu queria que cancelasse a abertura do Form PesDoc. Tem jeito???

Desde já agradeço a atenção de todos...

bjs

Se puder poste a parte do BD para que vejamos este processo.

Abraços.

Olá meu querido, tudo bem com vc???

Então, como eu disse anteriormente, eu tenho 03 formulários(PesDoc, Editar e PesBairro). Para fechar o formulário Editar, no botão Fechar eu utilizo dois eventos, o DoCmd.Close(que fecha o Form Editar) e também o DoCmd.OpenForm "PesDoc"(que abre o form PesDoc).
Porém, quando eu estou no formulário PesBairro e abro o Formulário Editar eu queria que cancelasse a abertura do Form PesDoc. Vc pode me ajudar???
Desde já te agradeço muuuuuuuuuuuuuuuuuuuuuito sua atenção... bjsssss

http://speedy.sh/h8aU6/BD.accdb

Não vi fomulário com o nome: Editar e nem PesDoc...


Esclareça por gentileza querida...

Cumprimentos.

Oh meu amor me perdoe!!!

Quando eu postei minha dúvida, era apenas fictício, porém, quando postei o BD tive que colocar os nomes corretos. Então:

PesDoc = PesSelect e Editar = EditarOficio

Me perdoe tá???

bjs

Sem problemas...

Cite por gentileza a ordem de abertura e/ou fechamento dos forms e o que espera que aconteça...


Cumprimentos.

Form:

1 - Com o form PesSelect aberto clico para abrir o Form EditarOficio e quando fecho o form EditarOficio abre o Form PesSelect.

2 - Com o form PesSelect aberto clico para abrir o form PesBairro, e no form PesBairro abro o FormEditarOficio e como no botão fechar Form EditarOficio além de fechar o mesmo, abre também o FormPesSelect, e eu não queria que abrisse o PesSelect eu queria que voltasse para o PesBairro.

blz???

Mais ou menos.. hehehe

Cite os botões...

Não vi botão editar Oficio no form pesSelect


Abraços...

A primeira parte eu entendi...

- Abre o PesSelect >>> CLica na lista e abre EditarOficio...
- Fecha editar Oficio >>>< Abre PesSelect
- Abre Pesquisa por Bairro...

No pesquisa por Bairro Não vi o local onde clica pra abrir o EditarOficio...

Explique

Com o foco no nome do aluno clica em Enter e ele abre ok???

Ok...

O que faremos?

Simples... implantaremos um módulo para verificar se o form PesBairro está aberto, caso sim... fecha o oficio e não abre o frm PesSelect...


Um minuto querida...

Crie um módulo e nomeei de mdlDiversos... ou se ja tiver um módulo para códigos diversos cole este código no mesmo:

'*****************************************************************************************
'Verifica se um determinado formulário se encontra aberto
Function IsLoaded(ByVal strFormName As String) As Boolean
On Error GoTo Err_IsLoaded

Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If

Exit_IsLoaded:
Exit Function

Err_IsLoaded:
MsgBox Err.Description, , " Service Operations"
Resume Exit_IsLoaded

End Function
'*****************************************************************************************

e no form editar, no botão Salva e fecha:


Private Sub Comando29_Click()
DoCmd.Close
If IsLoaded("PesBairo") Then Exit Sub
DoCmd.OpenForm "PesSelect"
End Sub

Assim caso o frmPesBairro se encontre aberto encerra a sub.


Cumprimentos.

Codigo Corrigido:

Private Sub Comando29_Click()
DoCmd.Close
If IsLoaded("PesBairro") Then Exit Sub
DoCmd.OpenForm "PesSelect"
End Sub

Mas menino eu já ia postar que nao tinha dado certo... rsrsrsrsrs Mas vc é muito bom mesmo hein!!! Perfeito fico muuuuuuuuuuuuito agradeçida, brigadão mesmo...

Bessitos!!!!

Mas me tira uma dúvida??? Se eu quizer usar esse mesmo esquema em outros forms posso???

Enviei-lhe mp, aguardo resposta.

O Fórum agradece o Retorno.

Abraços.

PS.... Pode sim.. no que desejar e ser útil deves utilizar o código.

Desculpa mas o que é mp??? rsrsrs

Menssagem Privada... No menu do Fórum...

è uma forma de comunicação ente usuários quando trata-se de assunto particular entre os mesmos.

Abraços.

Como impedir de prosseguir o código

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
If DCount("*", "cns_categoria") = 0 Then
MsgBox "Não há dados para Categoria especificada", vbOKOnly + vbCritical, "Sem dados"

Cancelar aqui o evento se não houver dados

End If
If Me!TotalLucro > maior Then maior = Me!TotalLucro

End Sub