[Resolvido]Movimento do dia

Ola,

Tenho uma Tabela onde sao lancadas todas as vendas por data

Queria colocar num formulario X, um campo onde aparecesse nele a movimentacao do dia atual, e queria por em outro campo a movimentacao do dia anterior.

COmo posso montar essa expressao ?

Na tbl_VendasFeitas, tenho todas as datas de vendas e todos os valores de vendas feitas. Essa informacao que quero ficara em duas caixas de texto no Form chamado Frm_Agenda.

Grato

Andre

Ola;

Use a função DLookup;

https://www.maximoaccess.com/t1533-funcao-dlookup-explicacao

desculpe , ainda nao estou muito familiarizado, vi la o post, mas como eu faria a soma?
Digamos que hj dia 26/06/2018 eu tenha feito 3 vendas de 2,00 = 6,00 e ontem 2 vendas de 1,00 = 3,00

Numa caixa de texto quero que apareca 6,00 movimento atualizado de hj, e na outra caixa texto ira aparecer 3,00 movimento de ontem.

Como faria isso ao carregar o Form Agenda ? Ate sei usar o basico do Dlook, so nao sei usar com filtro pela data e ainda somando.

Andre

Olá

Se quer a soma tem de DSum em vez do DLookup
Na origem da sua caixa de texto:

=DSum("Campo" , "Tabela" , "CampoData= Date()")

Continuo sem entender ainda.

Deixa te explicar melhor.

Tenho uma agenda em que quero por o total de vendas do dia numa caixa de texto.
As vendas estao numa Tabela chamada A11_Livro_caixa, em 2 caixas de texto chamada Sentrada e SCartoes ( = Entradas do dia )

Entao eu imagino que na caixa de texto que esta no frmAgenda de nome txtsaldodia, eu tenha que por uma formula que puxe no meu livro caixa o somatorio de Entrada Dinh + Cartoes, pra quando o Form Agenda ser carregado ja apareca o somatorio do dia. Essa agenda eu poderei chamar a qualquer momento. Entao se abrir logo pela manha estou ciente que o somatorio sera zero, mas no final do dia esse somatorio sera >0.

Faça conforme o JPaulo mencionou. Use a função DSoma.

Na caixa de texto do formulário que você quer o cálculo, vá na propriedade "Fonte de Registro" e escreva a fórmula. Deve ficar mais ou menos assim:

=DSoma("Sentrada";"A11_Livro_caixa";"Data='" & Data() & "'")+DSoma("SCartoes";"A11_Livro_caixa";"Data='" & Data() & "'")

No caso é a soma de dois DSoma, um do cartão + um do dinheiro.

Os nomes entre aspas são os nomes dos seus campos/colunas da tabela ou seja, você deve substituí-los pelos respectivos nomes da sua tabela.

E para o dia anterior, coloque -1 depois de "Data()" nos 2 DSoma.

vou tentar aqui fazer e te falo, aqui eu chupo cana, como mariola e solto pipas ao mesmo tempo . Neste momento agora estou ajeitando meu site da Suplementos FazerBem. Trabalho sozinho aqui na loja.

Muito obrigado mesmo amigao !!

André

desculpe, A11_ é o form. A tabela se chama tbl_Lancamento_livrocaixa

Eu fiz assim mas da erro na caixa de texto do Form Agenda:

=DSoma("lc_entrada";"tbl_Lancamento_livrocaixa";"lc_data='" & Data() & "'")+DSoma("lc_cartao";"tbl_Lancamento_livrocaixa";"lc_data='" & Data() & "'")

Um pequeno detalhe, troque os apostrofos por #

=DSoma("lc_entrada";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#")+DSoma("lc_cartao";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#")

Nao apareceu erro, porem a caixa ficou em branco como nao tivesse nada

Veja essa base de teste e tente adaptar ao seu.

Opa amigao Bom dia !

Foi falha minha, estava certo, e que estava coletando um dia sem venda, ontem por exemplo nao vendi nada, por isso a caixa ficava em branco.

Como adapto aqui pra se nao tiver venda nenhuma aparecer 0,00

e pegar valor anterior seria por -1 certo?

=DSoma("lc_Entrada";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#")+DSoma("lc_cartao";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() -1 & "#")

Utilize a fórmula Nz(Seu Cálculo; Valor se nulo)
troque "Seu Cálculo" por cada um de seus cálculos DSoma e "Valor se nulo" por 0.

Amigao, com essa base de conhecimento que vc me passou eu ja ate criei aqui outra rotina de contas a pagar do dia. E certo que me servira talvez em outras coisas mais.
Obrigado mesmo.

Andre

Ola Livio.sfranca, no seu exemplo, o dia de hj nao aparece, pois acrescentei mais lancamentos nele incluindo hj dia 3/7

eu nao tenho certeza, pois estava funciinando, apesar de que acrescentei na Tabela o campo deposito.
Mas acho que isso nao faria difere'nca, ja que alterei tb a formula.
Como estava funcionando ate o dia 30/06, acho que tem a ver com a data.

Andre

Manda a fórmula que está usando para saber o que etá acontecendo.

Ola amigao

para vendas de hj :

=Nz(DSoma("lc_Entrada";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#")+DSoma("lc_Deposito";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#")+DSoma("lc_cartao";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#");0)

Para vendas de ontem:

=Nz(DSoma("lc_Entrada";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#")+DSoma("lc_Deposito";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#")+DSoma("lc_cartao";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data()-1 & "#");0)

Você deve usar o Nz em todas as funções DSoma separadamente, e não em todos juntos.

para vendas de hj :

=Nz(DSoma("lc_Entrada";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#"); 0)+Nz(DSoma("lc_Deposito";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#");0)+Nz(DSoma("lc_cartao";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#");0)

E no caso do -1 para data de ontem, você precisa colocar ele sempre depois de "Data()" e em todos os DSoma também, se deixar do jeito que está fazendo, vai somar a data de ontem apenas do campo lc_cartao.

Para vendas de ontem:

=Nz(DSoma("lc_Entrada";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data()-1 & "#"); 0)+Nz(DSoma("lc_Deposito";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data()-1 & "#");0)+Nz(DSoma("lc_cartao";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data()-1 & "#");0)

entao , mesmo assim aparece 0,00
Hj ja fiz duas vendas sendo 1 no cartao e uma dinheiro

Aparece assim:

Faca o teste neste exemplo acima que vc fez, e vera que nao vai aparecer nada '







Estou usando assim em fonte de controle:

=Nz(DSoma("lc_Entrada";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#"); 0)+Nz(DSoma("lc_Deposito";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#");0)+Nz(DSoma("lc_cartao";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data() & "#");0)


Para vendas de ontem:

=Nz(DSoma("lc_Entrada";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data()-1 & "#"); 0)+Nz(DSoma("lc_Deposito";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data()-1 & "#");0)+Nz(DSoma("lc_cartao";"tbl_Lancamento_livrocaixa";"lc_data=#" & Data()-1 & "#");0)

Na verdade até descobri por que, é por conta do formato de data.

Altere as formulas assim:

Data de hoje:

=Nz(DSoma("lc_Entrada";"tbl_Lancamento_livrocaixa";"lc_data=#" & Format(Data();"mm/dd/yyyy") & "#");0)+Nz(DSoma("lc_Deposito";"tbl_Lancamento_livrocaixa";"lc_data=#" & Format(Data();"mm/dd/yyyy") & "#");0)+Nz(DSoma("lc_cartao";"tbl_Lancamento_livrocaixa";"lc_data=#" & Format(Data();"mm/dd/yyyy") & "#");0)

Data de ontem:

=Nz(DSoma("lc_Entrada";"tbl_Lancamento_livrocaixa";"lc_data=#" & Format(Data()-1;"mm/dd/yyyy") & "#");0)+Nz(DSoma("lc_Deposito";"tbl_Lancamento_livrocaixa";"lc_data=#" & Format(Data()-1;"mm/dd/yyyy") & "#");0)+Nz(DSoma("lc_cartao";"tbl_Lancamento_livrocaixa";"lc_data=#" & Format(Data()-1;"mm/dd/yyyy") & "#");0)


Acredito que não dê mais problema fazendo essa alteração.

Livio, tu é o cara mesmo ! ficou 10 agora aqui.

Valeu mesmo

TMJ

Abraços

Andre

10 !

Só para complementar o tópico, da seguinte forma também a fórmula vai funcionar:

=DSoma("Nz(lc_Entrada,0)+Nz(lc_Deposito,0)+Nz(lc_cartao,0)";"tbl_Lancamento_livrocaixa";"lc_data=#" & Format(Data();"mm/dd/yyyy") & "#")

O que muda e só a simplicidade mesmo e vai funcionar do mesmo jeito. Acabei esquecendo que não precisava somar Função por função como antes.