MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Formulário com Cálculo

    leomadeira
    avatar
    leomadeira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 28/01/2012
    • Mensagem nº1

    [Resolvido]Formulário com Cálculo Empty Formulário com Cálculo

    Mensagem  leomadeira 22/5/2012, 13:22

    Bom dia Amigos.

    Tenho um formulário onde eu lanço entradas e saídas de combustivel. Gostaria de criar um campo onde ele me calculasse o estoque atual, ou seja, a soma de todas as entradas menos a soma de todas as saidas.

    Alguma ideia?

    Abraços ...

    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº2

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  criquio 22/5/2012, 13:53

    Você tem a lista de entradas e saídas no formulário? Se não, existe algo em comum entre os registros para ser usado como critério de filtro? Dê todos os detalhes referentes à estrutura envolvida no processo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    leomadeira
    avatar
    leomadeira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 28/01/2012
    • Mensagem nº3

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  leomadeira 22/5/2012, 14:08

    Primeiramente obrigado pela atenção. Não existe nenhuma lista. Vou exemplificar melhor:

    Eu tenho uma tabela chamada combustivel_saida com os seguintes campos: CodigoCombustivel, Data, Equipamento, Placa, Horimetro, Tipo, QuantidadeCombustivel, Lubrificante, QuantidadeLubrificante

    E tenho uma tabela chamada combustivel_entrada com os seguintes campo: Código, Fornecedor, Nota, Quantidade, ValorUnitario, ValorTotal

    Todas as 2 tabelas possuem formularios para entrada de dados.

    Gostaria de colocar um campo em um formulário geral onde ele aparecesse o resultado da subtração dos seguintes dados: Quantidade (da tabela combustivel_entrada)e QuantidadeCombustivel (da tabe;a combustivel_saida).

    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº4

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  criquio 22/5/2012, 16:48

    Mas qual é o critério para esse cálculo? Toda a tabela ou filtrada por data? Acredito que queria calcular por data. Se for, talvez algo assim:

    Código:
    =DSum("NomeCampo";"TabelaEntrada";"Data=#" & Format([CampoData];"mm/dd/yyyy")) - DSum("NomeCampo";"TabelaSaída";"Data=#" & Format([CampoData];"mm/dd/yyyy"))
    Acredito que seja só adaptar.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    leomadeira
    avatar
    leomadeira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 28/01/2012
    • Mensagem nº5

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  leomadeira 22/5/2012, 18:56

    eu quero que ele some tudo, indiferente da data, sem o criterio de data .. ou seja .. total de entradas menos o total de saida .. dai ele me da o estoque final ...
    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº6

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  criquio 22/5/2012, 20:00

    É só tirar o critério.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    leomadeira
    avatar
    leomadeira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 28/01/2012
    • Mensagem nº7

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  leomadeira 22/5/2012, 20:54

    Usei o seguinte código:

    =DSum("Quantidade";"combustivel_entrada") - DSum("QuantidadeCombustivel";"combustivel_saida")

    Mais deu erro, tem algum erro nele?

    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº8

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  criquio 24/5/2012, 16:10

    Não sei. Tente fazer via vba e veja se depura para alguma linha do vba e qual mensagem de erro que dá. Pode tentar isso no "Ao clicar" de um botão:

    Me.NomeDoCampo = DSum("Quantidade", "combustivel_entrada") - DSum("QuantidadeCombustivel", "combustivel_saida")


    Última edição por criquio em 25/5/2012, 20:23, editado 1 vez(es)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    leomadeira
    avatar
    leomadeira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 28/01/2012
    • Mensagem nº9

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  leomadeira 25/5/2012, 20:14

    Opa .. consegui aqui meu amigo .. deu certo ...... agora me tira mais uma duvida .... no calculo quando fica numero fracionado ele fica tipo assim o resultado .... 367,700012207031 ...... como faço uma mascara pra ele ficar assim .... 367,70 Lts

    Abraços ......
    • Ir para o topo
    leomadeira
    avatar
    leomadeira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 28/01/2012
    • Mensagem nº10

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  leomadeira 26/5/2012, 14:53

    Aguardo retorno ....
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº11

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  Convidad 26/5/2012, 15:02


    Para arrendondar para duas casas decimais:

    Me.NomeDoCampo = Round(DSum("Quantidade", "combustivel_entrada") - DSum("QuantidadeCombustivel", "combustivel_saida"), 2)

    Para exibir com duas casas decimais:

    Propriedade Formato do campo Padrão
    • Ir para o topo
    leomadeira
    avatar
    leomadeira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 28/01/2012
    • Mensagem nº12

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  leomadeira 28/5/2012, 12:51

    o nome do meu campo onde coloquei a fórmula é Texto57 .... dai coloquei assim:

    Me.Texto57 = Round(DSum("Quantidade", "combustivel_entrada") - DSum("QuantidadeCombustivel", "combustivel_saida"), 2)

    porém deu erro .....

    o que fiz de errado?

    • Ir para o topo
    leomadeira
    avatar
    leomadeira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 28/01/2012
    • Mensagem nº13

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  leomadeira 29/5/2012, 13:31

    Consegui fazer o calculo .... obrigado a todos pela ajuda
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº14

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  Convidad 29/5/2012, 13:48


    Observe que há diferenças na sintaxe de uma expressão, dependendo do uso no vba ou em campo calculado.

    No VBA:
    Me.Texto57 = Round(DSum("Quantidade", "combustivel_entrada") - DSum("QuantidadeCombustivel", "combustivel_saida"), 2)

    Na origem do campo:
    =Arred(DSoma("Quantidade"; "combustivel_entrada")-DSoma("QuantidadeCombustivel"; "combustivel_saida"); 2)


    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº15

    [Resolvido]Formulário com Cálculo Empty Re: [Resolvido]Formulário com Cálculo

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 19/5/2024, 07:49