Calcular campo SE...SeImed

Olá, Boa Tarde!

Inclui na expressão de um campo em meu formulário:

SeImed(([Jornada]="8 Horas Sem Intrajornada");0,00;SeImed(([Jornada]="6X12 Horas");4,35;SeImed(([Jornada]="Outro");0,00;[Dias Trabalhados]*1,087)))

Mas ele não funciona ele está gerando os dias trabalhados para todos as opções em Jornada...

Alguém poderia me ajudar?

Olá cypriano,

A função SEIMED muito utilizada em Consultas, ela significa if then...else...end if, certo? Para satisfazer uma condição tanto com SEIMED quanto com if Then..., precisamos de um valor retornado em caso afirmativo, quanto um valor em caso negativo. Na sua sintaxe, só o último SEIMED satisfaz a condição com dois valores alternados.

SeImed(([Jornada]="8 Horas Sem Intrajornada");0,00, ????;SeImed(([Jornada]="6X12 Horas");4,35;????;SeImed(([Jornada]="Outro");0,00;[Dias Trabalhados]*1,087)))

Certo Good Guy.

É que eu não conheço direito as funções do acces, conheço um pouco apenas no excel...e segui a lógica da função SE com mais de uma incógnita (uma dentro da outra -- SE x=y ; então valor se positivo 0; então se valor negativo = SE x>y; então valor um.....até a última incógnita dar o verdadeiro valor se falso).

Como funcionaria no acces com a seimed?

Grato pela atenção!

Apenas para simplificando também a minha necessidade:

Tenho diversos tipos de jornada em um campo (Com caixa de combinação).

Dependendo da jornada de trabalho de meu funcionário os demais campos serão calculados de acordo com sua carga horária...
Por exemplo, se for a jornada noturna então ele calcula certo adicional que se for outra ele ficaria zero...

Olá Cypriano,

Não há mudança alguma. Substitua nos espaços com ???? o valor de retorno da função em caso negativo de satisfação da condição.

Para saber mais:

http://www.expertaccess.com.br/forumnew/forum_posts.asp?TID=24041

Troquei os ???? por outros dados e ele deu a mensagem:
A expressão que você inseriu tem uma função quem contém o número de argumentos incorreto
 

Olá cypriano,

Tente assim:

Expr1: SeImed([Jornada]="8 Horas Sem Intrajornada";0;SeImed([Jornada]="6X12 Horas";4,35;SeImed([Jornada]="Outro";[Dias Trabalhados]*1,087)))

A fórmula foi aceita, mas ele continua calculando independente da jornada...

Estou aqui pensando se tem outra forma de fazer isso mais facilmente, mas está dificil de achar um novo jeito...

Preciso urgente de um curso de acces rsss

Tente usando VBA pelo formulário no evento Exit, AfterUpdate ou BeforeUpdate de sua combobox.


Select Case SuaComboBox(Jornada).Column(0)

Case is ="8 Horas Sem Intrajornada"

SuaCaixaTexto = 0

Case is ="6X12 Horas"

SuaCaixaTexto = 4,35

Case is ="Outro"

SuaCaixaTexto = (Forms!SeuForm![Dias Trabalhados])*1,087

End Select

Nada =/

Você usa acces 2010? não me ajudaria com meu BD?

Olá cypriano,

Posta ele então.

A dúvida está em Holerite.

Tenho milhares de outras por todo o formulário.
No fluxo de caixa, por exemplo...como quando a pessoa coloca o número de parcelas elas serem duplicadas o valor por todos os meses seguintes...
como fazer o subformulário atualizar automaticamente....ah...um monte  
O único formulário que está totalmente ok é o de Clientes...(que ainda não testei, mas tá pronto)
O funcionários só falta o holerite...

Depois ainda to em desenvolvimento o FluxoCaixa...olhando você vai ver como funciona, se puder dar essa mão...
E os escalas ainda vou começar.
Depois disso acabou

O comercial da empresa vou fazer por excel mesmo em separado...

Falei pro chefe aqui da empresa que até dia 1º tava tudo pronto rss
Começar a organização da empresa dentro desse sisteminha...

Enquanto isso a empresa acumula papelada  

Olá cypriano,

Não consegui abrir, acusou erro no envio. Faz o seguinte, anexe o arquivo com extensão .zip, bem abaixo. Procure o arquive e envie a consulta.

foi?

Não. Como você está procedendo?


Anexar arquivos

Você pode anexar um ou mais arquivos através do seguinte formulário :
( 3g2, 3gp, bmp, doc, docm, docx, gif, jpg, m4a, m4v, mov, mp3, mp4, mpg, pdf, png, pps, ppt, pptm, pptx, swf, tif, txt, wma, wmv, xls, xlsb, xlsm, xlsx, zip ).Nome do arquivo (Tamanho máximo por arquivo: 2.998 Mb


|__________________| Procurar Enviar Consulta

OK.

Agora apareceu. Tente assim:


Private Sub cboJornada_BeforeUpdate(Cancel As Integer)  'Renomeie o nome de sua combobox de Combinaçãoxxx para cboJornada

Select Case cboJornada.Column(0)
Case Is = "8 Horas Sem Intrajornada"

HORASTRABALHADAS = 0

Case Is = "6X12 Horas"

HORASTRABALHADAS = 4.35

Case Is = "Outro"

HORASTRABALHADAS = (Forms!Holerite![Dias Trabalhados]) * 1.087    'Para as demais opções de sua combo(cboJornada) use Forms!Holerite![Dias Trabalhados]* valor

End Select

End Sub