Fórmula Clearance Creatinina

Pessoal agora queria calcular a clearance da creatinina no access, mas não sei por onde começar.

A fórmula é:

Creatinineclearance = Sex * ((140 - Age) / (Serumcreatinine)) * (Estimatedleanbodyweight / 72)

Tenho de ter um campo com Sex (sexo), com Age (idade), outro com Serumcreatinine (nivel de creatinina), outro com o Estimatedleanbodyweight (Peso) mas não sei como é que faço para ele calcular se for homem ou mulher...

Se for Homem no Sex é 1, Se for mulher, no Sex é 0.85.

Tem de ser por VBA ou dá para fazer directamente na tabela?

Obrigada!

Segundo a NET, o calculo é efetuado assim;

Homem: Clearence de Creatinina = [((140-Idade) x Peso(kg)) / (Creatinina Sérica x 72)]
Mulher: Clearence de Creatinina = [((140-Idade) x Peso(kg)) / (Creatinina Sérica x 72)] x 0,85

Então você necessitará dos seguintes campos:

Idade ... Campo numerico
Peso ... Campo numerico
Sexo ... Campo boleano Yes/No
CreatininaSerica ... Campo numerico

A partir daqui, já pode efetuar os cálculos.

Veja se este exemplo que montei em cima do joelho, lhe dá uma luz.

Note que o resultado está correto, testei via NET (medicalsuite.einstein.br/Servicos/Paginas/calculadora-gault.aspx)

dropbox.com/s/6z8objwbaukazsv/ClearencedeCreatinina.zip?dl=1

O exemplo que montei, serviu ?

JPaulo,
Você é barra nisto do access.
O Exemplo está fantástico!
Agora tenho de tentar incluí-lo na minha BD e no Sub form que já tenho feito... Se conseguir coloco o tópico como resolvido!

Vamos ver se consigo fazer isso pois sou muito mas muito novata! É a minha primeira BD em access e sem qualquer formação na área.

O que consegui fazer foi com a vossa ajuda aqui do fórum e em vídeos postados no youtube!

Tenho aprendido muito com vocês!

Muito Obrigada!

Fico feliz.

Se precisar e só dar um grito.

JPaulo,
Como faço para colocar a Clearance da creatinina no SubForm? Como o resultado está na Consulta não sei bem como fazer...
Tentei assim e não deu...



Pode-me ajudar?

Obrigada!

Para valores numericos no filtro:
=DLookup("Campo"; "Consulta"; "CampoFiltro = " & forms!NomeDoFormulario!NomeDoCampo

Para Texto: (aspas simples)
=DLookup("Campo"; "Consulta"; "CampoFiltro = '" & forms!NomeDoFormulario!NomeDoCampo & "'")

Obrigada,
Tudo a funcionar!

Fico feliz.

Obrigada pelo retorno o forum agradece.

JPaulo,
Não aparece o valor na tabela...
Os códigos estão funcionando, mas na tabela onde quero que estes campos apareçam calculados, eles não aparecem...
Será que me pode ajudar?
Já tentei fazer as fórmulas mas não sei por onde começar...
Preciso da idade calculada a partir da data de nascimento
E o Calculo da Clerance a partir do Peso, idade, sexo e creatinina sérica, como está nas formulas em cima... Se for mulher multiplica-se por 0.85.
Segue em anexo a tabela onde quero que esses campos apareçam calculados...

Obrigada.

Olá;

Já estava tudo a funcionar, o que se passou para deixar de funcionar ?

Neste ultimo exemplo, você apenas envia a tabela, mas as formulas não eram efetuadas diretamente na tabela.