MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Erro ao Fechar Formulário

    avatar
    zcarloslopes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 161
    Registrado : 28/10/2010

    Erro ao Fechar Formulário Empty Erro ao Fechar Formulário

    Mensagem  zcarloslopes em 28/5/2019, 15:09

    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:Erro ao Fechar Formulário Erroac10

    Qualquer outra dica será bem vinda.

    Obrigado


    Última edição por zcarloslopes em 13/6/2019, 14:42, editado 1 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  ahteixeira em 28/5/2019, 16:18

    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
    avatar
    zcarloslopes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 161
    Registrado : 28/10/2010

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  zcarloslopes em 28/5/2019, 16:52

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  ahteixeira em 28/5/2019, 17:38

    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
    avatar
    zcarloslopes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 161
    Registrado : 28/10/2010

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  zcarloslopes em 29/5/2019, 15:46

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  ahteixeira em 29/5/2019, 16:02

    Olá Carlos,

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

    Abraço
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  ahteixeira em 31/5/2019, 08:54

    Olá Carlos,

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

    Abraço
    avatar
    zcarloslopes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 161
    Registrado : 28/10/2010

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  zcarloslopes em 31/5/2019, 16:52

    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
    avatar
    zcarloslopes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 161
    Registrado : 28/10/2010

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  zcarloslopes em 3/6/2019, 16:16

    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

    Erro ao Fechar Formulário Erroac12
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  ahteixeira em 6/6/2019, 16:34

    Olá Carlos,

    Parece que está na última versão, confirme:
    Erro ao Fechar Formulário 062

    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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 652
    Registrado : 22/11/2016

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  IvanJr. em 7/6/2019, 11:46

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


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    avatar
    zcarloslopes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 161
    Registrado : 28/10/2010

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  zcarloslopes em 13/6/2019, 14:41

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  ahteixeira em 14/6/2019, 08:52

    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
    avatar
    zcarloslopes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 161
    Registrado : 28/10/2010

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  zcarloslopes em 14/6/2019, 10:31

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  ahteixeira em 14/6/2019, 11:16

    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.
    http://www.maximoaccess.com/t35908-resolvidoevento-ao-alterar-e-ou-depois-de-atualizar-nao-reagem

    Abraço
    avatar
    zcarloslopes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 161
    Registrado : 28/10/2010

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  zcarloslopes em 14/6/2019, 12:07

    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
    Anexos
    Erro ao Fechar Formulário AttachmentHFAR-SEFT_Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.2 Mb) Baixado 2 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  ahteixeira em 14/6/2019, 15:04

    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
    avatar
    zcarloslopes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 161
    Registrado : 28/10/2010

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  zcarloslopes em 14/6/2019, 15:55

    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í..
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  ahteixeira em 14/6/2019, 16:07

    Olá Carlos,

    Estou a "desmembrar", entretanto verifiquei que a base de dados está no formato 2000.
    Erro ao Fechar Formulário 065

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

    cheers
    avatar
    zcarloslopes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 161
    Registrado : 28/10/2010

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  zcarloslopes em 14/6/2019, 16:11

    Convertido Wink
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  ahteixeira em 18/6/2019, 13:49

    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
    avatar
    zcarloslopes
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 161
    Registrado : 28/10/2010

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  zcarloslopes em 18/6/2019, 18:03

    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

    Conteúdo patrocinado

    Erro ao Fechar Formulário Empty Re: Erro ao Fechar Formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 16:44