[Resolvido]Soma fracionada - Arredondamento para cima

Boa tarde,

Como sou "aprendiz" em ACCESS, estou tendo dificuldade em fazer um "filtro" e somatório de valores que contém fração.
Já procurei em diversos lugares, tentei algumas sugestões porém sem êxito.
Segue em anexo, o BD para quem puder analisar e sugerir alguma forma de funcionar.
O que estou precisando é: "filtrar" e "somar" fracionado o quantitativo de caixas em que conste no registro: "Negativa". Somar o restante que não for negativa, e por fim o Total das 2 somas, porém arredondando as frações para cima.
Espero ter sido claro nas explicações, caso tenham alguma dúvida, estarei à disposição para esclarecer.

Desde já, agradeço a todos pela boa vontade na ajuda.

Att.
Monserrat.

Bom dia.

Acredito que vc protegeu o formulário pq não consigo colocar ele no modo estrutura.

Abraço, Delson

Boa tarde Delson,

Só clicar com o botão do lado direito do mouse no formulário e selecionar "Modo Design". Ele irá abrir normalmente.

Boa noite!
Retirei o Val do início das expressões e parece que os valores ficaram corretos. Verifique se nessa primeira parte os resultads estão do jeito que você queria!
Depois resolveremos os arredondamentos para cima.
Na caixa de texto que ficará oculta:
NEGATIVAS

Código:

=IIf([N_1TEMP]="NEGATIVA";[N_1CAIXAS];0)

POSITIVAS

Código:

=IIf([N_1TEMP]<>"NEGATIVA";[N_1CAIXAS];0)

Na parte inferior do formulário:
CAIXAS NEGATIVAS

Código:

=(Nz([S_1IMUNO]))+(Nz([S_2IMUNO]))+Val(Nz([S_3IMUNO]))+(Nz([S_4IMUNO]))+Val(Nz([S_5IMUNO]))+(Nz([S_6IMUNO]))+(Nz([S_7IMUNO]))+(Nz([S_8IMUNO]))+(Nz([S_9IMUNO]))+(Nz([S_10IMUNO]))+(Nz([S_11IMUNO]))+(Nz([S_12IMUNO]))+(Nz([S_13IMUNO]))+(Nz([S_14IMUNO]))+(Nz([S_15IMUNO]))+(Nz([S_16IMUNO]))+(Nz([S_17IMUNO]))+(Nz([S_18IMUNO]))+(Nz([S_19IMUNO]))+(Nz([S_20IMUNO]))

CAIXAS POSITIVAS

Código:

=(Nz([CX_TT_CAIXAS]))-(Nz([CX_TT_NEGATIVAS]))

TOTAL DE CAIXAS

Código:

=(Nz([N_1CAIXAS]))+(Nz([N_2CAIXAS]))+(Nz([N_3CAIXAS]))+(Nz([N_4CAIXAS]))+(Nz([N_5CAIXAS]))+(Nz([N_6CAIXAS]))+(Nz([N_7CAIXAS]))+(Nz([N_8CAIXAS]))+(Nz([N_9CAIXAS]))+(Nz([N_10CAIXAS]))+(Nz([N_11CAIXAS]))+(Nz([N_12CAIXAS]))+(Nz([N_13CAIXAS]))+(Nz([N_14CAIXAS]))+(Nz([N_15CAIXAS]))+(Nz([N_16CAIXAS]))+(Nz([N_17CAIXAS]))+(Nz([N_18CAIXAS]))+(Nz([N_19CAIXAS]))+(Nz([N_20CAIXAS]))

Bom dia DelsonK,

Conferi aqui e é justamente isso que precisava.
Vasculhei o "Repositório" para ver se achava alguma solução, e não encontrava nada.
Muito obrigado pela ajuda.
Só falta o arredondamento "para cima" do total.

Para o arredondamento;

Mensagem Nº4 deste tópico;

https://www.maximoaccess.com/t592-resolvidocomo-faco-para-arredondar-valores

Ou

Round([SeuCampo]+0,5)

Ou

https://www.dropbox.com/s/3gz7acv2m0zpeox/ArredondarUmValor.txt?dl=0

Boa tarde.

Veja se é esse o resultado que você busca!

Código:

=IIf((Nz([N_1CAIXAS]))+(Nz([N_2CAIXAS]))+(Nz([N_3CAIXAS]))+(Nz([N_4CAIXAS]))-Int((Nz([N_1CAIXAS]))+(Nz([N_2CAIXAS]))+(Nz([N_3CAIXAS]))+(Nz([N_4CAIXAS]))>0);(Nz([N_1CAIXAS]))+(Nz([N_2CAIXAS]))+(Nz([N_3CAIXAS]))+(Nz([N_4CAIXAS]))+1;(Nz([N_1CAIXAS]))+(Nz([N_2CAIXAS]))+(Nz([N_3CAIXAS]))+(Nz([N_4CAIXAS])))

Delson.

Bom dia DelsonK.

Demorei um pouco para responder pois estava fazendo os testes que o JPaulo e vc indicaram.
Não consegui adaptar a opção que JPaulo enviou.
Quanto a sua opção, é quase isto sim.
Porém ainda não está somando conforme o esperado.
Creio que não poderá somar TXTBOX por TXTBOX (total de 20), pois poderá alterar o resultado final, pois iria arredondar cada uma delas.
O correto seria somar todas as TXTBOX (Negativas) e separadamente todas as TXTBOX que não fossem negativas.
Somar as 2 TXTBOX com o resultado obtido e arrendondar (para cima) este resultado.
Estou enviado um "Print" para ver como seria o que estou explicando.
E veja que o resultado que obtive com a solução que vc sugeriu está dando uma diferença.
O total que deveria ser obtido seria "7" caixas e está aparecendo "8".
Espero ter sido claro nas explicações. E aguardo a boa vontade de vcs para me ajudarem a resolver (o que parece ser simples, mas não é) este problema.

Agradeço muito pelo empenho de vcs.
Tenham um bom dia.

Bom dia.
O normal é vc arredondar os valores na soma, caso contrário haverá um diferença muito significativa na quantidade. Talvez possamos fazer nas caixas de texto das somas das negativas e não negativas também.
Obs:
O código que eu te enviei eu só faz das 4 text box iniciais (aquelas que estão preenchidas para teste), tens que prolongar nas outras 16;

Abraço, Delson

Foi o que tentei fazer DelsonK.
Vou disponibilizar o BD novamente para ver como ficou.

Boa noite!

Pronto para os testes! Coloquei as expressões diretamente nas 4 primeiras text box que ficarão ocultas e simplifiquei as expressões caixas de texto das somas negativas e positivas (das 4 primeiras caixas de texto).
Detalhe: usei aque BD que eu já tinha no meu PC, não baixei aquele que vc enviou na última msg.

Att, Delson

Boa noite DelsonK,

Tentei abrir o arquivo, mas me vem a msg: "O Banco de Dados que vc está tentando abrir requer uma versão mais nova do Microsoft Access"
O meu Office é o 2010.

Código para colocar na primeira text box negativa:

Código:

=IIf([N_1TEMP]="NEGATIVA";IIf([N_1CAIXAS]-Int([N_1CAIXAS])>0;Int([N_1CAIXAS])+1;[N_1CAIXAS]);0)

Código para colocar na primeira text box positiva:

Código:

=IIf([N_1TEMP]<>"NEGATIVA";IIf([N_1CAIXAS]-Int([N_1CAIXAS])>0;Int([N_1CAIXAS])+1;[N_1CAIXAS]);0)

Código para colocar na primeira text box CAIXAS NEGATIVAS:

Código:

=(Nz([S_1IMUNO]))+(Nz([S_2IMUNO]))+(Nz([S_3IMUNO]))+(Nz([S_4IMUNO]))

Código para colocar na primeira text box CAIXAS POSITIVAS:

Código:

=(Nz([S_1POSITIVA]))+(Nz([S_2POSITIVA]))+(Nz([S_3POSITIVA]))+(Nz([S_4POSITIVA]))

Abraço, Delson

Bom dia Delson,

Tentei estas alternativas que vc disponibilizou, mas o resultado não foi o esperado.
Nas minhas tentativas de "Erro e Acerto", mudei o valor (como no Print em anexo) e funcionou parcialmente.
O arredondamento ocorre perfeitamente quando a fração está acima de 500.
Já abaixo de 500 o arredondamento ocorre para baixo, sendo que deveria ser para cima.
Aí que está o gargalo.

Att.
Evilmar

Bom dia.

Acredito que vc não atualizou todas as expressões para que aconteça o arrendondamento, já a partir text box que ficarão ocultas.
Veja como ficou no meu print.

NEGATIVA

Código:

=IIf([N_1TEMP]="NEGATIVA";IIf([N_1CAIXAS]-Int([N_1CAIXAS])>0;Int([N_1CAIXAS])+1;[N_1CAIXAS]);0)

POSITIVA

Código:

=IIf([N_1TEMP]<>"NEGATIVA";IIf([N_1CAIXAS]-Int([N_1CAIXAS])>0;Int([N_1CAIXAS])+1;[N_1CAIXAS]);0)

CAIXAS NEGATIVAS

Código:

=(Nz([S_1IMUNO]))+(Nz([S_2IMUNO]))+(Nz([S_3IMUNO]))+(Nz([S_4IMUNO]))

CAIXAS POSITIVAS

Código:

=(Nz([S_1POSITIVA]))+(Nz([S_2POSITIVA]))+(Nz([S_3POSITIVA]))+(Nz([S_4POSITIVA]))

TOTAL CAIXAS

Código:

=[CX_TT_NEGATIVAS]+[CX_TT_POSITIVAS]

Boa noite DelsonK,

Desculpe se não consegui explicar direito o que estou pretendendo.

Na mensagem Nº 5 havia respondido que as dicas que vc havia repassado era justamente o que precisava (em relação as 20 TextBox que ficarão ocultas e as somas de negativas e positivas no rodapé - que ficarão visíveis). E que só faltava o arredondamento para cima da TxtBox “Total de Caixas” sem fração, ou seja, número inteiro.

O “gargalo” está somente na TextBox “Total de Caixas”. As outras TxtBox estão corretas.

Tentarei ser claro na explicação deste último Print que vc enviou.

Não posso arredondar as 20 TxtBox e somar no final, pois altera significativamente o resultado do total de caixas.

Elas têm de ficar com o resultado fracionado mesmo, conforme expliquei acima.

Veja porque não pode arredondar as 20 TxtBox e nem as TxtBox Negativa e Positiva do rodapé:

Os 2 primeiros lançamentos feitos, que são “Negativa”, os valores fracionados foram: 1,042 e 2,083 que somados na TxtBox Caixas Negativas (no rodapé) deveria ficar em 3,125. Que teoricamente o arredondamento correto seria para 4 e no Print que vc enviou está 5 (incorreto).

Já os 2 lançamentos de “Positiva”, os valores fracionados foram: 53,333 e 7,949 que somados na TxtBox Caixas Positivas (no rodapé) deveria ficar em 61,282. Teoricamente o arredondamento para cima fica em 62 (correto).

O arredondamento para cima sem fração (número inteiro) deverá ocorrer somente na TxtBox “Total Caixas”.

Nesta TxtBox deverá ocorrer a soma das TXtBox (Caixas Negativas + Caixas Positivas que estarão fracionadas).

Espero ter sido mais claro desta vez, e muito obrigado pela sua paciência em me ajudar neste problema.

Boa noite!

Aí fica mais fácil. Rsrsrs

Nas text box que ficarão ocultas

NEGATIVAS

Código:

=(IIf([N_1TEMP]="NEGATIVA";[N_1CAIXAS];0))

POSITIVAS

Código:

=(IIf([N_1TEMP]<>"NEGATIVA";[N_1CAIXAS];0))

TOTAL CAIXAS

Código:

=IIf([CX_TT_NEGATIVAS]+[CX_TT_POSITIVAS]-Int([CX_TT_NEGATIVAS]+[CX_TT_POSITIVAS])>0;Int([CX_TT_NEGATIVAS]+[CX_TT_POSITIVAS])+1;([CX_TT_NEGATIVAS]+[CX_TT_POSITIVAS]))

Teste aí e veja o resultado.

Abraço, Delson

Olá DelsonK,

Show Show Show Show Show Show Show

Funcionou perfeitamente.
Muitíssimo obrigado.
Darei continuidade no meu BD, e, caso necessite de mais alguma coisa, recorrerei aqui novamente.
Estou disponibilizando novamente o BD com esta atualização, caso algum leigo como eu necessite.
Marcarei como resolvido.

Muito obrigado e até a próxima.

Dúvida esclarecida.

Bom dia, Evilmar.

Excelente, prossiga na missão!

Desejo sucesso no prosseguimento do sistema!

Abraço, Delson