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


4 participantes

    [Resolvido]Resumo de Lançamentos

    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Resumo de Lançamentos Empty [Resolvido]Resumo de Lançamentos

    Mensagem  formiga10x 11/9/2016, 20:00

    Olá meus amigos um bom domingo na paz de Deus à todos.
    Amigos estou tentando fazer um resumo baseado no exemplo que o amigo Gilberlanio fez mas em access para o meu controle pessoal e empaquei com a questão do resumo das despesas, despesas cartão e Receitas.
    Gostaria que ficassem tipo o da imagem abaixo que foi feita o excel pelo amigo Gil. Três subForm exibido os status.

    Segue o bd com as tabelas.
    PS. As consultas não sei se estão ok.

    Meu muito obrigado a todos.

    [Resolvido]Resumo de Lançamentos 2e0s02o
    Anexos
    [Resolvido]Resumo de Lançamentos Attachmentresumao.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 43 vez(es)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  Alvaro Teixeira 11/9/2016, 20:13

    Olá Elias, dei uma espreitadela na base de dados que postou.
    Nas tabelas não tem o mes preechido, será isso?
    Também seria bom colocar o link de origem do exemplo do colega Gilberlanio

    Abraço e continuação de um Santo Domingo
    cheers
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  Alvaro Teixeira 11/9/2016, 20:19

    Olá, teste a consulta abaixo para as receitas do exemplo que postou
    Código:
    SELECT DISTINCTROW Format$([tbl_Receitas].[DataLancamento],'mmmm yyyy') AS [DataLancamento por mês], Sum(tbl_Receitas.ValorRecebido) AS [Soma De ValorRecebido], Sum(tbl_Receitas.AReceber) AS [Soma De AReceber]
    FROM tbl_Receitas
    GROUP BY Format$([tbl_Receitas].[DataLancamento],'mmmm yyyy'), Year([tbl_Receitas].[DataLancamento])*12+DatePart('m',[tbl_Receitas].[DataLancamento])-1;
    Nem estou a usar o campo mes.
    Abraço
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  formiga10x 11/9/2016, 20:29

    Olá Alvaro Segue o link do vídeo do amigo Gil.
    youtube.com/watch?v=E2X2eZTjAY0

    Vou testar a query que postou.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  formiga10x 11/9/2016, 20:40

    Substitui a query mas deu ruim rsrs

    [Resolvido]Resumo de Lançamentos 246jjp4


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  Alvaro Teixeira 11/9/2016, 21:20

    Olá Elias, veja o meu teste.
    Abraço
    Anexos
    [Resolvido]Resumo de Lançamentos Attachmentresumao_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 37 vez(es)
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  formiga10x 11/9/2016, 22:02

    Alvaro vou para o culto, amanhã ou p/ semana damos continuidade.

    Desde já lhe agradeço.

    Um grande abraço e fique na paz.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  Alvaro Teixeira 11/9/2016, 22:43

    Ok Elias,
    Qualquer coisa estamos cá.
    Abraço
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  formiga10x 13/9/2016, 16:14

    Boa tarde pessoal.
    Amigo Alvaro consegui contornar a situação da consulta, e para encerrar este tópico somente uma questão seria um erro que está ocorrendo ao somar um subform quando o mesmo se encontra vazio.

    =[subFormDespesaCartao].[Formulário]![txtValorRecebido]

    [Resolvido]Resumo de Lançamentos 1191jxi


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  Alvaro Teixeira 13/9/2016, 16:20

    Olá Elias,
    Aprendi aqui, use o NZ(...,0)
    Abraço
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  formiga10x 13/9/2016, 16:29

    Tentei com o Nz
    =Nz([subFormDespesaCartao].[Formulário]![txtValorRecebido];0)
    dai o campo fica com a msg

    #Tamanho!


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  Alvaro Teixeira 13/9/2016, 16:35

    Olá, poderá ser porque está a dar error, vou construir e testar.
    Abraço
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  formiga10x 13/9/2016, 16:39

    Estou lhe enviando parte do projeto para sua análise Alvaro.
    Anexos
    [Resolvido]Resumo de Lançamentos AttachmentErroNZ.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (382 Kb) Baixado 26 vez(es)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  Alvaro Teixeira 13/9/2016, 16:52

    Olá Elias,
    Fiz aqui o teste nem foi necessário nada, não mes está a dar erro.
    Veja o meu teste: https://meocloud.pt/link/906786b5-8325-4071-918b-abda19904d04/resumao_total_sub.zip/

    O seu sub formulario está em que modo, pode criar um pequeno exemplo para testar.
    Abraço
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  formiga10x 13/9/2016, 17:09

    Em modo folha de dados porém estou a preencher o mesmo com uma consulta e não direto de uma tabela como o seu exemplo...


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  rubenscouto 13/9/2016, 18:16

    EStes campos SubTotal e AReceber não é bom que você armazene na tabela. Bom é que isto seja um calculo em uma consulta. Desta forma fica mais facil efetuar os calculos.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  formiga10x 13/9/2016, 19:23

    Rubens você diz fazer uma consulta somando os campos sub totais, a pagar e pago para então exibir nos forms isto?
    Porém estes valores serão alterados de acordo com a consulta no Grid. Então a soma terá de ser no grid msm digo SubForm...


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  Alvaro Teixeira 13/9/2016, 19:55

    Olá a todos,
    Elias, como tem a origem do sub-formulario?
    Está apresentar os valores numa caixa de listagem (é isso que chama de grid "grelha") ou tem algum componente.
    O melhor seria postar um exemplo simples do formulario e sub-formulario, para podermos ver, compreender e ajudar.
    Abraço
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  formiga10x 13/9/2016, 20:26

    Digo subFormulário msm
    Enviando parte do projeto...
    Anexos
    [Resolvido]Resumo de Lançamentos AttachmentError.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (419 Kb) Baixado 29 vez(es)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  Alvaro Teixeira 13/9/2016, 20:54

    Olá Elias,
    no campo txtSomaSubTotal coloque assim:
    Código:
    =IIf(VarType([subFormReceitas].[Formulário]![txtSubTotal])=10;0;[subFormReceitas].[Formulário]![txtSubTotal])

    no campo txtRecebido coloque assim:
    Código:
    =IIf(VarType([subFormReceitas].[Formulário]![txtValorRecebido])=10;0;[subFormReceitas].[Formulário]![txtValorRecebido])

    Acho que resolve.
    Abraço
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  formiga10x 13/9/2016, 21:28

    Perfeito meu amigo Resolvido com sucesso! Very Happy
    Muito agradecido mesmo.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  Alvaro Teixeira 13/9/2016, 21:40

    Olá Elias, fico feliz por ter resolvido.
    Deu luta, nunca tinha usado esta técnica do VarType.
    Fica mais esta, como o MaximoAccess é sempre aprender Wink
    Abraço
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  formiga10x 13/9/2016, 21:48

    Foi tenso msm mas ficou uma dúvida no seu código.
    Só para eu entender msm.

    =IIf(VarType([subFormReceitas].[Formulário]![txtSubTotal])=10;0;[subFormReceitas].[Formulário]![txtSubTotal])

    no caso está a comparar se o valor da txt é = 10 senão recebe zero... scratch poderia me explicar Alvaro?


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  FabioPaes 13/9/2016, 22:00

    So pra acompanhar a explicacao do Mestre Alvaro.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  Alvaro Teixeira 13/9/2016, 22:57

    Olá a todos,
    Elias, o 10 é valor do tipo de variável, que neste caso é vbError.
    Ou seja, o IIF está a verificar que tipo de váriavel é que o campo tem atribuída.

    Na mensagem n. 22 já tinha colocado um link a explicar a função VarType, confira abaixo os tipos de valores:
    https://msdn.microsoft.com/en-us/library/office/gg278470.aspx

    Abraço
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  formiga10x 14/9/2016, 01:44

    Bravo Mestre Álvaro vou ver agora e novamente muito agradecido viu.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  Alvaro Teixeira 14/9/2016, 14:15

    cheers

    Conteúdo patrocinado


    [Resolvido]Resumo de Lançamentos Empty Re: [Resolvido]Resumo de Lançamentos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:58