Consulta e AbrirRelatorio

Boa tarde Amigos, Estou com um novo problema, e preciso de ajuda, Criei um formulário atribui a consulta com alguns critério com barra de progresso, esta indo tudo muito bem, mas do nada começou a aparecer um erro, vou colocar a tela com o mesmo. os critério no timer ficou assim


     Dim varTempo As Integer
       txtTempo = 1 + varTempo + txtTempo
       
   Select Case txtTempo
   
       Case 1
       p1.Visible = True
       lblProgresso.Caption = "10%"
       Case 2
       p2.Visible = True
          lblProgresso.Caption = "20%"
       Case 3
       p3.Visible = True
          lblProgresso.Caption = "30%"
       Case 4
       p4.Visible = True
          lblProgresso.Caption = "40%"
       Case 5
       p5.Visible = True
          lblProgresso.Caption = "50%"
       Case 6
       p6.Visible = True
          lblProgresso.Caption = "60%"
       Case 7
       p7.Visible = True
          lblProgresso.Caption = "70%"
       Case 8
       p8.Visible = True
          lblProgresso.Caption = "80%"
       Case 9
       p9.Visible = True
          lblProgresso.Caption = "90%"
       Case 10
       p10.Visible = True
          lblProgresso.Caption = "100%"
         DoCmd.OpenReport "RelAutorizacaoFornecimento", acViewPreview, , "AutoriFornecimento = " & Me.AutoriFornecimento
     
       Case Else
     

Como disse do nada começou o erro. imagem anexa "tela do erro"

Conforme a mensagem, o erro está ocorrendo no evento "Ao liberar mouse", ou do seu formulário ou do seu relatório. Verifique em qual deles existe código atribuído neste evento. Marque um ponto de interrupção e acompanhe a execução do código pressionando a tecla F8 para descobrir qual linha poderia estar causando problemas.

Bom dia!
Obrigado mestre, estarei verificando e posto o result aqui.
Deus abençoe.

Bom dia, Infelizmente, continuou do mesmo jeito.

Anexe seu projeto para análise.

Bom dia Damasceno, anexo o projeto. assim Se vc puder também (sem querer ser abusado é claro) dar uma olhada no form "Almoxarifado">"Cadastro de Fornecdor" {neste form eu gostaria de quando consultado ele abrisse dentro do proprio form o cnpj ou razão desejada, mas não consegui, ficou então 'O usuário clica na list box e é redirecionada para o form de Cadastro ficou capenga e meia boca}

Mas se não puder não tem problemas pois o desejo meu é na abertura do form no evento informado anteriormente. e esta no form "AF_AutoriFornecimento" . Add itens, faz uma consulta na tabela "ItensProposta" e traz as informações conforme o fornecedor e o numero de processo.


Desculpe a desorganização dos campos, estou criando para depois formatar o layout. Como sempre Deus Abençoe a todos da família MaximoAccess.

Eu refiz o formulário a partir de um novo e o erro não ocorreu mais.