Resumos na tela inicial

Pessoal como faço para mostrar os resumos do dia e do mês na tela inicial ou seja no formulário menu?

Ex; VENDAS HOJE, VENDAS DO MÊS, COMPRAS HOJE, ESTOQUE BAIXO, ETC...

Olá,

Supondo que na sua tabela haja o campo MÊS ou DataCompra você pode criar uma string SQL que capture esses dados desejados usando a cláusula WHERE MÊS = '" & sMes & "'". Veja um exemplo com um subformulário inserido no formulário menu de controle:

Código:


Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Dim sMes As String
Dim sCodCompra As Integer

sCodCompra = Me.CodigoCompra          'Nome do campo do formulário que informa o código da compra

sMes = DLookup("MÊS","SuaTabela","CodCompra = " & sCodCompra)    'Ou  sMes = MonthName(Month(DataCompra), True)   Exibe   JAN, FEV,....

[SeuForm subformulário].Form.Recordsource = "SELECT * FROM SuaTabela WHERE MÊS = '" & sMes & "'"
[SeuForm subformulário].Requery

End Sub

Boa Tarde.

Meu caro vai desculpando a minha demora, estou em um sufoco danado.

-Eu abri o meu formulário principal no modo ESTRUTURA, e cliquem em subformulario, quando abriu ele pediu para escolher a tabela ou consulta mais eu cliquem em cancelar.
-Depois com o subformulario no modo ESTRUTURA eu cliquem em evento AO ENTRAR, e digitei o seu código e fiz as adaptações, mas esta dando erro, o que fiz de errado?

SEGUE CÓDIGO EXATAMENTE COMO COLOQUEI

Private Sub Form_Open(Cancel As Integer)
   On Error Resume Next
   Dim sMes As String
   Dim sCodCompra As Integer

   CodVendas = Me.CodVendas

   sMes = DLookup("MÊS", "Tbl_Vendas", "CodVendas = " & sCodVendas)

   [Filho88].Form.RecordSource = "SELECT * FROM Tab_Vendas WHERE MÊS = '" & sMes & "'"
   [Filho88].Requery

   End Sub

Obrigado.

Olá Access2016,

Desculpe a demora. Pode postar um exemplo do seu programa para darmos uma olhada?

Boa Tarde, amigão.

Segue banco em anexo.


Grato.

Olá Access2016,

Como não deu pra entender bem o que vc quer, vou deixar um exemplo de parte de um sistema PDV que criei que tenho certeza poderá te ajudar. Tente adaptar à sua necessidade. A senha é: cerca123

Boa Tarde, Meu caro.

Pode ter certeza que o seu exemplo ira me ajudar e muito já tenho até em mente aonde irei utiliza-lo.
Porem a minha duvida era outra, vou tentar explicar novamente:

-Eu queria que em algum canto da tela inicial aparece os resumos do dia e do mês ex:

RESUMO HOJE

VENDAS HOJE                5.000,00
COMPRAS HOJE              3.000,00
ANIVERSARIANTES HOJE  2  

RESUMO DO MES ATUAL

VENDAS    35.000,00
COMPRAS  28,600,00

RESUMO GERAL

PRODUTOS COM ESTOQUE BAIXO     4
CLIENTES COM LIMITE ESTOURADO  2


E ASSIM, POR DIANTE, SEGUE ANEXO UMA FOTO EXEMPLO POREM EM EXCEL SÓ PARA VOCÊ TER UMA IDEIA.

Olá Access2016,

Nesse caso vc deve trabalhar com as funções DSUM para RESUMO HOJE, função DCOUNT e DSUM para RESUMO DO MÊS ATUAL e função DCOUNT para RESUMO GERAL.

Poste o seu exemplo com dados para que possamos criar as fórmulas com estas funções agregadas de domínio e ser mais fácil de trabalhar. Já criei a tabela.

Boa Noite.Meu caro.

Segue anexo conforme solicitou.

Tomei a liberdade de acrescentar mais alguns resumos.


Obrigado.

Olá Access2016,

Veja se já dá pra te ajudar. Verifiquei que algumas consultas que você criou apresentam erros: Cs_VendasCli, Cs_QuitarParcelas e Cs_PesquisaEstoque.

Bom dia, Meu caro.

Muito grato pelo excelente trabalho, segue resultado dos testes, acredito que só falta alguns pequenos ajustes para ficar perfeito.

Gostaria de pedir gentilmente ao amigo um grande favor , estou lhe enviando o banco completo e se possível o amigo fazer as alterações neste ficarei muito grato, já colei a tela inicial neste novo.

Segue resultados:

-COMPRAS HOJE esta pegando o valor do dia errado, ou seja tem duas compras uma do dia 28/12 e outra do 30/08, ele pega o valor da 28/12 e fala que é de hoje.

-Após fazer uma alteração ele não atualiza de momento, somente após fechar e abrir o sistema.

-A RECEBER E A PAGAR HOJE, também não esta funcionando pois ele deveria pegar os saldos devedores das vendas e compras, ex: a venda 30/12 deu 715,00 o valor recebido foi de 415,000, o saldo a receber é de 300,00 esse deveria mostrar no a receber do dia e assim da mesma forma no a pagar hoje.

-EM FATURAMENTO E EM COMPRAS, devia mostrar as compras e vendas efetuadas no mês atual.

-A RECEBER MÊS E A PAGAR MÊS, usa a mesma lógica do a pagar e receber do dia porem com as vendas e compras do mês.

-CLIENTE COM LIMITE ESTOURADO, fiz os testes e também não esta funcionando corretamente.

PRODUTOS COM ESTOQUE BAIXO E ALTO, fiz os testes e também não esta funcionando corretamente.

Muitíssimo obrigado, por me ajudar nessa empreitada de construir um sistema, pode ter certeza que quando estiver pronto vou colocar o nome de todos que me ajudaram.

Olá Access2016,

Abri o arquivo e não vi os códigos que já havia colocado. Vamos fazer desse jeito que é melhor pra você e também pra mim. Tente criar os códigos restantes para obter os resultados desejados, porque nada foi feito ainda. Você precisa praticar a programação para poder aprender a programar. Até onde eu fiz já é uma boa aula. Quando terminar e aí sim se apresentar erros, poderei corrigi-los pra você. Copie e cole para este sistema todo o código, os formulários auxiliares e as consultas auxiliares que criei para obter os resultados:

Formulários novos criados:

- Vendas
- AnivMes

Consultas novas criadas:

- cnsTbl_CadProd
- qryTbl_CadCli
- qryTbl_CadProd
- qryVendas

Código criado:

Código:


Private Sub Form_Open(Cancel As Integer)
Dim sVendaTotal As Currency
Dim sVendaHoje, sCompraHoje As Currency
Dim nAnivHoje, nAnivMes As Integer
Dim sReceb As Currency
Dim sPagar As Currency
Dim nEstoqBaixo, nEstoqAlto As Integer


'Calcula o número de aniversariantes de hoje
nAnivHoje = DCount("NomeCliente", "Tbl_CadCli", "Nac = #" & Date & "#")
txtAnivHoje = nAnivHoje

'Calcula o número de aniversariantes do mês

DoCmd.OpenForm "AnivMes", , , , , acHidden
nAnivMes = DCount("NomeCliente", "qryTbl_CadCli")
Me.txtAnivMes = nAnivMes

'Calcula o total de vendas de hoje
DoCmd.OpenForm "Vendas", , , , , acHidden
sVendaHoje = DSum("ValorTotal", "qryVendas")

Me.txtVendasHoje = sVendaHoje

'Calcula o total de compras de hoje
DoCmd.OpenForm "Frm_Compras", , , , , acHidden
sCompraHoje = Forms!Frm_Compras!Frm_ComprasDet!txtValorTotal

Me.txtComprasHoje = sCompraHoje

'Produtos com Estoque Baixo
nEstoqBaixo = DCount("Descrição", "qryTbl_CadProd")
Me.txtProdEstoqBaixo = nEstoqBaixo

'Produtos com Estoque Alto
nEstoqAlto = DCount("Descrição", "cnsTbl_CadProd")
Me.txtProdEstoqAlto = nEstoqAlto


End Sub

Private Sub Form_Unload(Cancel As Integer)
DoCmd.Close acForm, "AnivMes", acSaveYes
DoCmd.Close acForm, "Frm_Vendas", acSaveYes
DoCmd.Close acForm, "Frm_Compras", acSaveYes
End Sub


Meu caro, good guy.

Conforme te expliquei no email anterior, aquele BD que te enviei antes era apenas uma parte, agora estou te enviando o BD completo.
Colei os código do antigo neste mas não consegui fazer funcionar, voce consegue fazer as alterações neste por favor.


Muito Agradecido.

Olá Access2016,

Copie e cole todos os arquivos conforme expliquei acima. O que deu de cara perceber é que falta copiar e colar o formulário AnivMes.

Blz, consegui repassar os códigos para o novo BD.

Preciso então que pelo menos resolva dois aspectos que não estão funcionando;

1-Os estoque baixo e alto não estão funcionado de forma correta, fiz uma venda de quant 6.000, e o sistema acusou estoque mínimo ao invés de máximo.
2-Precisaria que ele atualizasse automaticamente a cada operação, sem ter que abrir e fechar o sistema.


Obrigado.
Segue BD em anexo.

Boa Tarde, amigão.

Dei uma enxugada nos resumos e deixei somente os resumos diário pois não consegui fazer os mensais.
Mas por algum motivo na esta mostrando corretamente os resumos mesmo os diários, pode me ajudar?

como criar o campo desconto sobre o valor total alguem pode me ajudar