[Resolvido]somar um dia completo de registros

Bom dia aos senhores do fórum,

tenho uma tabela com registros diários, com data, hora, cliente, ....valor total,

o que gostaria é que em um outro formulário eu pudesse ter o resumo dos dias do mes, em cada comando a soma de um dia completo, so o valor total do dia...

que função devo usar para fazer esta soma?

O que seria exatamente "cada comando"? Você irá ficar clicando em um botão de comando para ir exibindo a soma de cada dia?

Bom dia Criquio,

não, não seria um único comando, não estou bem certo de como fazer isto ainda, mas a ideia inicial é a seguinte, acompanhar diariamente e semanalmente meu movimento de valores.trazendo em alguns comandos os valores das semanas do mês passado.

então seria:

4 label cada uma com o valor de cada semana do mês passado,para me servir de base...
4 label que serão preenchidos com o total da semana do mês atual...
mais os comandos que me trarão diariamente o movimento.
valores estáticos em todos os comandos.

enfim, uma forma de fazer um gráfico de movimento.

Isso ainda está confuso. Exemplifique isso graficamente para ver se entendemos melhor.

Criquio,



Amanha na empresa, monto o form com os textbox e escrevo o que realmente preciso,

obrigado por enquanto.

Aqui esta uma ideia,


claro que minha experiencia noa me leva muito longe entao se achar que posso fazer de outra maneira.....


Abraço Criquio

Voce gostaria que fossem apresentados a soma dos valores recebidos na semana?

Valor 1 + Valor 2 >>>> gostaria da soma dos movimentos semanais destes valores?


Cumprimentos.

Veja a consulta no exemplo e se lhe ajuda.

Cumprimentos

Boa noite Grande,


to rindo como um louco Piloto, vou passar o resto da noite para entender a consulta, mas estou estudando...
mas como faço para passar estes resultados para o meu form???

Primeiramente observe a consulta, atraves das expressões ali contidas tente adaptar para que exibam as informações assim como se pretende, depois tratamos de colocá-las no form.

Cumprimentos.

Piloto,

Soma: DSoma("Valor1 + Valor2";"cnsAVista";"NumMes ='" & Format([CpData];"m") & "'")
com este tenho o valor total do mês

Soma2: DSoma("Valor1 + Valor2";"cnsAVista";"DiaSemana ='" & Format([CpData];"ww") & "'")
com este o valor total da semana

mas não consegui entender como ter também o valor por dia???

Dia: [Valor1] + [Valor2]

Cumprimentos.

ainda não entendi,

se eu tenho vários registros no dia 13/03/2013, como ter o valor total deste dia somando todos os registros desta data???

SELECT TabelaAVista.Codigo, TabelaAVista.CpData, TabelaAVista.Valor1, TabelaAVista.Valor2, [Valor1]+[Valor2] AS Total, Format([CpData],"m") AS NumMes, Format([cpData],"ww") AS DiaSemana, Format([cpData],"w/mmmm") AS Semana, DSum("Valor1 + Valor2","cnsAVista","NumMes ='" & Format([CpData],"m") & "'") AS Soma, Format([CpData],"d") AS Dia, DSum("Valor1 + Valor2","cnsAVista","Dia ='" & Format([CpData],"d") & "'") AS SomaDia
FROM TabelaAVista
WHERE (((Format([CpData],"m"))=3));

Coloque esta SQL na consulta.


Cumprimentos.

Desculpe Piloto, não entendi o que devo fazer, aonde colocar a sql...

Crie uma consulta em branco, abra ele no modo SQL e cole esta SQL na mesma.

Cumprimentos.

Ficou perfeito Piloto,


Que show estes códigos, só falta passar para o form...

Ta ai uma coisa que tenho que estudar muito, consulta e sql...

Bons Estudos.

Piloto, sei que ate aqui o trabalho foi todo seu, mas realmente não consigo avançar neste caso.
não consegui passar os resultados para o form...

Poste o exemplo atualizado.

Cumprimentos.

Em anexo, obrigado Piloto...

Veja no formulário o preenchimento do dia 1 ao 5, feito dentro da caixa texto utilizando a função Dsum fazendo referencia a consulta.

Bons Estudos.

Amigo Piloto

Estou a tentar aplicar aqui numa BD este exemplo

Mas não queria digitar o critério do numero do mês.
Queria ter esse numero do mês num Form com o formato "03" para março, "04", para abril etc

Mas a consulta não faz os calculos.

Ao executar a consulta, quando pedir o mês deve digitar "03" para março, ou "04", para abril e verá aonde tem erro

Obrigado

Piloto,

esta dando sobre carga, pelo que pesquisei é por ter valores nulos nos campos valor1 e valor2 é isso mesmo???
Se for,como resolvo pois o campo valor2 sera muitas vezes R$ 0,00...

Assis, ao executar a consulta o código calcula registro a registro... e não encontrando o formulario que colocou no critério, por mais que na abertura digite o mes... dara erro.

[Formulários]![Menu]![Mes]

Experimente colocar no critério apenas o numero 3, salve a consulta e reabra.

Para que funcione como fez.. é necessário abrir a consulta apartir do formulário Menu, digitando o mes na caixa texto: Mes


Cumprimentos.

Veja.

Abra o Form Menu, digite 03 na caixa texto... depois abra a consulta mantendo o form menu aberto.


Cumprimentos.

Fabio, reenvie um pequeno exemplo com esses valores nulos para que eu veja o que esta acontecendo.


Cumprimentos.

Piloto

O form Menu tem um botão para alterar a data para outros meses, e ao mudar de mês o Nº do mês fica em baixo como pode ver.

Tem dados de janeiro a abril.

Mas ao abrir chamar o form "Formulário Resumo Movimento" do form "Menu" do lado esquerdo "Piloto" ele abre, mas dá erro...

Obrigado

Assis... Renomeie a caixa texto no form Menu para txtMes (Evite palavras reservadas do access)
Na consulta em critérios: Como [Forms]![Menu]![txtMes]

Na caixa texto txtMes na fonte de controle; =Format([datamenu];"m")


Cumprimentos.

Piloto

Testou, veja o exemplo alterado
Obrigado

????

Mensagem 28 já alterado

Funcionou?

Piloto

Aqui nao funcionou... ai sim ?

Assis.... Estás utilizando Campos com palavras reservadas do Access.... Isso fatalmente gerará erros na consulta.

Não Utilize Data e sim CpData...

Corrija todos os campos que contenham palavras reservadas...

No form, na caixa texto a mesma fa referencia a uma consulta que não existe; =DSoma("[Vlr]";"cnsAVistaN";"Dia =2")

cnsAVistaN


O problema ai é principalmente na utilização da palavra Data como campo


Cumprimentos.

Deixe a caixa texto txtDia desacoplada e carrega atraves do VBA:

Private Sub Form_Load()

Me.Dia1 = DSum("Vlr", "cnsAVista", "Dia =1")

End Sub

Cumprimentos.

Piloto

Se ai funcionou poste o exemplo

Obrigado

https://dl.dropboxusercontent.com/u/26441349/Assis%20%282%29.zip

Cumprimentos.

Obrigado Piloto

Sem alterar o nome do campo "Data"

Criei mais um campo no form menu "txtMesT"

Private Sub Form_Current()
On Error Resume Next
Me.txtMesT = Me.txtMes
End Sub

No critério da consulta
[forms].[menu].[txtMesT]

Funciona perfeito ....

Por mim o topico pode ser encerrado

Assis... creia... Altere para CpData... isso fatalmente poderá dar erro no futuro...

Temos falado muito aqui sobre a utilização de palavras reservadas do Access como: Data, Valor, Nome etc.


Cumprimentos.

Piloto

Já alterei para cpData


=DSoma("[Vlr]";"cnsAVista";"Diasemana =1")

Isto dá o resultado da primeira semana do ano.

E para dar a primeira semana do mes atual ?

Obrigado

De uma pesquisada pela função Weekday(SuaData)

Cumprimentos.

Piloto

Aqui ?

=DSoma("[Vlr]";"cnsAVista";"diasemana =1)")

Mudar o 1 para dar a semana atual

Bom dia Piloto,


Então, ontem fiz vários testes e funciona tudo se eu excluo os registros do meu projeto original, então acho que não adianta te mandar um exemplo sem os dados reais da minha tabela AVista,deletados alguns registros em ordem ele acaba funcionando, ai fui verificar não tinha nada de errado com aquela linha, então gostaria de te mandar esta parte do projeto mas com todos os dados originais da minha tabela, posso te mandar por email???

Obrigado pela paciência...

Envie... Harysohn@hotmail.com

Cumprimentos.

Não entendi Amigo Assis...

Cumprimentos.

Esta no teu e-mail...

Fábio tem que estar mais atento quando da criação de tabelas... Leia mais sobre normalização de dados, relacionamentos etc...

isso é a base principal de todo sistema.

Para cada tipo de dados deve ser escolhido para o campo o tipo de dados condizente com o mesmo

Datas >>>> São gravados em campo do tipo Data
Numeros >>> São gravados em campo do tipo Integer, Long, Double
Texto >>>> São gravados em campo do tipo texto
Textos grandes >>>> São gravados em campos do tipo memorando.


Seu campo data está gravado em um tipo de campo Texto... Dessa forma ocasionalmente poderá dar erros quando utiliza-se uma função format.

Mude o seu campo data o tipo de dado para Data.
Possivelmente haverá a perda de algum dado de data em alguns registros,,, ai e so redigitar a data.


Cumprimentos.

Nos testes de ontem seguindo o teu anexo ate fiz esta alteração sim, so esqueci de alterar do mês 3 para o 4, ai não carregava registro algum...

Piloto, é possível que a consulta faça sozinho a identificação dos meses?
Como estamos em abril sera considerado o mês de março como anterior, mas isto porque fizemos manualmente a indicação do mês, e quando o mês virar para maio que o anterior sera abril?
Seria a mesma questão do Assis???

Voce utilizaria uma combo com os meses... e na consulta a referencia a esta combo nos critérios... Apos atualizar da combo um requery no form e consulta...

Assim exibiria o mes selecionado


Cumprimentos.