MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    Erro ao Fechar Formulário no Access 2003

    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Erro ao Fechar Formulário no Access 2003

    Mensagem  zcarloslopes 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 no Access 2003 Erroac10

    Qualquer outra dica será bem vinda.

    Obrigado


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


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  Alvaro Teixeira 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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  zcarloslopes 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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  Alvaro Teixeira 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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  zcarloslopes 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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  Alvaro Teixeira 29/5/2019, 16:02

    Olá Carlos,

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

    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  Alvaro Teixeira 31/5/2019, 08:54

    Olá Carlos,

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

    Abraço
    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  zcarloslopes 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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  zcarloslopes 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 no Access 2003 Erroac12
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  Alvaro Teixeira 6/6/2019, 16:34

    Olá Carlos,

    Parece que está na última versão, confirme:
    Erro ao Fechar Formulário no Access 2003 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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  zcarloslopes 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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  Alvaro Teixeira 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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  zcarloslopes 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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

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

    Abraço
    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  zcarloslopes 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 no Access 2003 AttachmentHFAR-SEFT_Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.2 Mb) Baixado 15 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  Alvaro Teixeira 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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  zcarloslopes 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í..
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  Alvaro Teixeira 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 no Access 2003 065

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

    cheers
    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  zcarloslopes 14/6/2019, 16:11

    Convertido Wink
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  Alvaro Teixeira 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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  zcarloslopes 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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  Alvaro Teixeira 29/5/2020, 10:09

    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
    avatar
    zcarloslopes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  zcarloslopes 29/5/2020, 14:36

    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

    Conteúdo patrocinado


    Erro ao Fechar Formulário no Access 2003 Empty Re: Erro ao Fechar Formulário no Access 2003

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 22:57