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


    Código ineficaz

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Código ineficaz Empty Código ineficaz

    Mensagem  Luís Antunes em 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) (Razã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 100%

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

    Código ineficaz Empty Código inificaz

    Mensagem  good guy em 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 100%

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

    Código ineficaz Empty Re: Código ineficaz

    Mensagem  Luís Antunes em 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
    Código ineficaz AttachmentReport.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (73 Kb) Baixado 11 vez(es)
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Código ineficaz Empty Código ineficaz

    Mensagem  good guy em 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 100%

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

    Código ineficaz Empty Re: Código ineficaz

    Mensagem  Luís Antunes em 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 100%

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

    Código ineficaz Empty Re: Código ineficaz

    Mensagem  Luís Antunes em 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 100%

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

    Código ineficaz Empty Código ineficaz

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

    Olá Luís,

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

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

    Respeito às Regras 100%

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

    Código ineficaz Empty Re: Código ineficaz

    Mensagem  cpampas em 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 100%

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

    Código ineficaz Empty Re: Código ineficaz

    Mensagem  Luís Antunes em 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 100%

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

    Código ineficaz Empty Re: Código ineficaz

    Mensagem  Alexandre Neves em 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 100%

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

    Código ineficaz Empty Re: Código ineficaz

    Mensagem  Luís Antunes em 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

    Conteúdo patrocinado

    Código ineficaz Empty Re: Código ineficaz

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/7/2019, 01:59