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

    [Resolvido]Código ineficaz

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Código ineficaz Empty [Resolvido]Código ineficaz

    Mensagem  Luís Antunes 22/3/2018, 17:34

    E código em baixo esta ligado a uma combox com dua opções:
    1 Abre o MapaRubricas e abre de uma forma correcta.
    2 Abre o MapaDespesas e abre mas sem dados
    Penso que o código tem algum problema que não sei identificar.

    Código:
    Private Sub Impressao_AfterUpdate()
        If Impressao.Text = "MapaRubricas" Then
         If MsgBox(("Deseja Imprimir O caixa Mensal"), vbYesNo, "Excluindo") = vbYes Then
        DoCmd.OpenReport "Rel_CaixaMensal ", acViewPreview, , "[Frm_Lancamento]![[Impressao]" = "MapaRubricas"
          Else
            DoCmd.CancelEvent
            MsgBox ("Impressão cancelada"), , "Cancelado"
       End If
       End If
      If Impressao.Text = "MapaDespesas" Then
       If MsgBox(("Deseja Imprimir O Mapa de Despesa"), vbYesNo, "Excluindo") = vbYes Then
         DoCmd.OpenReport "Rel_MapaDespesa", acViewPreview, , "[Frm_Lancamento]![Impressao]" = " MapaDespesas"
           Else
            DoCmd.CancelEvent
            MsgBox ("Impressão cancelada"), , "Cancelado"
       End If
         End If
    End Sub

    Luís Antunes


    Última edição por Alexandre Neves em 22/3/2018, 20:40, editado 2 vez(es) (Motivo da edição : corrigido título, de Código inificaz para Código ineficaz, para ajuda na busca)
    good guy
    good guy
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1305
    Registrado : 05/02/2010

    [Resolvido]Código ineficaz Empty Código inificaz

    Mensagem  good guy 22/3/2018, 19:43

    Olá Luís,

    A princípio não dá pra saber, precisaria ver o aplicativo. Posta uma amostra do seu bd para analisarmos.
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Código ineficaz Empty Re: [Resolvido]Código ineficaz

    Mensagem  Luís Antunes 22/3/2018, 23:09

    Guy
    Grato pelo interesse.
    Aqui vai em anexo a Bd.
    A combox está no formulário frm_Lancamento
    Luís Antunes
    Anexos
    [Resolvido]Código ineficaz AttachmentReport.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (73 Kb) Baixado 18 vez(es)
    good guy
    good guy
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1305
    Registrado : 05/02/2010

    [Resolvido]Código ineficaz Empty Código ineficaz

    Mensagem  good guy 23/3/2018, 19:26

    Olá Luís,

    Existe uma referência em alguns campos ao formulário Frm_Despachos, mas ele não existe neste seu bd.
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Código ineficaz Empty Re: [Resolvido]Código ineficaz

    Mensagem  Luís Antunes 23/3/2018, 19:49

    Gui
    O Form Despachos só existe para actualizar dados.
    Ex: A data que o funcionário pôe no documento, os despachos de autorização necessários no relatório.
    Quando eu abro o relatório o form Despachos já está aberto,para descarregar a informação ao relatório, Será por isso?
    Vou testar

    Luís Antunes
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Código ineficaz Empty Re: [Resolvido]Código ineficaz

    Mensagem  Luís Antunes 23/3/2018, 21:30

    Gui
    Ja Retirei todas as ligações ao form Despachos e a abertura do relatório continua na mesma.
    Luís Antunes
    good guy
    good guy
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1305
    Registrado : 05/02/2010

    [Resolvido]Código ineficaz Empty Código ineficaz

    Mensagem  good guy 26/3/2018, 22:13

    Olá Luís,

    Veja se dá pra te ajudar. Não consegui fazer melhor que isso.

    https://www.4shared.com/zip/c7vYtctQei/Relatrio_OLD.html
    avatar
    cpampas
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 83
    Registrado : 27/10/2013

    [Resolvido]Código ineficaz Empty Re: [Resolvido]Código ineficaz

    Mensagem  cpampas 26/3/2018, 22:24

    o relatorio aberto  assim abre com dados

    DoCmd.OpenReport "Rel_MapaDespesa", acViewPreview

    e assim tb

    DoCmd.OpenReport "Rel_MapaDespesa", acViewPreview, , Forms![Frm_Lancamento]![Impressao] = "MapaDespesas"
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Código ineficaz Empty Re: [Resolvido]Código ineficaz

    Mensagem  Luís Antunes 26/3/2018, 23:23

    Guy e Cpampas
    Fiz as devidas correcções e sem resultado

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7971
    Registrado : 05/11/2009

    [Resolvido]Código ineficaz Empty Re: [Resolvido]Código ineficaz

    Mensagem  Alexandre Neves 27/3/2018, 15:31

    Boa tarde,
    Não entendi que filtro quer colocar na abertura do relatório


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Código ineficaz Empty Re: [Resolvido]Código ineficaz

    Mensagem  Luís Antunes 28/3/2018, 00:49

    Boas
    O que pretendo mesmo é que o relatório me abra com dados.
    na primeira mensagem tenho o código VBA e a explicação.
    Posteriormente enviei em anexo parte da BD com o problema.

    Luis Antunes
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Código ineficaz Empty Re: [Resolvido]Código ineficaz

    Mensagem  Luís Antunes 7/4/2021, 13:38

    Boas
    Arranjei outra forma de abrir os relatórios. criei forms com três opções Imprimir - Previsualizar - Cancelar


    Luís Antunes

      Data/hora atual: 23/6/2021, 06:26