[Resolvido]Diferença entre dois valores

Boa tarde a todos !

Estou com dificuldades em subtrair valores em uma consulta ou relatório, tenho uma tabela de controle de caixa, que simplesmente só registra a abertura e fechamento do caixa, ou seja quando um funcionário abre o caixa logo cedo, ele deve informar no sistema, o valor que tem no caixa, meio dia ele encerra e registra no caixa o valor que está deixando no caixa, logo outro funcionário assume e registra o valor que está no caixa e no final do dia ela fecha o caixa e registra o valor. Preciso que no final do dia gere um relatório do saldo inicial e saldo final e me dê por exemplo o lucro do dia.

Estou deixando um exemplo de como estou tentando fazer as consultas, para que eu possa obter o relatório.

Desde já Agradeço sua atenção !

BOa tarde colega.
Um dica que deixo para você, se o sistema continuar assim você vai ser roubado toda a vida.
Você tem que coloca um controle de sangria no caixa.(valores exatos programados)
Controle de sangria é , Ex:
pode ser qualquer horario se o caixa extiver 4000 ou acima o sistema fecha e responsável tem que tirar a metade  e deixar o restante.
No final do dia você ja sabe quantos  que tem que ter na sangria e no caixa, fora isso alguém te roubou.
pois qualquer um pode colocar um valor inicial no sistema sendo que o valor é falso
At,
Segue o anexo da sua estrututa

Boa Noite !

Fico grato Crysostomo pela dica, e pela atenção ao meu problema!

O exemplo que você me enviou não é exatamente o que proponho pois ele está somando todos os valores registrados, estou postando novamente o exemplo com um relatório chamado [RelCaixaDia] onde fica mais claro o que realmente estou querendo fazer.

Desde já agradeço!

Boa tarde Augusto.
Devido ao seu tópico o relatório está somando de acordo com o perído.
Na hora de gravar, siga o anexo, acho que esse é o gargalo do projeto.

Código:

Private Sub Comando45_Click()
Set db = CurrentDb()
    Set rs = db.OpenRecordset("TbCaixa")
    rs.AddNew
      rs("controleDeCaixa") = Me.ControleCx.Column(1) 'Aqui voce está informando como está o controle
         rs("usuario") = Me.Combinação15.Column(0) 'Aqui voce está informando o cod do usuário
        ' rs("controleDeCaixa") = Me.ControleCx ' Aqui voce está informando se ele esta aberto ou fechado
         rs("data_hora") = Me.data_hora 'data"
         rs("hora") = Me.hora 'hora
        rs("valor_em_caixa") = Me.valor_em_caixa 'o valor do fechamento e abertura
               Me.ControleCx.SetFocus 'Aqui volta a focar no controle que libera a gravação
       If Me.ControleCx.Text = "ABERTO" Then ' aqui esta verificando se esta saindo ou abendo a caixa
            MsgBox "Atualizado. Bem vindo " & Me.Combinação15.Column(1)
       Else
            MsgBox ("Atualizado. Até a próxima ") & Me.Combinação15.Column(1)
            'docmd.Quit Aqui desliga o sistema se caso estiver fechandoo o sistema desliga
       End If
        rs.Close
        db.Close

End Sub


Como todos os campos são vinculados você terá que fecha o formulário para a tabela se atuaizada.

Olá Augusto,

Fiz alguns ajustes no teu sistema para o relatório que necessita.
- cnsCaixaAberto: consulta onde carrega somente o valor de abertura do caixa com a menor hora (Operador Min)
- cnsCaixaFechado: consulta onde carrega somente o valor de fechamento do caixa com a a maior hora (Operador Max)
- cnsCaixaDia: consulta reunindo os valores das 2 consultas acima, relacionadas atraves do campo "data_hora"

Através da consulta "cnsCaixaDia", elaborei o relatório "RelCaixaDia". Ficou assim:


Elaborei o formulário "frmRelCaixaDia" para gerar o relatório:


A consulta "cnsCaixaDia" utiliza como critério de pesquisa os campos de data do formulário acima.

É isso.

Segue versão.

Espero ter ajudado

[]'s

FIM

Boa Noite Caros amigos !

Fico grato por terem dedicado parte do tempo de vocês para me orientar !
Crysostomo! Depois da sua penúltima mensagem, fui estudar melhor a questão de controle de caixa, e observei que estava faltando algumas informações relevantes, já estou fazendo algumas modificações.

Alexandre! Sua solução atende muito bem o que eu pretendo, irei adaptar ao meu ao sistema.

Assim que terminar postarei no repositório o modelo pronto.

Mais uma vez muito Muito Obrigado !

Um exemplo para você praticar incluindo os comando que lhe falta.
Sucesso