MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    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 Qua Jan 15, 2020 8:16 pm

    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 : 2137
    Registrado : 22/11/2016

    Consulta e AbrirRelatorio Empty Re: Consulta e AbrirRelatorio

    Mensagem  DamascenoJr. em Qua Jan 15, 2020 9:38 pm

    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 Qui Jan 16, 2020 2:00 pm

    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 Seg Jan 20, 2020 1:56 pm

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

    Respeito às Regras 100%

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

    Consulta e AbrirRelatorio Empty Re: Consulta e AbrirRelatorio

    Mensagem  DamascenoJr. em Ter Jan 21, 2020 12:24 am

    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 Ter Jan 21, 2020 12:05 pm

    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 10 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Consulta e AbrirRelatorio Empty Re: Consulta e AbrirRelatorio

    Mensagem  DamascenoJr. em Dom Fev 09, 2020 1:45 am

    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 21 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: Dom Ago 09, 2020 12:16 pm