[Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

Você Criou alguma função?

Aonde Você está efetuando esta soma
não estou achando

Adilson

Eu criei depois.

Coloquei campo Custo Parcial( = nz(CustoTotal)+...nz(CustoTotal14) direto na caixa de texto.
Estou correta?

Ja tentou colocar valor padrão 0 na caixa de texto? se não deu certo tenta a função NZ assim:

=Nz([txt1]+[txt2]+[txt3],0)

Abraços Lauders,

Amigos

Coloquei como valor padrao (0),nas caixa de texto que quero somar, mas qd deixo o campo em branco.
No campo que faz a soma fica zerado, não soma o que ficou.
Eu coloquei assim: =Nz([CustoTotal]+[CustoTotal1];0), coloquei (, pq nao aceitou (,).

Obrigada.

Aonde fica as somas mesmo, cheguei agora do almoço.

Adilson

Mais deu certo ou não?

Cumprimentos,

Eu não sei aonde se encontra este custo total mas se for um campo você pode colocar

Você pode utilizar as funções DSum para calcular a soma de um conjunto de valores em um determinado conjunto de registros (um domínio (domínio: um conjunto de registros definidos por uma tabela, consulta ou expressão SQL. As funções agregadas de domínio retornam informações estatísticas sobre um domínio ou conjunto de registros específico.)). Utilize a função DSum em um módulo VBA (Visual Basic for Applications), uma macro (macro: uma ação ou um conjunto de ações que você pode usar para automatizar tarefas. As macros são gravadas na linguagem de programação Visual Basic for Applications.), uma expressão de consulta ou um controle calculado (controle calculado: um controle usado em um formulário, um relatório ou uma página de acesso a dados para exibir o resultado de uma expressão. O resultado é recalculado sempre que ocorre uma alteração em um dos valores nos quais a expressão está baseada.).

Sintaxe

DSum(expr, domínio [, critérios] )

A sintaxe da função DSum possui os seguintes argumentos:

Argumento Descrição
expr Obrigatório. Uma expressão que identifica o campo numérico cujos valores você deseja totalizar. Pode ser uma ">expressão em seqüência que identifica um campo em uma tabela ou consulta, ou pode ser uma expressão que realiza um cálculo de dados daquele campo. Em expr, você pode incluir o nome de um campo em uma tabela, um controle em um formulário, uma constante ou uma função. Se expr incluir uma função, ela poderá ser interna ou definida pelo usuário, mas não outra função de agregação de domínio ou de agregação SQL.
domínio Obrigatório. Uma expressão em seqüência que identifica o conjunto de registros que constitui o domínio. Pode ser um nome de tabela ou de consulta para uma consulta que não requer um parâmetro.
critérios Opcional. Uma expressão em seqüência utilizada para restringir o intervalo de dados onde a função DSum é realizada. Por exemplo, critérios geralmente é equivalente à cláusula WHERE em uma expressão SQL, sem a palavra WHERE. Se critérios for omitido, a função DSum avaliará o expr com base em todo o domínio. Qualquer campo que seja incluído em critérios também deverá ser um campo no domínio; caso contrário, a função DSum retornará um valor Null (Nulo: um valor que pode ser inserido em um campo ou usado em expressões e consultas para indicar dados ausentes ou desconhecidos. No Visual Basic, a palavra-chave Nulo indica um valor Nulo. Alguns campos, como campos de chave primária, não podem conter um valor Nulo.).



ADilson

Amigos

Coloquei a seguinte formula para somar os campos nulos.
=Soma(Nz([CustoTotal])+Nz([CustoTotal]))...+ Nz([CustoTotal])

Sendo que não esta somando, aparece (0,00).Sendo que eu digitei valores , e não somou. Eu coloquei nas caixa de texto, valor padrao (0).

Tem um parametro errado na utilização da Método NZ:



Você pode utilizar a função Nz para retornar zero, uma cadeia de caracteres de comprimento zero (seqüência com comprimento zero: uma seqüência que não contém caracteres. Você pode usar uma seqüência com comprimento zero para indicar que não existe valor para um campo. Você insere a seqüência com comprimento zero digitando aspas duplas sem espaço entre elas (" ").) (" "), ou um outro valor especificado quando uma Variant for Null. Por exemplo, essa função pode ser utilizada para converter um valor Null em um outro valor e evitar que ele se propague através de uma expressão.
Sintaxe

expressão.Nz(Value, ValueIfNull)

expressão Uma variável que representa um objeto Application.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Value Obrigatório Variant Uma variável do tipo de dados (tipo de dados: a característica de um campo que determina que tipo de dados ele pode conter. Os tipos de dados incluem booleano, inteiro, longo, unidade monetária, único, duplo, data, seqüência e variante (padrão).) Variant.
ValueIfNull Opcional Variant Opcional (exceto se utilizado em uma consulta). Um Variant que fornece um valor a ser retornado se o argumento variant for Null. Este argumento permite que você retorne um valor que não seja zero nem uma cadeia de caracteres de comprimento zero.
Observação
Se você utilizar a função Nz em uma expressão de uma consulta sem utilizar o argumento valueifnull, os resultados serão uma cadeia de caracteres de comprimento zero nos campos que contiverem valores nulos.


Você não colocou o valor de retorno, tire o valor padrão de zero e coloque no método NZ.

Tente assim

=Soma(Nz([CustoTotal],0)+Nz([CustoTotal],0))...+ Nz([CustoTotal],0)
pois na caixa de texto onde não houver valor o método NZ porá o zero.

Atencisoamente,

Adilson

Coloquei a seguinte expressão.

=Soma(Nz([CustoTotal],0)+Nz([CustoTotal1],0)+Nz([CustoTotal2],0)+Nz([CustoTotal3],0)+Nz([CustoTotal4],0)+Nz([CustoTotal5],0)+Nz([CustoTotal6],0)+Nz([CustoTotal7],0)+Nz([CustoTotal8],0)+Nz([CustoTotal9],0)+Nz([CustoTotal10],0)+Nz([CustoTotal11],0)+Nz([CustoTotal12],0)+Nz([CustoTotal13],0)+Nz([CustoTotal14],0))

Diz que há uma sintaxe invalida.

Me diga uma coisa?

CustoTotal é o campo ou um objeto?

Se for um objeto que já tem um valor, você terá que atribuir o valor dele a uma variável (quantos objetos forem necessários).

Se for um campo você terá que criar uma função que some os campos e retorne o total exemplo:

Public Function Somar (Objeto as Textbox)
......

End Function

ou ainda


Você pode utilizar a função DSum para calcular a soma de um conjunto de valores em um conjunto especificado de registros (um domínio (domínio: um conjunto de registros definidos por uma tabela, consulta ou expressão SQL. As funções agregadas de domínio retornam informações estatísticas sobre um domínio ou conjunto de registros específico.)).
Sintaxe

expressão.DSum(Expr, Domain, Criteria)

expressão Uma variável que representa um objeto Application.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Expr Obrigatório String Uma expressão que identifica o campo numérico cujos valores você deseja totalizar. Pode ser uma expressão de cadeia de caracteres (expressão de seqüência de caracteres: uma expressão avaliada como uma seqüência de caracteres contíguos. Os elementos da expressão podem incluir: funções que retornam uma seqüência ou uma seqüência Variant (VarType ; uma seqüência literal, constante, variável ou Variant.) que identifica um campo em uma tabela ou consulta ou pode ser uma expressão que efetue um cálculo nos dados desse campo. Em expr, você pode incluir o nome de um campo em uma tabela, um controle em um formulário, uma constante ou uma função. Se expr incluir uma função, ela poderá ser tanto interna quanto definida pelo usuário, mas não uma outra função agregada de domínio ou agregada SQL.
Domain Obrigatório String Uma expressão de cadeia de caracteres que identifica o conjunto de registros que constitui o domínio. Pode ser um nome de tabela ou um nome de consulta de uma consulta que não requer um parâmetro.
Criteria Opcional Variant Uma expressão de cadeia de caracteres opcional usada para restringir o intervalo de dados no qual a função DSum é executada. Por exemplo, criteria costuma ser equivalente à cláusula WHERE em uma expressão SQL, sem a palavra WHERE. Se criteria for omitido, a função DSum avaliará expr em relação ao domínio inteiro. Qualquer campo incluído em criteria também deve exitir em domain; caso contrário, a função DSum retornará um Null.

Valor de retorno
Variant

Comentários


Você poderia, por exemplo, utilizar a função DSum em uma expressão de campo calculado de uma consulta para calcular as vendas totais feitas por determinado empregado ao longo de um período de tempo. Também poderia utilizar a função DSum em um controle calculado para exibir uma soma parcial das vendas de determinado produto.

Se nenhum registro satisfizer o argumento criteria ou se o domínio não contiver registros, a função DSum retornará Null.

Quer você utilize a função DSum em uma macro, um módulo, uma expressão de consulta ou um controle calculado, precisará construir cuidadosamente o argumento criteria para garantir que ele seja avaliado corretamente.

Você pode utilizar a função DSum para especificar critérios na linha Critérios de uma consulta, em um campo calculado de uma expressão de consulta ou na linha Atualizar Para de uma consulta atualização (consulta atualização: uma consulta ação (instrução SQL) que altera um conjunto de registros de acordo com critérios (condições de pesquisa) que você especifica.).

Observação
Você pode utilizar a função DSum ou a função Sum em uma expressão de campo calculado de uma consulta de totais (consulta de totais: uma consulta que exibe um cálculo de resumo, como uma média ou soma, para valores em diversos campos de uma ou mais tabelas. A consulta de totais não é um tipo separado de consulta; na verdade, aumenta a flexibilidade de consultas seleção.). Se você utilizar a função DSum, os valores serão calculados antes do agrupamento dos dados. Se você utilizar a função Sum, os dados serão agrupados antes de a expressão do campo ser avaliada.

Convém utilizar a função DSum para exibir a soma de um conjunto de valores de um campo que não esteja na fonte de registros do formulário ou relatório. Suponhamos, por exemplo, que você tenha um formulário que exiba informações sobre determinado produto. Você poderia utilizar a função DSum para manter um total acumulado de vendas desse produto em um controle calculado.

Se precisar manter um total parcial no controle de um relatório, você poderá utilizar a propriedade RunningSum desse controle se o campo no qual ele está baseado estiver incluído na fonte de registros do relatório. Utilize a função DSum para manter uma soma parcial em um formulário.


Exemplo


O exemplo a seguir totaliza os valores do campo Freight de pedidos enviados para o Reino Unido. O domínio é uma tabela Orders. O argumento criteria restringe o conjunto de registros resultante àqueles para os quais ShipCountry é igual a UK.

Visual Basic for Applications
Dim curX As Currency
curX = DSum("[Freight]", "Orders", "[ShipCountry] = 'UK'")

O próximo exemplo calcula um total utilizando dois critério separados. Observe que aspas simples (') e símbolos numéricos (#) são incluídos na expressão de cadeia de caracteres para que, quando as cadeias forem concatenadas, a cadeia de caracteres literal fique entre aspas simples e a data fique entre símbolos numéricos.

Visual Basic for Applications
Dim curX As Currency
curX = DSum("[Freight]", "Orders", _
"[ShipCountry] = 'UK' AND [ShippedDate] > #1-1-95#")

Segue meu arquivo. Os campos não somam, e nem os campos em branco somam.


Ficha Técnica2209.accdb

Localizei a formula,

=Soma(Nz([CustoTotal];0)+Nz([CustoTotal1];0)+Nz([CustoTotal2];0)+Nz([CustoTotal3];0)+Nz([CustoTotal4];0)+Nz([CustoTotal5];0)+Nz([CustoTotal6];0)+Nz([CustoTotal7];0)+Nz([CustoTotal8];0)+Nz([CustoTotal9];0)+Nz([CustoTotal10];0)+Nz([CustoTotal11];0)+Nz([CustoTotal12];0)+Nz([CustoTotal13];0)+Nz([CustoTotal14];0))

Essa função não vai resolver, agora que vim ver o que você está fazendo.
Amigão você está somando os valores de caisa de texto e não de campos.
Faça o seguinte:

No evento gotfocus da caixa de texto custoparcial aonde você quer o resultado você efetua uma rotina onde atribui a uma variável o valor de cada caixa de texto e depois soma, assim:

Dim vCustoTotal as currency
Dim vCustoTotal1 as currency ....
Dim vCustoBruto as currency

If IsNull(Me.CustoTotal.Value) = True then
vCustoTotal = 0
elseif Me.CustoTotal1.Value ="" then
vCustoTotal = 0
elseif Me.CustoTotal1.Value = 0 then
vCustoTotal = 0
else
vCustoTotal = Me.CustoTotal1.Value
endi fi


faça assim para todas as variaveis

me.CustoParcial.Value = vCustoBruto

Voilá

Quando a cx de texto receber o foco ela vai executar a operação

Atenciosamente,

Adilson

Adilson

Desculpas mas eu não entendi esse código. E também não entendo muito do código VBA.

Mas eu fiz o seguinte:
Copiei o código que vc passou coloquei, onde vc pediu.
Salvei e rodei, digitei para aparecer o valor na primeira linha custo total. Mas no total não apareceu nada.

Depois coloquei na caixa de texto custo total, ao receber foco digitei: me.CustoParcial.Value = vCustoBruto.

Rodei mas também não foi.
Desculpas mais uma vez.

Olhe só, chegou a hora então de você swe familiarizar com VBA.

Primeiro crie uma variável para armazenar o valor de cada caixa de texto (CustoTotal),

Dim vCustoTotal as Currency

Tipo de dados Currency (Moeda)
Para cada caixa de texto crie uma variável

dim vTotalGeral as Currency
Dim vCustoTotal1 as currency
Dim vCustoTotal2 as currency
Dim vCustoTotal3 as currency
Dim vCustoTotal4 as currency e etc até completar o numero total de caixas de texto referente a custototal.

depois você vai atribuir os respectivos valores das caixas de textos para as variáveis

If IsNull(Me.CustoTotal.Value) = True then
vCustoTotal = 0
elseif Me.CustoTotal1.Value ="" then
vCustoTotal = 0
elseif Me.CustoTotal1.Value = 0 then
vCustoTotal = 0
else
vCustoTotal = Me.CustoTotal1.Value
endi if


determinei neste exemplo de apenas uma variável por enquanto e você fará as atribuiçoes para as outras variáveis.

o seguinte

que se o valor for nulo ele automaticamente atribui a variavel o valor zero
senão se for "" (vazio) atribui zero também e se for zero permanece zero e sen~~ao for nehum dos valores anteriores será então um valor aceitável e portanto de qualquer jeito efetuará a soma sem causar erro.

para cada variavel de cada caixa de texto faça essa rotina acima tudo isso no evento gotfocus da caiixa de texto custoparcial.


depois você pega todas as variáveis e soma ela em uma unica variável

vTotalGeral= vCustoTotal + vCustoTotal1 + vCustoTotal2 etc...

e depois atribui esta variável a caixa custoparcial



me.CustoParcial.Value = vCustoBruto

Voilá

Quando a cx de texto receber o foco ela vai executar a operação

Atenciosamente,

Adilson

Adilson

Veja se fiz da maneira correta:

Private Sub CustoParcial_GotFocus()
Dim vCustoTotal As Currency
Dim vCustoTotal1 As Currency
Dim vCustoTotal2 As Currency
Dim vCustoTotal3 As Currency
Dim vCustoTotal4 As Currency
Dim vCustoTotal5 As Currency
Dim vCustoTotal6 As Currency
Dim vCustoTotal7 As Currency
Dim vCustoTotal8 As Currency
Dim vCustoTotal9 As Currency
Dim vCustoTotal10 As Currency
Dim vCustoTotal11 As Currency
Dim vCustoTotal12 As Currency
Dim vCustoTotal13 As Currency
Dim vCustoTotal14 As Currency
Dim vCustoBruto As Currency

If IsNull(Me.CustoTotal.Value) = True Then
vCustoTotal = 0
ElseIf Me.CustoTotal.Value = "" Then
vCustoTotal = 0
ElseIf Me.CustoTotal.Value = 0 Then
vCustoTotal = 0
Else
vCustoTotal = Me.CustoTotal.Value
endi fi
....
....
....
If IsNull(Me.CustoTotal13.Value) = True Then
vCustoTotal13 = 0
ElseIf Me.CustoTotal13.Value = "" Then
vCustoTotal13 = 0
ElseIf Me.CustoTotal13.Value = 0 Then
vCustoTotal13 = 0
Else
vCustoTotal13 = Me.CustoTotal13.Value
endi fi

If IsNull(Me.CustoTotal14.Value) = True Then
vCustoTotal14 = 0
ElseIf Me.CustoTotal14.Value = "" Then
vCustoTotal14 = 0
ElseIf Me.CustoTotal14.Value = 0 Then
vCustoTotal14 = 0
Else
vCustoTotal14 = Me.CustoTotal14.Value
endi fi

vTotalGeral = vCustoTotal + vCustoTotal1 + vCustoTotal2 + vCustoTotal3 + vCustoTotal4 + vCustoTotal5 + vCustoTotal6 + vCustoTotal7 + vCustoTotal8 + vCustoTotal9 + vCustoTotal10 + vCustoTotal11 + vCustoTotal12 + vCustoTotal13 + vCustoTotal4

Me.CustoParcial.Value = vCustoBruto

End Sub

Fiz dessa forma e não apareceu nada. Onde eu errei?

Obrigada.

Depois de ter digitado os valores financeiros nas respectivas caixa de texto você clicou na caixa de texto CustoParcial para o mesmo ganhar o foco, faça.
Caso não consiga me mande o BD e vou dar uma olhada.

Atenciosamente,


Adilson

Adilson

Coloquei o código, mas não esta somando.
Você pode dar uma olhada para mim no código. Não está dando erro, só não soma.


Ficha Técnica2209_2.accdb

Abraços Obrigada.

Bom dia,

Estou reparando tudo,

Escrevi uma coisa errado e você copiou e colou errado tambem

o end if

endi fi (tava assim)

Aguarde

Olhe só,

Vá no evento gotfocus da caixa de texto custo parcial e veja o que fiz. è daquele jeito.

Agora tem mais erro seu sistema que vou deixar para você corrigir e são fáceis de serem corrigidos com intuito de você praticar para exercer domínio sobre o assunto.

1º) Voce está fazendo errado o seguinte assunto:
Está pegando as formulas e colocando na propriedade fonte do controle da caixa de texto, essa propriedade é para está anexado o campo da tabela para salvar a informação da caixa de texto na tabela, se usa a propriedade origem da linha para se colocar formulas mas os objetos que a temsão somente o combobox e listbox.

2º) Pegue as formulas da propriedade fornte do controle das caixa de texto (QtdBr) e cole por exemplo no evento lostfocus e (CustoTotal) e cole também no evento lostfocus para quando você passando por ele pressionando a tecla enter eles efutam oso calculos.

3º) Use somente a propriedade fonte do controle da caixa de texto para vincula-lo a um campo na tabela para você salvar a informação dele na tabela caso queira.

Atenciosamente,

Adilson




http://dl.dropbox.com/u/37804873/Ficha%20T%C3%A9cnica2209_2.accdb

Adilson,

Fiz o opção 2,coloquei as formulas no lostfocus de cada caixa de texto, QtdBr e CustoTotal, agora não funciona, os cálculos não estão sendo feitos.
Apaguei as formulas do Fonte de Controle também.

Entrei no gotfocus do Custo Parcial,
A alteração que eu devo fazer seria essa:

Private Sub CustoParcial_GotFocus()
Dim vCustoTotal As Currency
If IsNull(Me.CustoTotal.Value) = True Then
vCustoTotal = 0
ElseIf Me.CustoTotal.Value = "" Then
vCustoTotal = 0
ElseIf Me.CustoTotal.Value = 0 Then
vCustoTotal = 0
Else
vCustoTotal = Me.CustoTotal.Value
End If


Dim vCustoTotal1 As Currency
If IsNull(Me.CustoTotal1.Value) = True Then
vCustoTotal1 = 0
ElseIf Me.CustoTotal.Value = "" Then
vCustoTotal1 = 0
ElseIf Me.CustoTotal1.Value = 0 Then
vCustoTotal1 = 0
Else
vCustoTotal1 = Me.CustoTotal1.Value
End If
.
.
.
Ou seria essa: Retirada dos "v" antes do CustoTotal.

If IsNull(Me.CustoTotal.Value) = True Then
CustoTotal = 0
ElseIf Me.CustoTotal.Value = "" Then
CustoTotal = 0
ElseIf Me.CustoTotal.Value = 0 Then
CustoTotal = 0
Else
CustoTotal = Me.CustoTotal.Value
End If

O v Antes de custototal é para diferenciar do controle caixa de texto custo total

vCustoTotal (variável)
CustoTotal (caixa de texto)

No GotFocus da caixa de texto CustoParcial eu já tinha feito como lhe falei anteriormente através deste forum.

Agora olhe só você precisa saber o seguinte (não queira se vê livre logo do problema não, ame o problema esse é o caminho para encontrar soluções(não tô dizendo também que você quer se ver livre, entenda)).

Quanto a QtdBr e CustoTotal são duas caixa de texto, faça o seguinte:

Você no evento GotFocus de Quantidade bruta voce tem que fazer assim:

=[Qtd]*[FatorCorr]


Dim vQtd as Integer
Dim vFatorCorr as Integer
Dim vTotal as Integer

vQtd = caixa de texto de quantidade (nome dela)
vFatorCorr = caixa de texto fator corr

vTotal = vQtd * vFatorCorr

QtdBr.value = vtotal

Aguardo o retorno

Adilson

Adilson

Muito Obrigada..Estou começando a entender, graças a você.
Obrigada pelo conselho também. E pela paciência comigo.

Somas resolvida, agora partindo pro relatório.
Bem eu ja criei o relatório, igual ao formulário. Para puxar as informações para esse relatório, tem algum comando ou código que faz isso?

Abraços.

Tem sim,

Estarei sempre pronto a ajudar, como o assunto são relatórios, abra um tópico novo.

Sobre relatórios.

Adilson

Adilson

A soma CustoParcial não esta somando.Com o codigo abaixo:


Private Sub CustoParcial_GotFocus()
Dim vCustoTotal As Currency
Dim vCustoTotal1 As Currency
Dim vCustoTotal2 As Currency
Dim vCustoTotal3 As Currency
Dim vCustoTotal4 As Currency
Dim vCustoTotal5 As Currency
Dim vCustoTotal6 As Currency
Dim vCustoTotal7 As Currency
Dim vCustoTotal8 As Currency
Dim vCustoTotal9 As Currency
Dim vCustoTotal10 As Currency
Dim vCustoTotal11 As Currency
Dim vCustoTotal12 As Currency
Dim vCustoTotal13 As Currency
Dim vCustoTotal14 As Currency
Dim vTo As Currency

If IsNull(Me.CustoTotal.Value) = True Then
vCustoTotal = 0
ElseIf Me.CustoTotal.Value = "" Then
vCustoTotal = 0
ElseIf Me.CustoTotal.Value = 0 Then
vCustoTotal = 0
Else
vCustoTotal = Me.CustoTotal.Value
End If
...
...

If IsNull(Me.CustoTotal14.Value) = True Then
vCustoTotal14 = 0
ElseIf Me.CustoTotal14.Value = "" Then
vCustoTotal14 = 0
ElseIf Me.CustoTotal14.Value = 0 Then
vCustoTotal14 = 0
Else
vCustoTotal14 = Me.CustoTotal14.Value
End If


vTotalGeral = vCustoTotal + vCustoTotal1 + vCustoTotal2 + vCustoTotal3 + vCustoTotal4 + vCustoTotal5 + vCustoTotal6 + vCustoTotal7 + vCustoTotal8 + vCustoTotal9 + vCustoTotal10 + vCustoTotal11 + vCustoTotal12 + vCustoTotal13 + vCustoTotal4

Me.CustoParcial.Value = vTotalGeral
End Sub


Quando eu coloco na fonte de controle( Nz([CustoTotal]+....+[CustoTotal14;0) desta forma soma.
Mas como vc falou não é o correto.

Eu preciso fazer mais formulas:
Tirar porcentagem: Custo Direto =([CustoParcial]*[CustoDireto]) Custo Direto= 10%
PreçoSugeridoparaVenda = ([CustoReal]*25%

Somar CustoReal= ([CustoParcialPorPorc]+[CustoDireto]+[CustoIndireto] - Este tambem não está somando.


Acredito que eu tenha q declarar as variaveis dessa formulas. Estou correta?

Bom dia,

Você pode colocar na fonte do controle só que as informações daquela caixa de texto não será salva nos campos da tabela.

Coloque as variável entre parenteses ex:

vTotalGeral = (vCustoTotal + vCustoTotal1 + vCustoTotal2 + vCustoTotal3 + vCustoTotal4 + vCustoTotal5 + vCustoTotal6 + vCustoTotal7 + vCustoTotal8 + vCustoTotal9 + vCustoTotal10 + vCustoTotal11 + vCustoTotal12 + vCustoTotal13 + vCustoTotal4)

Para vermos se funciona. E veja se você colocou certo no evento dos controles.

Vou testar aqui


Adilson

Bebê, Aqui tá calculando tudo direitinho, sabe o que foi.

Coloque os parenteses como falei


Aqui funcionou

Adilson

Adilson


Eu fiz dessa forma: Acredito que por não acerta a soma os outros não esta dando certo. Ah e a porcentagem que eu não sei se esta correta.

Private Sub CustoParcialPorPorc_GotFocus()
Dim vCustoParcial As Integer
Dim vRendimento As Integer
Dim vTotal As Integer

vCustoParcial = CustoParcial
vRendimento = Rendimento

vTotal = vCustoParcial / vRendimento

CustoParcialPorPorc.Value = vTotal
End Sub

Private Sub CustoReal_GotFocus()
Dim vCustoParcialPorPorc As Integer
Dim vCustoDireto As Integer
Dim vCustoIndireto As Integer
Dim vTotalReal As Integer

vCustoParcialPorPorc = CustoParcialPorPorc
vCustoDireto = CustoDireto
vCustoIndireto = CustoIndireto

vTotalReal = vCustoParcialPorPorc + vCustoDireto + vCustoIndireto

CustoReal.Value = vTotalReal

End Sub




Private Sub PrecoSugeridoparaVenda_GotFocus()
Dim vCustoReal As Integer
Dim vTotalVenda As Integer
vCustoReal = CustoReal

vTotalVenda = vCustoReal * (25 / 100)

End Sub


Private Sub ValorDireto_GotFocus()
Dim vCustoDireto As Integer
Dim vCustoParcial As Integer
Dim vTotalDireto As Integer


vCustoDireto = CustoDireto
vCustoParcial = CustoParcial

vTotalDireto = vCustoParcial * vCustoDireto

ValorDireto.Value = vTotalDireto

End Sub

Private Sub ValorIndireto_GotFocus()
Dim vCustoIndireto As Integer
Dim vCustoParcial As Integer
Dim vTotalIndireto As Integer


vCustoIndireto = CustoIndireto
vCustoParcial = CustoParcial

Adilson

Coloquei os parenteses mas não foi, vou revisar aqui novamente.

Segue o link da função funcionando


http://dl.dropbox.com/u/37804873/Ficha%20T%C3%A9cnica2209_2.accdb


Adilson

Bebê,

Segue o link do seu BD com todas as formulas funcionando

http://dl.dropbox.com/u/37804873/Ficha%20T%C3%A9cnica2209_2.accdb


O nosso lema é estudar e adaptar.

Atenciosamente,

Adilson

Não se esqueça de colocar o resolvido.

Adilson

Boa noite,

Tenho uma pergunta a fazer, o que acontece se o produto fornecido tiver mais de 10 ingredientes? tera que refazer tudo de novo?

Cumprimentos,

Bom dia,

Amigão é só adicionar as caixas de texto e incluí-las nas formulas e criar os campos necessários nas tabelas e vinculá-las.

Coloque o Resolvido, Caso necessite de mais ajuda abra novo tópico.


Atenciosamente,


Adilson

Bom dia Adilson

Eu ainda não mexi nas formulas, pois tive que parar e resolver outro probleminha.
Muito obrigada pela sua atenção e ajuda.

Se precisar de mais alguma coisa é só falar.

Abraços

Adilson

Amigos

Coloquei todas as formulas, da ficha técnica, mas não esta somando e calculando.
Os resultados de Custo bruto e custo total esta arredondando, ja alterei as propriedades da tabela coloquei duplo, mas continua arredondando.

Alguém pode ajudar a resolver. Desde já agradeço.

Ficha Técnica0309.accdb

Minha querida o que foi que vcoce fez com aquele bd que te mandei calculando tudo.
Não vejo mais as formulas
Me diga quais campos a serem calculados e como.

Adilson

Me diga sobre as formulas,

Quant bruta como calcular para voce

e custo total

como você quer calcular

só falta isso para te passar tudo

Adilson

Boa Noite,

Está aí o link com seu bd calculando tudo de novo.

http://dl.dropbox.com/u/37804873/Ficha%20T%C3%A9cnica2209_2.accdb


Atenciosamente,


Adilson

Bom dia Adilson

Está somando só a parte dos ingredientes, está certinho agora.

O Custo Parcial, Custo Parcial Por Porção , Custo Direto, Custo Indireto, Custo Real , Preço Sugerido Por Venda, não estão somando. E as somas estão digitada, onde estou errando?

Obrigada.

Bom dia,

As caixas de texto

O Custo Parcial, Custo Parcial Por Porção , Custo Direto, Custo Indireto, Custo Real , Preço Sugerido Por Venda

para somar voce terá que clicar dentro de cada uma por vez, pois as formulas estão no evento gotfocus de cada uma.

Atenciosamente,

Adilson

Adilson

A soma Custo Parcial, soma mas o valor não bate, com a soma dos campos CustoTotal.

Qual a formula para calcular a porcentagem. O campo Custo Direto aparece 10%.
Na formula esta assim:

vTotalParcial = vCustoParcial / vCustoDireto

Quando calcula da outro valor (metade valor custo parcial).

O restante esta calculando certinho.

Outra coisa , coloquei o botão salvar, salvou algumas coisas , mas os ingredientes , so salvou o primeiro na tabela.
E possivel salvar no formulario as informaçoes e ir criando outras fichas e ir consultando depois e imprimindo por ali.
Como faço para armazenar as informaçoes para posteriormente consulta-las.

Desculpas pela serie de perguntas.

Obrigada
Abraços

Bom dia,

Voce quer salvar o que e aonde.

Me passe as operações matemáticas a serem efetuadas para que eu posso transcrever para linguagem VBA.

Para salvar é só você ir na propriedade Fonte do controle de cada objeto e vincular ele ao respectivo campo na tabela.

Adilson

Adilson

As fichas técnicas, serão digitadas varias receitas, e eu preciso armazena-las para no futuro, consultar e imprimir, quando necessário.

As formulas seria:

Custo Parcial = (CustoTotal+CustoTotal1+....+CustoTotal14)
Custo Real = (CustoParcialPorPorcao+CustoDireto+CustoIndireto)

CustoDireto = CustoParcial/CustoDireto
CustoIndireto = CustoParcial/CustoIndireto

Custo Direto e Indireto = 10%

Essa formula já tem lá, só que a soma e a porcentagem não conferem.

Abraços

Segue o link

http://dl.dropbox.com/u/37804873/Ficha%20T%C3%A9cnica2209_2.accdb

aí eu fiz para salvar na tabela e custo real olhe o evento gotfocus os outros você faz.

Adilson

Adilson

A soma Custo Parcial eu alterei mas continua dando diferença na soma.
Veja as minhas modificações:
Private Sub CustoParcial_GotFocus()
Dim vCustoTot As Currency
Dim vCustoTot1 As Currency
Dim vCustoTot2 As Currency
..
...
....
Dim vCustoTot14 As Currency
Dim vTotalGeral As Currency

If IsNull(Me.CustoTotal.Value) = True Then
vCustoTot = 0
ElseIf Me.CustoTotal.Value = "" Then
vCustoTot = 0
ElseIf Me.CustoTotal.Value = 0 Then
vCustoTot = 0
Else
vCustoTot = Me.CustoTotal.Value
End If
....
....
...
If IsNull(Me.CustoTotal14.Value) = True Then
vCustoTot14 = 0
ElseIf Me.CustoTotal14.Value = "" Then
vCustoTot14 = 0
ElseIf Me.CustoTotal14.Value = 0 Then
vCustoTot14 = 0
Else
vCustoTot14 = Me.CustoTotal14.Value
End If

vTotalGeral = (vCustoTot + vCustoTot1 + vCustoTot2 + vCustoTot3 + vCustoTot4 + vCustoTot5 + vCustoTot6 + vCustoTot7 + vCustoTot8 + vCustoTot9 + vCustoTot10 + vCustoTot11 + vCustoTot12 + vCustoTot13 + vCustoTot14)

Me.CustoParcial.Value = vTotalGeral
End Sub

Onde estou errando?

Obrigada.

Como você descobriu isso, que certeza você tem?

Desculpas

Mas alguma coisa eu já estou entendendo, estou lendo sobre o assunto também. E procurando entender a lógica dos códigos que me envia.

Um dia estarei craque no assunto rsrs.

Se vc puder me dar uma força, desde já agradeço.
Obrigada.
Abraços

Olhe tenho de ajudado, só perguntei como você chegou a tal opinião.

Adilson