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

    Compartilhe

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    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.

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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
    Report.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (73 Kb) Baixado 11 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    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.

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    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.

    [Você precisa estar registrado e conectado para ver este link.]

    cpampas
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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"

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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

    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    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

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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

      Data/hora atual: 21/7/2018, 14:33