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

    Consulta e AbrirRelatorio

    avatar
    marcelo.esurb
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 23/12/2019

    Consulta e AbrirRelatorio Empty Consulta e AbrirRelatorio

    Mensagem  marcelo.esurb em 15/1/2020, 20:16

    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"
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Consulta e AbrirRelatorio Empty Re: Consulta e AbrirRelatorio

    Mensagem  DamascenoJr. em 15/1/2020, 21:38

    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.


    .................................................................................
    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
    marcelo.esurb
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 23/12/2019

    Consulta e AbrirRelatorio Empty Consulta e AbrirRelatorio

    Mensagem  marcelo.esurb em 16/1/2020, 14:00

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 23/12/2019

    Consulta e AbrirRelatorio Empty Consulta e AbrirRelatorio

    Mensagem  marcelo.esurb em 20/1/2020, 13:56

    Bom dia, Infelizmente, continuou do mesmo jeito.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Consulta e AbrirRelatorio Empty Re: Consulta e AbrirRelatorio

    Mensagem  DamascenoJr. em 21/1/2020, 00:24

    Anexe seu projeto para análise.


    .................................................................................
    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
    marcelo.esurb
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 23/12/2019

    Consulta e AbrirRelatorio Empty Consulta e AbrirRelatorio

    Mensagem  marcelo.esurb em 21/1/2020, 12:05

    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.
    Anexos
    Consulta e AbrirRelatorio Attachmentsyscontcompras.zip.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.3 Mb) Baixado 9 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Consulta e AbrirRelatorio Empty Re: Consulta e AbrirRelatorio

    Mensagem  DamascenoJr. em 9/2/2020, 01:45

    Eu refiz o formulário a partir de um novo e o erro não ocorreu mais.
    Anexos
    Consulta e AbrirRelatorio AttachmentSYS Controle de Compras.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.7 Mb) Baixado 18 vez(es)


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

      Data/hora atual: 1/6/2020, 05:51