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


4 participantes

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 22/9/2011, 21:02

    Você Criou alguma função?

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

    Adilson
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 22/9/2011, 23:14


    Eu criei depois.

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 386
    Registrado : 28/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  thiagojos 23/9/2011, 01:38

    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,
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 23/9/2011, 17:38


    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 (Wink, pq nao aceitou (,).

    Obrigada.
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 23/9/2011, 17:41

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

    Adilson
    thiagojos
    thiagojos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 386
    Registrado : 28/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  thiagojos 23/9/2011, 23:53

    Mais deu certo ou não?

    Cumprimentos,
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 24/9/2011, 17:35

    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
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 26/9/2011, 15:13

    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).



    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 26/9/2011, 15:25

    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
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 26/9/2011, 15:59


    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.
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 26/9/2011, 16:09

    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 Cool; 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#")

    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 26/9/2011, 18:19



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


    Ficha Técnica2209.accdb



    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 26/9/2011, 18:56

    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

    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 26/9/2011, 19:38

    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.

    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 26/9/2011, 19:58

    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





    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 26/9/2011, 20:36

    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.
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 26/9/2011, 20:41

    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
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 28/9/2011, 12:47

    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.
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 28/9/2011, 14:10

    Bom dia,

    Estou reparando tudo,

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

    o end if

    endi fi (tava assim)

    Aguarde
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 28/9/2011, 14:25

    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
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 28/9/2011, 18:36

    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
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 28/9/2011, 19:21

    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

    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 28/9/2011, 20:14


    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.
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 28/9/2011, 20:43

    Tem sim,

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

    Sobre relatórios.

    Adilson
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 29/9/2011, 14:36

    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?
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 29/9/2011, 14:58

    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
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 29/9/2011, 15:05

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

    Coloque os parenteses como falei


    Aqui funcionou

    Adilson
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 29/9/2011, 15:14

    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
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 29/9/2011, 15:15


    Adilson

    Coloquei os parenteses mas não foi, vou revisar aqui novamente.
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 29/9/2011, 15:52

    Segue o link da função funcionando


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


    Adilson
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 29/9/2011, 16:13

    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
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 30/9/2011, 15:59

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

    Adilson
    thiagojos
    thiagojos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 386
    Registrado : 28/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  thiagojos 1/10/2011, 01:04

    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,
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 1/10/2011, 13:03

    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
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 3/10/2011, 14:01

    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.

    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 3/10/2011, 14:08

    Se precisar de mais alguma coisa é só falar.

    Abraços

    Adilson
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 4/10/2011, 20:54


    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
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 4/10/2011, 22:04

    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
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 4/10/2011, 22:43

    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
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 4/10/2011, 23:28

    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
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 5/10/2011, 13:56

    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.
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 5/10/2011, 14:13

    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
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 5/10/2011, 15:29

    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
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 5/10/2011, 15:50

    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
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 5/10/2011, 16:05

    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
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 5/10/2011, 16:27

    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
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 5/10/2011, 18:11


    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.
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 5/10/2011, 18:14

    Como você descobriu isso, que certeza você tem?
    avatar
    lauders
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 141
    Registrado : 05/09/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  lauders 5/10/2011, 19:51

    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
    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  dyl2011.programador 5/10/2011, 20:08

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

    Adilson

    Conteúdo patrocinado


    [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver - Página 2 Empty Re: [Resolvido]Ficha tecnica de Cardapio - Ajuda para desenvolver

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 11:36