Erro ao Fechar Formulário no Access 2003

Boa tarde a todos,

Venho pedir ajuda para resolver o erro na imagem.

A DB que estou a desenvolver tem várias áreas, para aceder a cada área passa por um form principal, isto é, ao abrir o DB vai para um form principal, onde a partir deste form abre os forms das diversas áreas. Para mudar de área, tera sempre que voltar ao form principal, e aí, ou fecha a DB, ou entra em outra área.

Pois bem, o erro que reporto acontece sempre, e apenas quando se fecha um form específico e abre o form principal.

Fiz várias tentativas mas começo a estar sem soluções.

Já fiz todas as opções aqui sugeridas sem sucesso: sbp.ghubbell.com/w/index.php?title=Crash&diff=prev&oldid=2050

Imagem do erro:

Qualquer outra dica será bem vinda.

Obrigado

Olá Carlos,

Para saber concretamente, só mesmo vendo o código que tem nesse form e "Macros" que possa ter ao fechar o form.
Verifique todos os eventos.

Acontece nesse PC ou noutros também?
Verifico que usa o 2003 tem os ServicePacks instalados (Creio ser o SP3 o ultimo disponível)?
Já compilou o projeto? Apresenta erros?
Já tentou criar uma base de dados nova, importar todos os objectos compilar e testar.

Fica as dicas

Abraço

Obrigado ahteixeira pelo retorno,

Já verifiquei tudo isso.., inclusive as instruções que estão no link que mencionei.

Esqueci de mencionar também que nas worstations que usam o access 2007 o erro não acontece. Apenas acontece no access 2003.

Obrigado

Olá Carlos,

Se já fez todas as sugestões, só resta partilhar o form em questão para se tenta ver como está e o que se pode fazer para despistar o erro.

Abraço

Obrigado ahteixeira pelo retorno,

Tentei seleccionar as parte de interesse para enviar, e, curiosamente não dá erro.

Vou aguardar mais alguma dica, e vou fazendo outros testes sugeridos noutros sites.

Abraço

Olá Carlos,

Va adicionando os restantes e vá verificando, talvez descubra o conflito.

Abraço

Olá Carlos,

Como ficou a situação?
Conseguiu chegar a alguma conclusão?

Abraço

Ainda estou em testes,

Como no access 2007 não está a dar erro, tenho estado ocupado em resolver situações mais urgentes.

Darei feedback assim que tiver novidades.

Obrigado

Abraço

Boa tarde a todos,

Nas tentativas que foi fazendo para encontrar solução (sem sucesso) para o erro, verifiquei mais alguns detalhes:
- o erro acontece apenas ao fechar um determinado formulário;
- no access 2007 o erro não se verifica, apenas no 2003;
- o form em causa tem um "Controlo Separador" com 7 páginas, cada uma com um subform, à medida que vou removendo os SubForms, o erro deixa de existir, mas sem padrão, isto é, não acontece com a remoção do mesmo SubForm.

Deixo a imagem do evento de erros do microsoft office.

Obrigado

Olá Carlos,

Parece que está na última versão, confirme:


Situação complicada, mas vou repetir a dica:

Já criou uma base de dados nova, limpinha e importou os objetos dessa base de dados?
Se o erro permanecer, tente disponibilizar emexplo simples com o erro para se testar.

Abraço

Deixo um ótimo exemplo como reforço da importância de compartilhar o arquivo para que o auxilio seja preciso.
https://www.maximoaccess.com/t35908-resolvidoevento-ao-alterar-e-ou-depois-de-atualizar-nao-reagem#246526

Boa tarde a todos,

Obrigado pelas tentativas de ajuda.

Continuei os meus testes e pesquisas e cheguei a mais algumas conclusões:

Recapitulando: O Form em causa tem 7 SubForms, cada SubForm tem campos data, que é preenchido com este modelo calendário: [url=lebans.com/monthcalendar.htm]lebans.com/monthcalendar.htm[/url]

Para o seu funcionamento eu coloco em cada Form e SubForm os seguintes códigos:
1º Código:

Código:

Option Compare Database
Option Explicit
' This declares the MonthCalendar Class
Private mc As clsMonthCal

2º Código:

Código:

Private Sub Form_Load()
Set mc = New clsMonthCal
mc.hWndForm = Me.hWnd
mc.MaxSelectRangeofDays = 365
End Sub

3º Código:

Código:

Private Sub Form_Unload(Cancel As Integer)

If Not mc Is Nothing Then
    If mc.IsCalendar Then
        Cancel = 1
        Exit Sub
    End If

Set mc = Nothing
End If
End Sub

Posto isto, no campo que pretendo inserir a data, ao duplo click:

Código:

Dim blRet As Boolean
Dim dtStart As Date, dtEnd As Date
        
dtStart = Date
dtEnd = 0
        
blRet = ShowMonthCalendar(mc, dtStart, dtEnd)
              
If blRet = True Then
     Me.MeuCampo= dtStart
Else
     MsgBox "Hey - Esqueceu-se de Selecionar uma Data!", vbOKOnly, "Data não Selecionada?"
End If

Se eu remover o 1º e 2º código dos meus SubForms o erro desaparece..

No entanto tenho outros Forms com SubForms de igual modo a funcionar correctamente..

Alguma dica de como posso contornar a situação?

Obrigado

Olá a todos,

Carlos, monte um exemplo com um form e três subforms simples e verifique se dá erro.
Caso afirmativo, partilhe para se testar.

Abraço a todos

Obrigado ahteixeira pelo retorno,

Já fiz esse teste, fui retirando os SubForms e deixa de dar o erro, o problema é que não tem padrão, tanto deixa de dar o erro ao retirar 2 SubForms, como só deixa de dar erro ao retirar 4, e não acontece sempre com os mesmos SubForms.

Está difícil achar um padrão. E como só dá erro no A2003 ainda torna tudo mais complicado.

Vou continuar a fazer testes.

Abraço

Olá Carlos,

Eu tenho forma de testar em 2003.
Partilhe com todos os sub-forms, com dados de exemplo coerentes e diga quais os passos em que ocorre para testar e verificar uma solução.
Como verificou no tópico abaixo, como o exemplo rápidamente se conseguiu verificar o erro.
https://www.maximoaccess.com/t35908-resolvidoevento-ao-alterar-e-ou-depois-de-atualizar-nao-reagem

Abraço

Obrigado ahteixeira pelo retorno,

Acho que consegui uma versão com erro e apenas as partes envolvidas.

Não limpei os módulos, para não apagar algum que fosse importante.

Os módulos relacionados com os Forms são os que começam por: "fix_SIADAP"

Abraço

Olá Carlos,

Vou verificar agora.
Abri rapidamente no 2016 e também dá erro ao clicar no botao "stop".

a) Para não estar a analisar tudo, pode dar mais detalhes em que é utilizado este código?

Código:

Public Function RowNumber(UniqueKeyVariant As Variant) As Long

    Dim lngTemp As Long
    'On Error Resume Next
    lngTemp = colPrimaryKeys(CStr(UniqueKeyVariant))
    If err.Number Then
    lngRowNumber = lngRowNumber + 1
    colPrimaryKeys.Add lngRowNumber, CStr(UniqueKeyVariant)
    lngTemp = lngRowNumber
    End If
    RowNumber = lngTemp
    End Function

'Last Row of the sqlquary to reset count
'ORDER BY tableX.FieldX And ResetRowNumber()<>False;
'################################

b) Com base no exemplo que disponibiliza, qual o form que devo abrir e o que devo fazer para dar o erro.

Abraço

Obrigado ahteixeira pelo retorno,

O erro acontece ao fechar o MainForm "frm_SEFT_SIADAP3_1".

O código a que se refere serve para auto numerar uma coluna numa query que faz o reset sempre que é chamada, isto é, sempre que a query é executada a coluna auto numerada começa em 1, 2, 3, etc. A função é chamado na query "cst_SEFT_SIADAP_AreasObj".

Preciso dessa auto numeração para usar num DLookup que está no módulo "fix_SIADAP_AreasPercentagens".

Abraço

P.S. Entretanto retirei a função que perguntou, e o erro persiste, não será daí..

Olá Carlos,

Estou a "desmembrar", entretanto verifiquei que a base de dados está no formato 2000.


Uma vez que usa o 2003, sou da opinião que deve converter para 2002/2003.
Vou continuar a verificar.

Convertido

Olá Carlos,

O erro também dá no 2016, apenas não apresenta a mensagem que partilhou.
Estive a verificar e não dá se for fechado o formulário no "X" (Fechar) do próprio formulário principal.
Se mais algum colega do fórum também poder testar e ajudar a verificar.

Abraço

Obrigado ahteixeira pela ajuda.

É muito estranho este erro, já perdi umas horas valentes a tentar resolver o problema, mas não está fácil.

Vamos aguardar a ver se alguém tem mais alguma ideia.

Abraço

Olá Carlos,

Este tópico não se conseguiu chegar a nenhuma solução.
Creio que a melhor solução será mesmo a atualização para a versão 2007 com respetivo SP ou até mesmo o 2010.
Uma vez que a versão 2003 apesar de funcionar, está completamente obsoleta.

Abaço

Boa tarde ahteixeira,

Preciso continuar com esta versão.

Adiei o problema fechando o form no "X".

Mas terei que voltar à carga para resolver o problema um dia destes.

Obrigado