[Resolvido]Calcular saldo de dias em intervalos de datas no período de 1 ano

Prezados,

lí inúmeros tópicos tentando achar algo que pudesse me auxiliar com esse problema mas como sou iniciante estou tendo várias dificuldades e peço ajuda.

Estou tentando fazer um controle que funciona da seguinte maneira:

Tenho funcionários que trabalham em escalas, então coloco a data inicio e a data final de cada período de trabalho.
Tenho uma tabela com as informações do funcionário e uma subtabela com as informações das escalas (data inicio, data final, número de dias). Fiz uma consulta que calcula essa diferença "data final - data inicial", o resultado é lançado no número de dias (funciona perfeitamente).
Fiz outra consulta que soma os números de dias no período de 365 dias (soma número de dias onde entre data() e data()-365), também funciona bem.
Como faço para lançar o resultado dessa segunda consulta para uma caixa de texto no meu formurário principal? Ou se puderem me ajudar a criar um código que some os valores da coluna número de dias enquanto data inicial >=data()-365.

Desde já agradeço e gostaria de parabeniza-los pelo excelente site e forum.

já tentou somar na consulta e pegar o total em um campo do formulario

O resultado que pretendo eu já consegui através de 2 consultas, só não consigo joga-lo p/ caixa de texto no form principal, por isso estou tentando fazer em código, até porque precisa ser de acordo com o id do funcionário. Se puder me dar as dicas ficarei muito grato.


Valeu pela força!

Indique o SQL da consulta que funciona

Alexandre,

obrigado pela dica, mas teria como me passar como faço isso ou pelo menos onde devo procurar para eu poder aprender?

Valeu

Vá à consulta e visualize em modo SQL e mostre o texto

Alexandre,

segue o que tenho na minha consulta, tentei atraves de alguns exemplos fazer com que o resultado fosse lançado no campo mas sempre dá erro, teria como informar como ficaria? Gostaria que o resultado da consulta abaixo atualizasse o campo diasnobrasil do frmestrangeiros


Segue o código da consulta, se puder me ajudar com isso ficarei ainda mais grato.

SELECT Sum(tbldatas.DIASBRASILHITCH) AS diasnobrasil
FROM tblestrangeiros INNER JOIN tbldatas ON tblestrangeiros.IDESTRANGEIRO = tbldatas.[ID ESTRANGEIRO]
WHERE (((tbldatas.DATACHEGABRASIL) Between Date() And Date()-365))
GROUP BY tblestrangeiros.IDESTRANGEIRO;


Mais uma vez muito obrigado

Coloque
Dim rst as dao.recordset
set rst=currentdb.openrecordset("SELECT Sum(tbldatas.DIASBRASILHITCH) AS diasnobrasil
FROM tblestrangeiros INNER JOIN tbldatas ON tblestrangeiros.IDESTRANGEIRO = tbldatas.[ID ESTRANGEIRO]
WHERE (((tbldatas.DATACHEGABRASIL) Between Date() And Date()-365))
GROUP BY tblestrangeiros.IDESTRANGEIRO;")
SuacaixaDeTexto=rst(0)
set rst=nothing

Alexandre,

agora está retornando a seguinte mensagem:

Instrução SQL inválida; DELETE, INSERT, PROCEDURE, SELECT ou UPDATE esperado.

Desculpa minha ignorância mas nem pesquisando esse erro consegui resolve-lo.

Mais uma vez muito obrigado

Olá Paulo

Acredito que a função Dlookup() resolva sua questão.

teste primeiro assim para saber se a função retorna um valor:

me!NomeDocampo = Dlookup("diasNoBrasil","NomeDaConsulta")

Depois teste com o critério desejado:

me!NomeDocampo = Dlookup("diasNoBrasil","NomeDaConsulta","tblestrangeiros.IDESTRANGEIRO =" & me!NomeDoCampoID)

Sucesso!

Oi Avelino,

tentei fazer o que você sugeriu mas sem sucesso, não retornou valor algum. Estou assistindo algumas vídeo aulas que encontrei em inglês no youtube. Estou tentando ver se consigo desenvolver em VBA, caso consiga irei postar aqui. Se tiver alguma outra sugestão ficarei ainda mais grato.


Obrigado pela força

Coloque aqui o seu exemplo ou mande para o meu email, que ajuda será mais rápida.

avelino(arroba)usandoaccess(ponto)com(ponto)br

No aguardo

Olá Paulo

Recebi seu exemplo. Amanhã(sábado) estarei analisando e te oferecendo uma solução.

Grato

o Fórum agradece que as soluções ou os exemplos sejam sempre colocados aqui, apesar de terem sido recebidos no email e tratados pelo colega que os recebeu. É que assim todos passam a ter acesso à solução. Obrigado pela vossa compreensão.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.