[Resolvido]Utilizar a função iif

Boa Tarde,

Por favor uma ajuda, preciso fazer alguns caculos e não consigo Resultado.

Estou tentando no Formulário, esta certo ou devo fazer na Consulta?

Tenho uma tabela com 6 colunas:

Consumo Inicial
Consumo Final
Consumo Total
Se consumo até 10, o valor será de 12,00
Caso o consumo seja entre 11 e 20, o valor será multiplicado por 2,00

Exemplo: CI 23 - CF 33 = 10 valor de 12,00
CI 23 - CF 38 = 15 valor de 12,00 + 10,00 = 22,00

Obrigado a todos!!!

Seja bem vindo ao Maior e melhor Fórum de access do mundo.

Acho que você deveria explicar melhor.
Descreva nome de campos, será mais fácil pra turma ajudar.

É muito vago fazer um código IF, exemplo:

Código:


If ConsumoTotal >= 10 Then 'Igual ou menor que 10
ValorDeAlgo = 12
ElseIf ConsumoTotal > 10 < 20 Then ' Maior que 10 e Menor que 20
ValorDeAlgo = OutroCampo * 2
End If



Por ai vai, mas deve explicar melhor.

Claudio Boa noite,

Desculpe pela forma como mandei minha duvida, sem muito entendimento.

Tenho uma tabela para calcular alguns valores sobre medição de hidrometros, segue os campos:

Consumo Inicial - Consumo Final = Consumo Total

Consumo até 10: Se o Consumo Total for > 0 e <=10 o valor cobrado será de R$ 12,00

Consumo de 11 a 20: Se o Consumo Total for >10 e <=20 o valor cobrado será a diferença do [Consumo Total - 10] * R$ 2,00

Total a Pagar = Consumo até 10 + Consumo de 11 a 20


Estou tentando fazer esses calculos no Formulario de Cadastro, ou qual seria a melhor forma?


Os campos abaixo devem ser exibidos para o cliente.

Consumo Inicial; Consumo Final; Consumo Total; Consumo até 10; Consumo de 11 a 20; Total a Pagar

Ex: 10 - 15 = 5 Total a Pagar 12,00
Ex: 10 - 25 = 15 Total a pagar 12,00 + (5 * 2,00) = 22,00

Bom dia.

Bem, você pode trabalhar em duas formas.

Com uma tabela com as faixas de tarifação ou simplesmente com programação direta no campo consumo final que irá exibir o resultado no campo total.

Vou montar algo aqui e te passo mais tarde.

Bem segue um exemplo, é só uma ideia do que você pode fazer.

https://www.dropbox.com/s/myb885lyywfmfsn/ValidaCPF_CNPJ%20-%20Osvaldo.zip?dl=0

Claudio Obrigado pela ajuda.

O exemplo que vc me mandou é um pouco complexo, prefiro a primeira resposta que me mandou.

No caso abaixo, o resultado será mostrado em um unico campo, correto?

If ConsumoTotal >= 10 Then 'Igual ou menor que 10
ValorDeAlgo = 12
ElseIf ConsumoTotal > 10 < 20 Then ' Maior que 10 e Menor que 20
ValorDeAlgo = OutroCampo * 2
End If


Neste caso tenho que colocar os valores separados em cada campo, por favor verifique se posso usar desta forma para cada campo.

campo Consumototal
= Consumo Inicial - Consumo Final


campo Valor
if consumototal <=10 then valor = 12,00


campo ValorAdicional
If consumototal >10 e <=20 then (consumo total - 10)*2
elseif valoradicional = 0
End if

Campo TotalaPagar
= valor + valoradicinoal


Obrigado mais uma vez, como sou novato, preciso melhorar a forma de solicitação.

Bem modifiquei todo o código.
Veja se é isso.

https://www.dropbox.com/s/5x8v2k6utmdylfs/Omtorre%20_VII.zip?dl=0

Claudio muito obrigado pela ajuda.

Consegui aplicar no banco e deu certo.


Só mais uma ajuda, preciso que seja colocado mais duas condições de comparação, pesquisei sobre If, Then e Else e não consegui aplicar.


Segue os 2 calculos para condição.


Ex: 10 - 15 = 5 Total a Pagar 12,00 (resolvido)
Ex: 10 - 25 = 15 Total a pagar 12,00 + (5 * 2,00) = 22,00 (resolvido)

Ex: 10 - 35 = 25 Total a pagar 12,00 + (5 * 4,00) = 32,00
Ex: 10 - 45 = 35 Total a pagar 12,00 + (5 * 6,00) = 42,00


Pode me mandar somente o codigo que aplico no banco.


Obrigado

Bom dia.

Você pode adicionar quantos If's forem necessários.

Segue:

If Consumo_Total <= 10 Then
Me.ValorMedido = 12
ValorAdicional = 0
ElseIf Consumo_Total > 10 <= 20 Then
ValorAdicional = (Consumo_Total - Consumo_Padrão) * 2
ElseIf Consumo_Total > 20 <= 30 Then 'If Acrescentado
ValorAdicional = (Consumo_Total - Consumo_Padrão) * 4
ElseIf Consumo_Total > 30 <= 40 Then 'If Acrescentado
ValorAdicional = (Consumo_Total - Consumo_Padrão) * 6
End If
Total_Pagar = ValorMedido + ValorAdicional
End Sub

Claudio Boa Tarde,

Ta quase pronto.

Apliquei os "elseif" para as outras condições, mas o calculo só ocorre na Primeira Condição (if...elseif), independente do Consumo Total o calculo é multiplicado por 2.

Esta acontecendo assim:

Se o Consumo Total por exemplo for 25, o Valor Adicional = 30, o código esta calculando assim 25 - 10 = 15 * 2
O calculo esta ocorrendo somente na primeira condição.


Deveria ficar assim:

Quando o Consumo total = 25 o calculo deveria ser 25 - 20 = 5 * 3 totalizando 15
Quando o Consumo total = 35 o calculo deveria ser 35 - 30 = 5 * 4 totalizando 20


Obrigado mais uma ve

Bem veja se é isto, apague todo aquele código e teste com esse.

Código:


Consumo_Total = Consumo_Final - Consumo_Inicial

Select Case Consumo_Total

    Case 10
    Me.Consumo_Padrão = 10
    Me.ValorMedido = 12
    ValorAdicional = 0

    Case 11 To 20
    Me.Consumo_Padrão = 10
    ValorAdicional = (Consumo_Total - Consumo_Padrão) * 2

    Case 21 To 30
    Me.Consumo_Padrão = 20
    ValorAdicional = (Consumo_Total - Consumo_Padrão) * 3

    Case 31 To 40
    Me.Consumo_Padrão = 20
    ValorAdicional = (Consumo_Total - Consumo_Padrão) * 4

End Select

    Total_Pagar = ValorMedido + ValorAdicional


Agora dai pra frente amigo, vá modificando o código de acordo com sua idéia e bola pra frente.

Claudio,



Alterei o código e fiz alguns ajustes mínimos, pois precisava a cada calculo zerar os campos anteriores, mas graças a sua ajuda consegui.

Deu certo, consegui o resultado final, os campos estão calculando conforme a condição de cada campo.

A condição do Case é bem melhor que o If...Elseif.

Pela ultima vez Obrigado...kkk

Desculpe o incomodo pelas varias tentativas.

Em uma próxima, espero ter a sua ajuda novamente.

Abs

Que bom amigo que resolvemos.
Conte com o fórum sempre, se eu puder ajudar, estarei sempre ajudando meus colegas. Estamos aqui pra isso.
Agora é só fechar o tópico clicando no Resolvido e não esqueça de clicar no Joinha.:

Resolvido Valeu!!!